# HG changeset patch
# User Francesco Potort��� <pot@gnu.org>
# Date 1042017083 0
# Node ID 39d762048cdd70aa1af02f50cd317f3b2bf4a81c
# Parent  d9f8fdaf855801d3ee90ab93991538cf01f629ce
(unforward-rmail-message): Simplified.  No functional change.

diff -r d9f8fdaf8558 -r 39d762048cdd lisp/mail/undigest.el
--- 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\\)*"