summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2013-01-19 12:54:56 -0800
committerGlenn Morris <rgm@gnu.org>2013-01-19 12:54:56 -0800
commitc4d1e0c39c41ced76bf6e1d7abae4fc333ef2834 (patch)
tree6fcc553e6686db7a13ce84d38547335a83ff4479
parent795e7a5b3202851a89a042578ee572962a723d65 (diff)
* lisp/mail/unrmail.el (unrmail): Do not mangle the mbox From line
fixes 2012-12-07 change. Fixes: debbugs:13499
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/mail/unrmail.el1
2 files changed, 6 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 34dbe74f23..bcab1e746a 100644
--- 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 85e8bb4f86..406009af5e 100644
--- 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)