# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1232599781 0
# Node ID c837fea020fb7fa98c874fa66fc715408110cbd2
# Parent  0f43fb8624a93e1c7e7cd0cb78837bb2e4509f33
(pmail-summary-expunge-and-save): Use pmail-expunge-and-save.

diff -r 0f43fb8624a9 -r c837fea020fb lisp/mail/pmailsum.el
--- a/lisp/mail/pmailsum.el	Thu Jan 22 04:49:19 2009 +0000
+++ b/lisp/mail/pmailsum.el	Thu Jan 22 04:49:41 2009 +0000
@@ -1314,13 +1314,8 @@
   "Expunge and save PMAIL file."
   (interactive)
   (save-excursion
-    (set-buffer pmail-buffer)
-    (when (pmail-expunge-confirmed)
-      (pmail-only-expunge)))
+    (pmail-expunge-and-save))
   (pmail-update-summary)
-  (save-excursion
-    (set-buffer pmail-buffer)
-    (save-buffer))
   (set-buffer-modified-p nil))
 
 (defun pmail-summary-get-new-mail (&optional file-name)