From 76e230b20fb0e33aba93912ce77ff52115e28b66 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 24 Feb 1996 00:36:29 +0000 Subject: [PATCH] (unforward-rmail-message): Handle any kind of forwarding delimiters. --- lisp/mail/undigest.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el index 814198f3baf..d4975b1daad 100644 --- a/lisp/mail/undigest.el +++ b/lisp/mail/undigest.el @@ -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) -- 2.39.2