* lisp/mail/unrmail.el (unrmail): Do not mangle the mbox From line

fixes 2012-12-07 change.

Fixes: debbugs:13499

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 34dbe74f23ffc79b9135c1cc32da4bdacde74f25..bcab1e746a589ffdd9f347f28185f6241f87f6d8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-01-19  Glenn Morris  <rgm@gnu.org>
+
+       * mail/unrmail.el (unrmail): Do not mangle the mbox From line;
+       fixes 2012-12-07 change.  (Bug#13499)
+
 2013-01-19  Leo Liu  <sdl.web@gmail.com>
 
        * dired.el (dired-get-marked-files): Prune erroneous values due to

diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el
index 85e8bb4f863e0130b213be7f6999b4e673567f3b..406009af5e29c842208e47f2910f709b6717c213 100644 (file)
--- a/lisp/mail/unrmail.el
+++ b/lisp/mail/unrmail.el
@@ -241,6 +241,7 @@ The variable `unrmail-mbox-format' controls which mbox format to use."
            (when keywords
              (insert "X-RMAIL-KEYWORDS: " keywords "\n"))
            (goto-char (point-min))
+           (forward-line 1)            ; skip `From ' line
            ;; Convert From to >From, etc.
            (let ((case-fold-search nil)
                  (fromline (if (eq 'mboxrd unrmail-mbox-format)