# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1228864985 0
# Node ID 0a269d00caef1301c430ca9d01427d2528a518e3
# Parent  f67927d143a834539b78a7525331773eb404a53c
(pmail-expunge): Pass new optional arg to pmail-only-expunge.
(pmail-expunge-and-save): Don't reset view buffer.

diff -r f67927d143a8 -r 0a269d00caef lisp/mail/pmail.el
--- a/lisp/mail/pmail.el	Tue Dec 09 23:22:58 2008 +0000
+++ b/lisp/mail/pmail.el	Tue Dec 09 23:23:05 2008 +0000
@@ -1495,7 +1495,7 @@
 (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 @@
 (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 @@
 	  (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)))))