Mercurial > emacs

changeset 101628:a00762725924

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-show-message): Unquote From lines.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 29 Jan 2009 03:01:44 +0000
parents e981ad018a7c
children caac907da88d
files lisp/mail/rmail.el
diffstat 1 files changed, 8 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Thu Jan 29 03:00:26 2009 +0000
+++ b/lisp/mail/rmail.el	Thu Jan 29 03:01:44 2009 +0000
@@ -2539,9 +2539,15 @@
 	     (t))
 	    (rmail-decode-region (point-min) (point-max)
 				 coding-system view-buf)))
+	(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.
-	(with-current-buffer rmail-view-buffer
-	  (goto-char (point-min)))
 	(rmail-copy-headers beg end)
 	;; Add the separator (blank line) between headers and body;
 	;; highlight the message, activate any URL like text and add