Mercurial > emacs

diff lib-src/movemail.c @ 20387:4c524f5214ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mbx_write) [MAIL_USE_POP]: Disable the code which quotes with a '>' any lines starting with "From " read from the POP server, but leave the code in place, wrapped in #ifdef MOVEMAIL_QUOTE_POP_FROM_LINES, in case we have to restore it later because it turns out that something is depending on it. Change suggested by Paul Eggert <eggert@twinsun.com>. Convert the character \037 (^_) at the beginning of a line into the character '^' followed by the character '_', because otherwise Emacs can't parse the resulting file as a valid BABYL file. Change suggested by Paul Eggert <eggert@twinsun.com>.
author Paul Eggert <eggert@twinsun.com>
date Wed, 03 Dec 1997 07:11:43 +0000
parents d3d968d0773a
children 7e1538a45702
line wrap: on
line diff
--- a/lib-src/movemail.c	Mon Dec 01 14:22:04 1997 +0000
+++ b/lib-src/movemail.c	Wed Dec 03 07:11:43 1997 +0000
@@ -830,11 +830,20 @@
      char *line;
      FILE *mbf;
 {
+#ifdef MOVEMAIL_QUOTE_POP_FROM_LINES
   if (IS_FROM_LINE (line))
     {
       if (fputc ('>', mbf) == EOF)
 	return (NOTOK);
     }
+#endif
+  if (line[0] == '\037')
+    {
+      if (fputs ("^_", mbf) == EOF)
+	return (NOTOK);
+      line++;
+      len--;
+    }
   if (fputs (line, mbf) == EOF) 
     return (NOTOK);
   if (fputc (0x0a, mbf) == EOF)