From baad7c1329ed68e3a6b513c6f8cb94f1a939426b Mon Sep 17 00:00:00 2001 From: =?utf8?q?Francesco=20Potort=C3=AC?= Date: Wed, 8 Jan 2003 09:11:23 +0000 Subject: [PATCH] (unforward-rmail-message): Simplified. No functional change. --- lisp/mail/undigest.el | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el index 1bfd1d1e8bf..6176f0b4fcd 100644 --- a/lisp/mail/undigest.el +++ b/lisp/mail/undigest.el @@ -243,13 +243,10 @@ following the containing message." "^- -" "-" (buffer-substring beg end)))) ((and (re-search-forward "^\\(> ?\\)[a-zA-Z-]+: .*\n" nil t) (setq beg (match-beginning 0)) - (setq prefix (match-string 1)) + (setq prefix (match-string-no-properties 1)) (goto-char beg) (looking-at (concat "\\(" prefix ".+\n\\)*" - prefix "Date: .+\n" - "\\(" prefix ".+\n\\)*" - "\\(> ?\\)?\n" prefix)) - (goto-char beg) + prefix "Date: .")) (looking-at (concat "\\(" prefix ".+\n\\)*" prefix "From: .+\n" "\\(" prefix ".+\n\\)*" -- 2.39.2