# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 812054424 0
# Node ID 21a1494b450cff5d70b598d7421cc1b9dfef1feb
# Parent  6a91723f2a8ca62a1be40cfa81f0fda78ebf2a45
(undigestify-rmail-message): Scan back as far as start
of message, to find end of digest.

diff -r 6a91723f2a8c -r 21a1494b450c lisp/mail/undigest.el
--- a/lisp/mail/undigest.el	Mon Sep 25 18:39:31 1995 +0000
+++ b/lisp/mail/undigest.el	Mon Sep 25 18:40:24 1995 +0000
@@ -55,10 +55,12 @@
 			      (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 @@
 	      (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------*\\)*"))