From: Chong Yidong <cyd@stupidchicken.com>
Date: Tue, 9 Dec 2008 23:23:05 +0000 (+0000)
Subject: (pmail-expunge): Pass new optional arg to pmail-only-expunge.
X-Git-Tag: emacs-pretest-23.0.90~1205
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=89f4fb7c0f2b8820bcca167e824a0727be23fa2d;p=emacs.git

(pmail-expunge): Pass new optional arg to pmail-only-expunge.
(pmail-expunge-and-save): Don't reset view buffer.
---

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)))))