(undigestify-rmail-message): Scan back as far as start

of message, to find end of digest.

1 files changed, 4 insertions, 3 deletions

diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el
index b80a5f4a48b..83ea58b3b63 100644
--- a/lisp/mail/undigest.el
+++ b/lisp/mail/undigest.el
@@ -55,10 +55,12 @@ Leaves original message, deleted, before the undigestified messages."
 			      (point-max))
 	    (let* ((fill-prefix "")
 		   (case-fold-search t)
+		   start
 		   (digest-name
 		    (mail-strip-quoted-names
 		     (or (save-restriction
 			   (search-forward "\n\n")
+			   (setq start (point))
 			   (narrow-to-region (point-min) (point))
 			   (goto-char (point-max))
 			   (or (mail-fetch-field "Reply-To")
@@ -69,11 +71,10 @@ Leaves original message, deleted, before the undigestified messages."
 	      (save-excursion
 		(goto-char (point-max))
 		(skip-chars-backward " \t\n")
-		(let ((count 10) found)
+		(let (found)
 		  ;; compensate for broken un*x digestifiers.  Sigh Sigh.
-		  (while (and (> count 0) (not found))
+		  (while (and (> (point) start) (not found))
 		    (forward-line -1)
-		    (setq count (1- count))
 		    (if (looking-at (concat "End of.*Digest.*\n"
 					    (regexp-quote "*********") "*"
 					    "\\(\n------*\\)*"))