(unforward-rmail-message): Simplified. No functional change.

diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el
index 1bfd1d1e8bfa4683d023f4f3347995f25843f5b0..6176f0b4fcd5ad95518246eb6a8c8146b9c06e7c 100644 (file)
--- 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\\)*"