X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/e4b34a85e5fbafc7f8ca2b6adb9158af95457ee1..a127d423b58e6b51d670891eb314bfa7bdc340ee:/lib-src/b2m.c diff --git a/lib-src/b2m.c b/lib-src/b2m.c index 6aea2270a5..05caa1424e 100644 --- a/lib-src/b2m.c +++ b/lib-src/b2m.c @@ -1,12 +1,13 @@ /* * b2m - a filter for Babyl -> Unix mail files + * The copyright on this file has been disclaimed. * * usage: b2m < babyl > mailbox * * I find this useful whenever I have to use a * system which - shock horror! - doesn't run - * Gnu emacs. At least now I can read all my - * Gnumacs Babyl format mail files! + * GNU Emacs. At least now I can read all my + * GNU Emacs Babyl format mail files! * * it's not much but it's free! * @@ -18,6 +19,13 @@ /* Made conformant to the GNU coding standards January, 1995 by Francesco Potorti` . */ +#ifdef HAVE_CONFIG_H +#include +/* On some systems, Emacs defines static as nothing for the sake + of unexec. We don't want that here since we don't use unexec. */ +#undef static +#endif + #include #include #include @@ -26,13 +34,6 @@ #include #endif -#ifdef HAVE_CONFIG_H -#include -/* On some systems, Emacs defines static as nothing for the sake - of unexec. We don't want that here since we don't use unexec. */ -#undef static -#endif - #undef TRUE #define TRUE 1 #undef FALSE @@ -88,6 +89,7 @@ struct option longopts[] = extern int optind; +int main (argc, argv) int argc; char **argv; @@ -166,7 +168,7 @@ main (argc, argv) p = strtok (data.buffer, " ,\r\n\t"); labels = "X-Babyl-Labels: "; - while (p = strtok (NULL, " ,\r\n\t")) + while ((p = strtok (NULL, " ,\r\n\t"))) labels = concat (labels, p, ", "); p = &labels[strlen (labels) - 2]; @@ -188,6 +190,8 @@ main (argc, argv) if (printing) puts (data.buffer); } + + return 0; } @@ -291,6 +295,7 @@ xrealloc (ptr, size) void fatal (message) + char *message; { fprintf (stderr, "%s: %s\n", progname, message); exit (BAD);