From: Francesco Potortì Date: Wed, 8 Jan 2003 09:11:23 +0000 (+0000) Subject: (unforward-rmail-message): Simplified. No functional change. X-Git-Tag: ttn-vms-21-2-B4~11776 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=baad7c1329ed68e3a6b513c6f8cb94f1a939426b;p=emacs.git (unforward-rmail-message): Simplified. No functional change. --- 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\\)*"