# HG changeset patch
# User Paul Eggert <eggert@twinsun.com>
# Date 881133103 0
# Node ID 4c524f5214ce865dae4897d132140c2fcff7518b
# Parent  25ca60b3ca094c78150a74c0bff764911f5f6e28
(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 -r 25ca60b3ca09 -r 4c524f5214ce lib-src/movemail.c
--- 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)