From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 4 Oct 1996 18:39:31 +0000 (+0000)
Subject: (rmail-summary-line-count-p): New variable.
X-Git-Tag: emacs-20.1~3556
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea7bddc4ce496a4c6342dd12977f046f8674425e;p=emacs.git

(rmail-summary-line-count-p): New variable.
(rmail-make-basic-summary-line): Optionally exclude the line count.
---

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 0ce313d0fe7..06540e16370 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -37,6 +37,10 @@
 (defvar rmail-summary-scroll-between-messages t
   "*Non-nil means Rmail summary scroll commands move between messages.")
 
+;;;###autoload
+(defvar rmail-summary-line-count-p t
+  "*Non-nil if Rmail summary should show the number of lines in each message.")
+
 (defvar rmail-summary-font-lock-keywords
   '(("^....D.*" . font-lock-string-face)			; Deleted.
     ("^....-.*" . font-lock-type-face)				; Unread.
@@ -404,24 +408,26 @@ nil for FUNCTION means all messages."
 						     (- len 25))
 						    (t (- mch 14))))
 				     (min len (+ lo 25))))))))
-	  (save-excursion
-	    (save-restriction
-	      (widen)
-	      (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]")
-			 ((<= lines   999) " [%3d]")
-			 (t		    "[%d]"))
-			lines))))
+          (if rmail-summary-line-count-p
+	      (save-excursion
+		(save-restriction
+		  (widen)
+		  (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]")
+			     ((<= lines   999) " [%3d]")
+			     (t		    "[%d]"))
+			    lines))))
+            " ")
 	  " #"				;The # is part of the format.
 	  (if (re-search-forward "^Subject:" nil t)
 	      (progn (skip-chars-forward " \t")