# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1228851333 0
# Node ID c9bb16a15af495305a2a5e460177fc03c31c356a
# Parent  eb90f68074a8e92f8f6fd3386c9079e0bf26621a
(pmail-summary-header): Deleted.
(pmail-get-create-summary-line): Don't insert a summary line into
the file.

diff -r eb90f68074a8 -r c9bb16a15af4 lisp/mail/pmailsum.el
--- a/lisp/mail/pmailsum.el	Tue Dec 09 19:35:06 2008 +0000
+++ b/lisp/mail/pmailsum.el	Tue Dec 09 19:35:33 2008 +0000
@@ -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.