Mercurial > emacs

comparison lisp/mail/rmailsum.el @ 88172:7bba2fede2be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-summary-font-lock-keywords): Fix typo for labels. (rmail-summary-get-summary): Add labels again.
author Alex Schroeder <alex@gnu.org>
date Mon, 16 Jan 2006 23:09:30 +0000
parents c506eb58293b
children 62610a0cbb6e
comparison
equal deleted inserted replaced
88171:4824ab00dc3e 88172:7bba2fede2be
60 (defvar rmail-summary-font-lock-keywords 60 (defvar rmail-summary-font-lock-keywords
61 '(("^.....D.*" . font-lock-string-face) ; Deleted. 61 '(("^.....D.*" . font-lock-string-face) ; Deleted.
62 ("^....-.*" . font-lock-type-face) ; Unread. 62 ("^....-.*" . font-lock-type-face) ; Unread.
63 ;; Neither of the below will be highlighted if either of the above are: 63 ;; Neither of the below will be highlighted if either of the above are:
64 ("^.....[^D-]....\\(......\\)" 1 font-lock-keyword-face) ; Date. 64 ("^.....[^D-]....\\(......\\)" 1 font-lock-keyword-face) ; Date.
65 ("{ \\([^\n}]+\\),}" 1 font-lock-comment-face)) ; Labels. 65 ("{ \\([^\n}]+\\) }" 1 font-lock-comment-face)) ; Labels.
66 "Additional expressions to highlight in Rmail Summary mode.") 66 "Additional expressions to highlight in Rmail Summary mode.")
67 67
68 (defvar rmail-summary-redo nil 68 (defvar rmail-summary-redo nil
69 "Private storage for Rmail summary history.") 69 "Private storage for Rmail summary history.")
70 70
1668 (or (rmail-desc-get-attr-code rmail-desc-edited-index n) " ") 1668 (or (rmail-desc-get-attr-code rmail-desc-edited-index n) " ")
1669 (or (rmail-desc-get-attr-code rmail-desc-stored-index n) " "))) 1669 (or (rmail-desc-get-attr-code rmail-desc-stored-index n) " ")))
1670 1670
1671 (defun rmail-summary-get-summary (n) 1671 (defun rmail-summary-get-summary (n)
1672 "Return a summary line for message N." 1672 "Return a summary line for message N."
1673 (funcall rmail-summary-line-decoder 1673 (let* ((keywords (rmail-desc-get-keywords n))
1674 (format "%5s%s%6s %25s%s %s\n" 1674 (str (if keywords
1675 n 1675 (concat "{ " (mapconcat 'identity keywords " ") " } ")
1676 (rmail-summary-get-summary-attributes n) 1676 "")))
1677 (concat (rmail-desc-get-day-number n) "-" 1677 (funcall rmail-summary-line-decoder
1678 (rmail-desc-get-month n)) 1678 (format "%5s%s%6s %25s%s %s\n"
1679 (rmail-desc-get-sender n) 1679 n
1680 (rmail-summary-get-line-count n) 1680 (rmail-summary-get-summary-attributes n)
1681 (rmail-desc-get-subject n)))) 1681 (concat (rmail-desc-get-day-number n) "-"
1682 (rmail-desc-get-month n))
1683 (rmail-desc-get-sender n)
1684 (rmail-summary-get-line-count n)
1685 (concat str (rmail-desc-get-subject n))))))
1682 1686
1683 (defun rmail-summary-update-attribute (attr-index n) 1687 (defun rmail-summary-update-attribute (attr-index n)
1684 "Update the attribute denoted by ATTR-INDEX in message N." 1688 "Update the attribute denoted by ATTR-INDEX in message N."
1685 (save-excursion 1689 (save-excursion
1686 (let (offset) 1690 (let (offset)