[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/mail pmailsum.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] emacs/lisp/mail pmailsum.el |
Date: |
Tue, 09 Dec 2008 19:35:33 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 08/12/09 19:35:33
Modified files:
lisp/mail : pmailsum.el
Log message:
(pmail-summary-header): Deleted.
(pmail-get-create-summary-line): Don't insert a summary line into
the file.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/pmailsum.el?cvsroot=emacs&r1=1.10&r2=1.11
Patches:
Index: pmailsum.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/pmailsum.el,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -b -r1.10 -r1.11
--- pmailsum.el 3 Dec 2008 02:40:46 -0000 1.10
+++ pmailsum.el 9 Dec 2008 19:35:33 -0000 1.11
@@ -46,9 +46,6 @@
:type 'boolean
:group 'pmail-summary)
-(defconst pmail-summary-header "X-BABYL-V6-SUMMARY"
- "The header that stores the Pmail summary line.")
-
(defvar pmail-summary-font-lock-keywords
'(("^.....D.*" . font-lock-string-face) ; Deleted.
("^.....-.*" . font-lock-type-face) ;
Unread.
@@ -341,20 +338,15 @@
The current buffer contains the unrestricted message collection."
(let ((beg (pmail-msgbeg msgnum))
- (end (pmail-msgend msgnum))
- result)
+ (end (pmail-msgend msgnum)))
(goto-char beg)
(if (search-forward "\n\n" end t)
(save-restriction
(narrow-to-region beg (point))
;; Generate a status line from the message and put it in the
;; message.
- (setq result (mail-fetch-field pmail-summary-header))
- (unless result
- (setq result (pmail-create-summary msgnum))
- (pmail-add-header pmail-summary-header result)))
- (pmail-error-bad-format msgnum))
- result))
+ (pmail-create-summary msgnum))
+ (pmail-error-bad-format msgnum))))
(defun pmail-get-summary-labels ()
"Return a coded string wrapped in curly braces denoting the status labels.