Commit ace0f471 authored by Chong Yidong's avatar Chong Yidong
Browse files

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

parent 45ce0616
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment