* Implemented most of MAIL FROM:

[citadel.git] / citadel / routines.c

diff --git a/citadel/routines.c b/citadel/routines.c
index 6361012502f33b958c363fe0ce7bb9824e2f00f7..903fe9ce162ae703e474df7a87e31f3c29333b65 100644 (file)
--- a/citadel/routines.c
+++ b/citadel/routines.c
@@ -67,17 +67,6 @@ int struncmp(char *lstr, char *rstr, int len)
        }
 
 
-/* 
- * check for the presence of a character within a string (returns count)
- */
-int haschar(char *st, int ch)
-{
-       int a,b;
-       b=0;
-       for (a=0; a<strlen(st); ++a) if (st[a]==ch) ++b;
-       return(b);
-       }
-
 
 void back(int spaces) /* Destructive backspace */
             {