Mercurial > emacs
changeset 100581:a9602a27b979
(pmail-expunge-and-save): Call pmail-swap-buffers-maybe before
saving.
(pmail-quit): Handling expunging manually, instead of calling
pmail-expunge-and-save.
(pmail-next-undeleted-message): If no other message can be shown,
show the current one.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sat, 20 Dec 2008 04:29:26 +0000 |
parents | bdc51ab0f703 |
children | 7ba6bfe45e2b |
files | lisp/mail/pmail.el |
diffstat | 1 files changed, 8 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/pmail.el Sat Dec 20 04:07:07 2008 +0000 +++ b/lisp/mail/pmail.el Sat Dec 20 04:29:26 2008 +0000 @@ -1409,19 +1409,22 @@ (defun pmail-expunge-and-save () "Expunge and save PMAIL file." (interactive) + (set-buffer pmail-buffer) (pmail-expunge t) - (set-buffer pmail-buffer) + (pmail-swap-buffers-maybe) (save-buffer) (if (pmail-summary-exists) - (pmail-select-summary (set-buffer-modified-p nil)))) + (pmail-select-summary (set-buffer-modified-p nil)) + (pmail-show-message))) (defun pmail-quit () "Quit out of PMAIL. Hook `pmail-quit-hook' is run after expunging." (interactive) - ;; Determine if the buffers need to be swapped. + (set-buffer pmail-buffer) + (pmail-expunge t) (pmail-swap-buffers-maybe) - (pmail-expunge-and-save) + (save-buffer) (when (boundp 'pmail-quit-hook) (run-hooks 'pmail-quit-hook)) ;; Don't switch to the summary buffer even if it was recently visible. @@ -2696,6 +2699,7 @@ (message "No previous nondeleted message")) (if (> n 0) (message "No following nondeleted message")) + (pmail-show-message-maybe pmail-current-message) nil))) (defun pmail-previous-undeleted-message (n)