Mercurial > emacs

changeset 101339:c837fea020fb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(pmail-summary-expunge-and-save): Use pmail-expunge-and-save.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 22 Jan 2009 04:49:41 +0000
parents 0f43fb8624a9
children f0e145fc691b
files lisp/mail/pmailsum.el
diffstat 1 files changed, 1 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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)