diff options
| author | Francesco Potortì <[email protected]> | 2003-01-08 09:11:23 +0000 |
|---|---|---|
| committer | Francesco Potortì <[email protected]> | 2003-01-08 09:11:23 +0000 |
| commit | baad7c1329ed68e3a6b513c6f8cb94f1a939426b (patch) | |
| tree | dd74c4ba00a274c846d8ab31fb140d12e7ca64d6 /lisp/mail | |
| parent | d56c1d2d40f74977782fec72b4918ce24dbef0aa (diff) | |
(unforward-rmail-message): Simplified. No functional change.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/undigest.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el index 1bfd1d1e8b..6176f0b4fc 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\\)*" |