Mercurial > emacs
changeset 49097:217ecd0c470e
(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:.
| author | Francesco Potortì <pot@gnu.org> |
|---|---|
| date | Tue, 07 Jan 2003 14:34:44 +0000 |
| parents | 63bc313a5a53 |
| children | df17d939ba8b |
| files | lisp/mail/undigest.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/undigest.el Tue Jan 07 14:33:59 2003 +0000 +++ b/lisp/mail/undigest.el Tue Jan 07 14:34:44 2003 +0000 @@ -234,6 +234,7 @@ (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 @@ (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))