From: Chong Yidong <cyd@stupidchicken.com>
Date: Thu, 29 Jan 2009 03:01:44 +0000 (+0000)
Subject: (rmail-show-message): Unquote From lines.
X-Git-Tag: emacs-pretest-23.0.90~101
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ace0f471fb0708a9a91a678ef1b2e53a058163c4;p=emacs.git

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

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index a1207e6d18e..7f2ef8a2cf4 100644
--- 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