2002-08-04 Andrew Choi <akochoi@shaw.ca>

[gnu-emacs] / lib-src / b2m.c

diff --git a/lib-src/b2m.c b/lib-src/b2m.c
index 6ca8031b0e99014da41f9a8e61c75d48e646d6b5..05caa1424e0046eb362f1f121d9b0b85c7c4ef10 100644 (file)
--- a/lib-src/b2m.c
+++ b/lib-src/b2m.c
@@ -1,5 +1,6 @@
 /*
  * b2m - a filter for Babyl -> Unix mail files
+ * The copyright on this file has been disclaimed.
  *
  * usage:      b2m < babyl > mailbox
  *
@@ -167,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];