[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/mail pmail.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] emacs/lisp/mail pmail.el |
Date: |
Sat, 17 Jan 2009 17:29:25 +0000 |
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
- [Emacs-diffs] emacs/lisp/mail pmail.el, Richard M. Stallman, 2009/01/05
- [Emacs-diffs] emacs/lisp/mail pmail.el, Richard M. Stallman, 2009/01/10
- [Emacs-diffs] emacs/lisp/mail pmail.el, Richard M. Stallman, 2009/01/10
- [Emacs-diffs] emacs/lisp/mail pmail.el,
Richard M. Stallman <=
- [Emacs-diffs] emacs/lisp/mail pmail.el, Glenn Morris, 2009/01/19
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2009/01/21
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2009/01/22