mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-16 17:19:41 +00:00
Code Issues Releases Activity

(unforward-rmail-message): Handle any kind of forwarding delimiters.

Browse Source
This commit is contained in:
Richard M. Stallman 1996-02-24 00:36:29 +00:00
parent 11d4e02fcf
commit 76e230b20f
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/mail/undigest.el
View File

@ -142,10 +142,12 @@ following the containing message."
(goto-char (point-min))
(let (beg end (buffer-read-only nil) msg-string who-forwarded-it)
(setq who-forwarded-it (mail-fetch-field "From"))
(if (re-search-forward "^-* Start of forwarded message -*$" nil t)
(setq beg (1+ (point)))
(if (re-search-forward "^----" nil t)
nil
(error "No forwarded message"))
(if (re-search-forward "^-* End of forwarded message -*$" nil t)
(forward-line 1)
(setq beg (point))
(if (re-search-forward "^----" nil t)
(setq end (match-beginning 0))
(error "No terminator for forwarded message"))
(widen)