(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>.

diff --git a/lib-src/movemail.c b/lib-src/movemail.c
index 866f0b0..b7b51d3 100644 (file)
--- a/lib-src/movemail.c
+++ b/lib-src/movemail.c
@@ -830,11 +830,20 @@ mbx_write (line, mbf)
      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)