mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-09 08:21:30 -07:00
Code Issues Projects Releases Wiki Activity

(pmail-expunge-and-save): Call pmail-swap-buffers-maybe before

Browse source 
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.
This commit is contained in:
Chong Yidong 2008-12-20 04:29:26 +00:00
parent 2b8e6500ca
commit a8eed59f9a
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/mail/pmail.el
View file

@ -1409,19 +1409,22 @@ Create the buffer if necessary."
(defun pmail-expunge-and-save ()
"Expunge and save PMAIL file."
(interactive)
(pmail-expunge t)
(set-buffer pmail-buffer)
(pmail-expunge t)
(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 @@ Returns t if a new message is being shown, nil otherwise."
(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)