[Emacs-diffs] emacs/lisp/mail pmailsum.el

[Chong Yidong]

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.