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

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       09/01/17 17:29:25

Modified files:
        lisp/mail      : pmail.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/pmail.el?cvsroot=emacs&r1=1.47&r2=1.48

Patches:
Index: pmail.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/pmail.el,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -b -r1.47 -r1.48
--- pmail.el    10 Jan 2009 21:42:11 -0000      1.47
+++ pmail.el    17 Jan 2009 17:29:25 -0000      1.48
@@ -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 @@
          (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 @@
   "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