diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-03-08 05:02:06 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-03-08 05:02:06 +0000 |
commit | 8536777e3d855a7bbe52aa1410c89689406aa737 (patch) | |
tree | ff27e90c70539c9ceff3e45d6eb7918ed26c19f7 /lisp/mail/rmailsum.el | |
parent | ef460b65dcac62f1f3529ecc08dee4352531c77e (diff) | |
download | emacs-8536777e3d855a7bbe52aa1410c89689406aa737.tar.gz |
(rmail-make-basic-summary-line): Limit line count
to reformatted header if we have reformatted it.
Diffstat (limited to 'lisp/mail/rmailsum.el')
-rw-r--r-- | lisp/mail/rmailsum.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 799f14d0bb8..7cfe5d53c15 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -381,8 +381,15 @@ nil for FUNCTION means all messages." (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]") |