Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki 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)