diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-10-04 18:39:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-10-04 18:39:31 +0000 |
| commit | ea7bddc4ce496a4c6342dd12977f046f8674425e (patch) | |
| tree | f215214fd6980f4fed152ae11e25ba1f5aa8521b /lisp/mail | |
| parent | 47afc068c062f3fbc04e6938705ded7fe468eecf (diff) | |
| download | emacs-ea7bddc4ce496a4c6342dd12977f046f8674425e.tar.gz | |
(rmail-summary-line-count-p): New variable.
(rmail-make-basic-summary-line): Optionally exclude the line count.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rmailsum.el | 42 |
1 files changed, 24 insertions, 18 deletions
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") |