From: Paul Eggert <eggert@twinsun.com>
Date: Wed, 3 Dec 1997 07:11:43 +0000 (+0000)
Subject: (mbx_write) [MAIL_USE_POP]: Disable the code which quotes with a
X-Git-Tag: emacs-20.3~2686
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d04f50310af5a829d7120e0d4dd3581669322e39;p=emacs.git

(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 866f0b08139..b7b51d35061 100644
--- 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)