[Emacs-diffs] emacs/lisp/mail rmail.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/01/29 03:01:44

Modified files:
        lisp/mail      : rmail.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.476&r2=1.477

Patches:
Index: rmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.476
retrieving revision 1.477
diff -u -b -r1.476 -r1.477
--- rmail.el    29 Jan 2009 02:46:21 -0000      1.476
+++ rmail.el    29 Jan 2009 03:01:44 -0000      1.477
@@ -2539,9 +2539,15 @@
             (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