[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/mail pmail.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] emacs/lisp/mail pmail.el |
Date: |
Mon, 15 Dec 2008 15:06:50 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 08/12/15 15:06:50
Modified files:
lisp/mail : pmail.el
Log message:
(pmail-search): Call pmail-swap-buffers-maybe.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/pmail.el?cvsroot=emacs&r1=1.30&r2=1.31
Patches:
Index: pmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/pmail.el,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -b -r1.30 -r1.31
--- pmail.el 15 Dec 2008 14:56:06 -0000 1.30
+++ pmail.el 15 Dec 2008 15:06:50 -0000 1.31
@@ -3128,9 +3128,16 @@
"Erase deleted messages from Pmail file and summary buffer."
(interactive)
(when (pmail-expunge-confirmed)
+ (let ((old-total pmail-total-messages)
+ (opoint (with-current-buffer pmail-buffer
+ (when pmail-buffers-swapped-p
+ (point)))))
(pmail-only-expunge dont-show)
(if (pmail-summary-exists)
- (pmail-select-summary (pmail-update-summary)))))
+ (pmail-select-summary (pmail-update-summary))
+ (pmail-show-message pmail-current-message)
+ (if (and (eq old-total pmail-total-messages) opoint)
+ (goto-char opoint))))))
;;;; *** Pmail Mailing Commands ***
- [Emacs-diffs] emacs/lisp/mail pmail.el, (continued)
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/04
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/04
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/05
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/09
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/09
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/10
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/10
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/10
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/12
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/15
- [Emacs-diffs] emacs/lisp/mail pmail.el,
Chong Yidong <=
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/19
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/19
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/20
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/20
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/21
- [Emacs-diffs] emacs/lisp/mail pmail.el, Richard M. Stallman, 2008/12/22
- [Emacs-diffs] emacs/lisp/mail pmail.el, Richard M. Stallman, 2008/12/22
- [Emacs-diffs] emacs/lisp/mail pmail.el, Richard M. Stallman, 2008/12/22
- [Emacs-diffs] emacs/lisp/mail pmail.el, Richard M. Stallman, 2008/12/22
- [Emacs-diffs] emacs/lisp/mail pmail.el, Richard M. Stallman, 2008/12/29