Mercurial > emacs

changeset 14655:8246444fbe55

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(unforward-rmail-message): Handle any kind of forwarding delimiters.
author Richard M. Stallman <rms@gnu.org>
date Sat, 24 Feb 1996 00:36:29 +0000
parents 4db721fba60b
children 4e78b18f1f4f
files lisp/mail/undigest.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/undigest.el	Sat Feb 24 00:32:46 1996 +0000
+++ b/lisp/mail/undigest.el	Sat Feb 24 00:36:29 1996 +0000
@@ -142,10 +142,12 @@
   (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)