Mercurial > emacs

changeset 13080:21a1494b450c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(undigestify-rmail-message): Scan back as far as start of message, to find end of digest.
author Richard M. Stallman <rms@gnu.org>
date Mon, 25 Sep 1995 18:40:24 +0000
parents 6a91723f2a8c
children eb159c99326b
files lisp/mail/undigest.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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------*\\)*"))