[Emacs-diffs] emacs/lisp/mail pmailsum.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/01/22 04:49:41

Modified files:
        lisp/mail      : pmailsum.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/pmailsum.el?cvsroot=emacs&r1=1.18&r2=1.19

Patches:
Index: pmailsum.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/pmailsum.el,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -b -r1.18 -r1.19
--- pmailsum.el 20 Jan 2009 01:16:55 -0000      1.18
+++ pmailsum.el 22 Jan 2009 04:49:41 -0000      1.19
@@ -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)