Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
88158:408bd18a297c | 88159:052f90cd157d |
---|---|
1080 (> total 0)) | 1080 (> total 0)) |
1081 (progn (message "No following message") | 1081 (progn (message "No following message") |
1082 (goto-char (point-max)) | 1082 (goto-char (point-max)) |
1083 (rmail-summary-goto-msg nil nowarn skip-rmail))) | 1083 (rmail-summary-goto-msg nil nowarn skip-rmail))) |
1084 (goto-char (point-min)) | 1084 (goto-char (point-min)) |
1085 (if (not (re-search-forward (format "^%4d[^0-9]" n) nil t)) | 1085 (if (not (re-search-forward (format "^%5d[^0-9]" n) nil t)) |
1086 (progn (or nowarn (message "Message %d not found" n)) | 1086 (progn (or nowarn (message "Message %d not found" n)) |
1087 (setq n curmsg) | 1087 (setq n curmsg) |
1088 (setq message-not-found t) | 1088 (setq message-not-found t) |
1089 (goto-char cur))) | 1089 (goto-char cur))) |
1090 (beginning-of-line) | 1090 (beginning-of-line) |
1668 (defun rmail-summary-get-line-count (n) | 1668 (defun rmail-summary-get-line-count (n) |
1669 "Return a string containing the count of lines in message N for the | 1669 "Return a string containing the count of lines in message N for the |
1670 summary buffer if the User has enabled line counts, otherwise return | 1670 summary buffer if the User has enabled line counts, otherwise return |
1671 an empty string." | 1671 an empty string." |
1672 (if rmail-summary-line-count-flag | 1672 (if rmail-summary-line-count-flag |
1673 (format "[%s]" (rmail-desc-get-line-count n)) | 1673 (let ((lines (rmail-desc-get-line-count n))) |
1674 (format (cond ((<= lines 9) " [%d]") | |
1675 ((<= lines 99) " [%d]") | |
1676 ((<= lines 999) " [%3d]") | |
1677 (t "[%d]")) | |
1678 lines)) | |
1674 "")) | 1679 "")) |
1675 | 1680 |
1676 (defun rmail-summary-get-summary-attributes (n) | 1681 (defun rmail-summary-get-summary-attributes (n) |
1677 "Return the attribute character codes to use in the summary buffer | 1682 "Return the attribute character codes to use in the summary buffer |
1678 for message N: `-' for an unseen message, `D' for a message marked | 1683 for message N: `-' for an unseen message, `D' for a message marked |
1687 (or (rmail-desc-get-attr-code rmail-desc-stored-index n) " "))) | 1692 (or (rmail-desc-get-attr-code rmail-desc-stored-index n) " "))) |
1688 | 1693 |
1689 (defun rmail-summary-get-summary (n) | 1694 (defun rmail-summary-get-summary (n) |
1690 "Return a summary line for message N." | 1695 "Return a summary line for message N." |
1691 (funcall rmail-summary-line-decoder | 1696 (funcall rmail-summary-line-decoder |
1692 (format "%4s%s%6s %25s %s %s\n" | 1697 (format "%5s%s%6s %25s %s %s\n" |
1693 n | 1698 n |
1694 (rmail-summary-get-summary-attributes n) | 1699 (rmail-summary-get-summary-attributes n) |
1695 (concat (rmail-desc-get-day-number n) "-" | 1700 (concat (rmail-desc-get-day-number n) "-" |
1696 (rmail-desc-get-month n)) | 1701 (rmail-desc-get-month n)) |
1697 (rmail-desc-get-sender n) | 1702 (rmail-desc-get-sender n) |