Mercurial > emacs
comparison lisp/mail/rmailsum.el @ 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 | 20f4c4a078b2 |
| children | 9dceb7afbb68 |
comparison
equal
deleted
inserted
replaced
| 14785:e4a9806c1e83 | 14786:9da6f220abd8 |
|---|---|
| 379 (t (- mch 14)))) | 379 (t (- mch 14)))) |
| 380 (min len (+ lo 25)))))))) | 380 (min len (+ lo 25)))))))) |
| 381 (save-excursion | 381 (save-excursion |
| 382 (save-restriction | 382 (save-restriction |
| 383 (widen) | 383 (widen) |
| 384 (let | 384 (let ((beg (rmail-msgbeg msgnum)) |
| 385 ((lines (count-lines (rmail-msgbeg msgnum) (rmail-msgend msgnum)))) | 385 (end (rmail-msgend msgnum)) |
| 386 lines) | |
| 387 (save-excursion | |
| 388 (goto-char beg) | |
| 389 ;; Count only lines in the reformatted header, | |
| 390 ;; if we have reformatted it. | |
| 391 (search-forward "\n*** EOOH ***\n" end t) | |
| 392 (setq lines (count-lines (point) end))) | |
| 386 (format (cond | 393 (format (cond |
| 387 ((<= lines 9) " [%d]") | 394 ((<= lines 9) " [%d]") |
| 388 ((<= lines 99) " [%d]") | 395 ((<= lines 99) " [%d]") |
| 389 ((<= lines 999) " [%3d]") | 396 ((<= lines 999) " [%3d]") |
| 390 (t "[%d]")) | 397 (t "[%d]")) |