From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 17 Jan 2009 17:29:25 +0000 (+0000)
Subject: (buffer-swapped-with): Mark as permanent local.
X-Git-Tag: emacs-pretest-23.0.90~399
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fdcab4274673a2a7f15a5c9fa0a25e48585773fb;p=emacs.git

(buffer-swapped-with): Mark as permanent local.
(pmail-set-message-counters): Set pmail-deleted-vector from msg hdrs.
(pmail-auto-file): Simplify a regexp.
---

diff --git a/lisp/mail/pmail.el b/lisp/mail/pmail.el
index 03296e99f57..75e0aff1927 100644
--- a/lisp/mail/pmail.el
+++ b/lisp/mail/pmail.el
@@ -50,8 +50,8 @@
   "Buffer that this buffer's contents are temporarily swapped with.
 You should only set this variable in file-visiting buffers,
 because it only affects how to save the buffer in its file.")
-
 (make-variable-buffer-local 'buffer-swapped-with)
+(put 'buffer-swapped-with 'permanent-local t)
 
 (defadvice basic-save-buffer
   (around check-swap activate)
@@ -2352,6 +2352,10 @@ Output a helpful message unless NOMSG is non-nil."
 	  (while (<= i pmail-total-messages)
 	    (aset pmail-msgref-vector i (list i))
 	    (setq i (1+ i))))
+	(let ((i 0))
+	  (while (<= i pmail-total-messages)
+	    (pmail-set-message-deleted-p i (pmail-message-attr-p i ".D"))
+	    (setq i (1+ i))))
 	(message "Counting messages...done")))))
 
 
@@ -2688,7 +2692,7 @@ copy all header fields whose names do not match
   "Automatically move a message into a sub-folder based on criteria.
 Called when a new message is displayed."
   (if (or (zerop pmail-total-messages)
-	  (pmail-message-attr-p pmail-current-message "...F...")
+	  (pmail-message-attr-p pmail-current-message "...F")
 	  (not (string= (buffer-file-name)
 			(expand-file-name pmail-file-name))))
       ;; Do nothing if the message has already been filed or if there