From 89f4fb7c0f2b8820bcca167e824a0727be23fa2d Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 9 Dec 2008 23:23:05 +0000 Subject: [PATCH] (pmail-expunge): Pass new optional arg to pmail-only-expunge. (pmail-expunge-and-save): Don't reset view buffer. --- lisp/mail/pmail.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/mail/pmail.el b/lisp/mail/pmail.el index a863acc6573..bbb5847665b 100644 --- a/lisp/mail/pmail.el +++ b/lisp/mail/pmail.el @@ -1495,7 +1495,7 @@ Create the buffer if necessary." (defun pmail-expunge-and-save () "Expunge and save PMAIL file." (interactive) - (pmail-expunge) + (pmail-expunge t) (set-buffer pmail-buffer) (save-buffer) (if (pmail-summary-exists) @@ -2889,7 +2889,7 @@ Ask the user whether to add that list name to `mail-mailing-lists'." (defun pmail-swap-buffers-maybe () "Determine if the Pmail buffer is showing a message. If so restore the actual mbox message collection." - (unless (not pmail-buffers-swapped-p) + (when pmail-buffers-swapped-p (with-current-buffer pmail-buffer (buffer-swap-text pmail-view-buffer) (setq pmail-buffers-swapped-p nil)))) @@ -3572,11 +3572,11 @@ See also user-option `pmail-confirm-expunge'." (goto-char (+ (point-min) opoint)) (goto-char (+ (point) opoint)))))) -(defun pmail-expunge () +(defun pmail-expunge (&optional dont-show) "Erase deleted messages from Pmail file and summary buffer." (interactive) (when (pmail-expunge-confirmed) - (pmail-only-expunge) + (pmail-only-expunge dont-show) (if (pmail-summary-exists) (pmail-select-summary (pmail-update-summary))))) -- 2.39.2