From: Chong Yidong <cyd@stupidchicken.com>
Date: Thu, 22 Jan 2009 04:49:41 +0000 (+0000)
Subject: (pmail-summary-expunge-and-save): Use pmail-expunge-and-save.
X-Git-Tag: emacs-pretest-23.0.90~326
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9bef3784e907d40587d6b72fb339740538ef5a01;p=emacs.git

(pmail-summary-expunge-and-save): Use pmail-expunge-and-save.
---

diff --git a/lisp/mail/pmailsum.el b/lisp/mail/pmailsum.el
index a46b55156ed..8428857ef93 100644
--- a/lisp/mail/pmailsum.el
+++ b/lisp/mail/pmailsum.el
@@ -1314,13 +1314,8 @@ Position it according to WHERE which can be BEG or END"
   "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)