Mercurial > emacs
changeset 52683:6b76116caa09
(rmail-make-summary-line-1): Change comma after last label to a space.
(rmail-summary-font-lock-keywords): Adapt to that change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 30 Sep 2003 12:43:49 +0000 |
| parents | a7331078ec76 |
| children | 3c1324a5f1d5 |
| files | lisp/mail/rmailsum.el |
| diffstat | 1 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el Tue Sep 30 12:42:56 2003 +0000 +++ b/lisp/mail/rmailsum.el Tue Sep 30 12:43:49 2003 +0000 @@ -51,7 +51,7 @@ ("^.....-.*" . font-lock-type-face) ; Unread. ;; Neither of the below will be highlighted if either of the above are: ("^.....[^D-] \\(......\\)" 1 font-lock-keyword-face) ; Date. - ("{ \\([^\n}]+\\),}" 1 font-lock-comment-face)) ; Labels. + ("{ \\([^\n}]+\\) }" 1 font-lock-comment-face)) ; Labels. "Additional expressions to highlight in Rmail Summary mode.") ;; Entry points for making a summary buffer. @@ -300,8 +300,12 @@ "" (concat "{" (buffer-substring (point) - (progn (end-of-line) (point))) - "} "))))) + (progn (end-of-line) + (backward-char) + (if (looking-at ",") + (point) + (1+ (point))))) + " } "))))) (line (progn (forward-line 1)