Mercurial > emacs
changeset 14786:9da6f220abd8
(rmail-make-basic-summary-line): Limit line count
to reformatted header if we have reformatted it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 08 Mar 1996 05:02:06 +0000 |
| parents | e4a9806c1e83 |
| children | 0c751a0e86cd |
| files | lisp/mail/rmailsum.el |
| diffstat | 1 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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]")