# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 826261326 0
# Node ID 9da6f220abd8743101bfcd10af784ff27fce69e7
# Parent  e4a9806c1e83069f13cba814916ddc258f09f03a
(rmail-make-basic-summary-line): Limit line count
to reformatted header if we have reformatted it.

diff -r e4a9806c1e83 -r 9da6f220abd8 lisp/mail/rmailsum.el
--- a/lisp/mail/rmailsum.el	Fri Mar 08 03:51:46 1996 +0000
+++ b/lisp/mail/rmailsum.el	Fri Mar 08 05:02:06 1996 +0000
@@ -381,8 +381,15 @@
 	  (save-excursion
 	    (save-restriction
 	      (widen)
-	      (let
-		  ((lines (count-lines (rmail-msgbeg msgnum) (rmail-msgend msgnum))))
+	      (let ((beg (rmail-msgbeg msgnum))
+		    (end (rmail-msgend msgnum))
+		    lines)
+		(save-excursion
+		  (goto-char beg)
+		  ;; Count only lines in the reformatted header,
+		  ;; if we have reformatted it.
+		  (search-forward "\n*** EOOH ***\n" end t)
+		  (setq lines (count-lines (point) end)))
 		(format (cond
 			 ((<= lines     9) "   [%d]")
 			 ((<= lines    99) "  [%d]")