[Emacs-diffs] Changes to emacs/lisp/mail/rmailsum.el

[Richard M. Stallman]

Index: emacs/lisp/mail/rmailsum.el
diff -c emacs/lisp/mail/rmailsum.el:1.129 emacs/lisp/mail/rmailsum.el:1.130
*** emacs/lisp/mail/rmailsum.el:1.129   Mon Sep  1 11:45:32 2003
--- emacs/lisp/mail/rmailsum.el Tue Sep 30 08:43:49 2003
***************
*** 51,57 ****
      ("^.....-.*" . 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.
    "Additional expressions to highlight in Rmail Summary mode.")
  
  ;; Entry points for making a summary buffer.
--- 51,57 ----
      ("^.....-.*" . 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.
    "Additional expressions to highlight in Rmail Summary mode.")
  
  ;; Entry points for making a summary buffer.
***************
*** 300,307 ****
                 ""
               (concat "{"
                       (buffer-substring (point)
!                                        (progn (end-of-line) (point)))
!                      "} ")))))
         (line
          (progn
            (forward-line 1)
--- 300,311 ----
                 ""
               (concat "{"
                       (buffer-substring (point)
!                                        (progn (end-of-line)
!                                               (backward-char)
!                                               (if (looking-at ",")
!                                                   (point)
!                                                 (1+ (point)))))
!                      " } ")))))
         (line
          (progn
            (forward-line 1)