diff options
author | Francesco Potortì <pot@gnu.org> | 2003-01-07 14:34:44 +0000 |
---|---|---|
committer | Francesco Potortì <pot@gnu.org> | 2003-01-07 14:34:44 +0000 |
commit | 59cb5b9b75107883a55655b231c10c8cbb56334a (patch) | |
tree | 87435720aadf0f5637617b9b809bc4793b1e8c14 /lisp/mail/undigest.el | |
parent | 2752d2f4cfcedf916717eaf884329b9e23d26564 (diff) | |
download | emacs-59cb5b9b75107883a55655b231c10c8cbb56334a.tar.gz |
(unforward-rmail-message): Skip all newlines
after the initial separator.
(unforward-rmail-message): Forwarded-From: and Forwarded-Date:
instead of Forwarded-from: and Forwarded-date:.
Diffstat (limited to 'lisp/mail/undigest.el')
-rw-r--r-- | lisp/mail/undigest.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el index ff4673901b2..1bfd1d1e8bf 100644 --- a/lisp/mail/undigest.el +++ b/lisp/mail/undigest.el @@ -234,6 +234,7 @@ following the containing message." (cond ((re-search-forward "^----.*\\([Ff]orwarded\\|[Oo]riginal\\).*[Mm]essage" nil t) (forward-line 1) + (skip-chars-forward "\n") (setq beg (point)) (setq end (if (re-search-forward "^----.*[^- \t\n]" nil t) (match-beginning 0) (point-max))) @@ -269,8 +270,8 @@ following the containing message." (narrow-to-region (point) (point)) (insert rmail-mail-separator) (narrow-to-region (point) (point)) - (insert "Forwarded-from: " forwarded-from "\n") - (insert "Forwarded-date: " forwarded-date "\n") + (insert "Forwarded-From: " forwarded-from "\n") + (insert "Forwarded-Date: " forwarded-date "\n") (insert forward-msg) (save-restriction (goto-char (point-min)) |