Mercurial > emacs

changeset 49109:39d762048cdd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(unforward-rmail-message): Simplified. No functional change.
author Francesco Potortì <pot@gnu.org>
date Wed, 08 Jan 2003 09:11:23 +0000
parents d9f8fdaf8558
children 756931f84374
files lisp/mail/undigest.el
diffstat 1 files changed, 2 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/undigest.el	Wed Jan 08 09:10:53 2003 +0000
+++ b/lisp/mail/undigest.el	Wed Jan 08 09:11:23 2003 +0000
@@ -243,13 +243,10 @@
 			"^- -" "-" (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\\)*"