Mercurial > emacs
diff lisp/mail/rmailsum.el @ 89909:68c22ea6027c
Sync to HEAD
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Fri, 16 Apr 2004 12:51:06 +0000 |
parents | 375f2633d815 |
children | f042e7c0fe20 |
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el Thu Apr 15 01:08:34 2004 +0000 +++ b/lisp/mail/rmailsum.el Fri Apr 16 12:51:06 2004 +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) @@ -1070,7 +1074,8 @@ (if (< n 1) (progn (message "No preceding message") (setq n 1))) - (if (> n total) + (if (and (> n total) + (> total 0)) (progn (message "No following message") (goto-char (point-max)) (rmail-summary-goto-msg nil nowarn skip-rmail))) @@ -1650,4 +1655,5 @@ (provide 'rmailsum) +;;; arch-tag: 556079ee-75c1-47f5-9884-2e0a0bc6c5a1 ;;; rmailsum.el ends here