Mercurial > emacs
diff lisp/mail/rmailsum.el @ 88159:052f90cd157d
*** empty log message ***
author | Henrik Enberg <henrik.enberg@telia.com> |
---|---|
date | Mon, 16 Jan 2006 03:57:31 +0000 |
parents | d7ddb3e565de |
children | a271a865e911 |
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el Mon Jan 16 01:35:11 2006 +0000 +++ b/lisp/mail/rmailsum.el Mon Jan 16 03:57:31 2006 +0000 @@ -1082,7 +1082,7 @@ (goto-char (point-max)) (rmail-summary-goto-msg nil nowarn skip-rmail))) (goto-char (point-min)) - (if (not (re-search-forward (format "^%4d[^0-9]" n) nil t)) + (if (not (re-search-forward (format "^%5d[^0-9]" n) nil t)) (progn (or nowarn (message "Message %d not found" n)) (setq n curmsg) (setq message-not-found t) @@ -1670,7 +1670,12 @@ summary buffer if the User has enabled line counts, otherwise return an empty string." (if rmail-summary-line-count-flag - (format "[%s]" (rmail-desc-get-line-count n)) + (let ((lines (rmail-desc-get-line-count n))) + (format (cond ((<= lines 9) " [%d]") + ((<= lines 99) " [%d]") + ((<= lines 999) " [%3d]") + (t "[%d]")) + lines)) "")) (defun rmail-summary-get-summary-attributes (n) @@ -1689,7 +1694,7 @@ (defun rmail-summary-get-summary (n) "Return a summary line for message N." (funcall rmail-summary-line-decoder - (format "%4s%s%6s %25s %s %s\n" + (format "%5s%s%6s %25s %s %s\n" n (rmail-summary-get-summary-attributes n) (concat (rmail-desc-get-day-number n) "-"