mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(unforward-rmail-message): Skip all newlines

Browse Source 
after the initial separator.
(unforward-rmail-message): Forwarded-From: and Forwarded-Date:
instead of Forwarded-from: and Forwarded-date:.
This commit is contained in:
Francesco Potortì 2003-01-07 14:34:44 +00:00
parent 2752d2f4cf
commit 59cb5b9b75
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/mail/undigest.el
View File

@ -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))