(rmail-show-message): Unquote From lines.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index a1207e6d18e0862926ec54fd7c94c3c523835783..7f2ef8a2cf45a82408e6b4a793758937f317fb01 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2539,9 +2539,15 @@ The current mail message becomes the message displayed."
             (t))
            (rmail-decode-region (point-min) (point-max)
                                 coding-system view-buf)))
-       ;; Copy the headers to the front of the message view buffer.
        (with-current-buffer rmail-view-buffer
+         ;; Unquote quoted From lines
+         (goto-char (point-min))
+         (while (re-search-forward "^>+From " nil t)
+           (beginning-of-line)
+           (delete-char 1)
+           (forward-line))
          (goto-char (point-min)))
+       ;; Copy the headers to the front of the message view buffer.
        (rmail-copy-headers beg end)
        ;; Add the separator (blank line) between headers and body;
        ;; highlight the message, activate any URL like text and add