From 1b8d0b78a32234049277fcf91255412d9b6f6463 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 9 Dec 2008 19:35:33 +0000 Subject: [PATCH] (pmail-summary-header): Deleted. (pmail-get-create-summary-line): Don't insert a summary line into the file. --- lisp/mail/pmailsum.el | 14 +++----------- 1 file changed, 3 insertions(+), 11 deletions(-) diff --git a/lisp/mail/pmailsum.el b/lisp/mail/pmailsum.el index 60838fc943f..478bacc228b 100644 --- a/lisp/mail/pmailsum.el +++ b/lisp/mail/pmailsum.el @@ -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 @@ otherwise create it and store it in the message header. 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. -- 2.39.2