diff options
| author | Richard M. Stallman <rms@gnu.org> | 2003-09-30 12:43:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2003-09-30 12:43:49 +0000 |
| commit | d8562b03a631e6fc542830f0fef0908474eca364 (patch) | |
| tree | d314766d8f7c5065b8bdd1368fb9c16864de4e10 /lisp | |
| parent | 830144d5961b15d110269ea2d78eeacd380dd191 (diff) | |
| download | emacs-d8562b03a631e6fc542830f0fef0908474eca364.tar.gz | |
(rmail-make-summary-line-1): Change comma after last label to a space.
(rmail-summary-font-lock-keywords): Adapt to that change.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/rmailsum.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 3affdf88bb5..cd8d7d67aa4 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -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 @@ By default, `identity' is set." "" (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) |