diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2008-12-09 23:23:05 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2008-12-09 23:23:05 +0000 |
| commit | 89f4fb7c0f2b8820bcca167e824a0727be23fa2d (patch) | |
| tree | 9562a6c0a53023d3905d20935e992efe9cf69316 | |
| parent | d1c0ec0d454693515285b194968d7725e5ab6094 (diff) | |
| download | emacs-89f4fb7c0f2b8820bcca167e824a0727be23fa2d.tar.gz | |
(pmail-expunge): Pass new optional arg to pmail-only-expunge.
(pmail-expunge-and-save): Don't reset view buffer.
| -rw-r--r-- | lisp/mail/pmail.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/mail/pmail.el b/lisp/mail/pmail.el index a863acc6573..bbb5847665b 100644 --- a/lisp/mail/pmail.el +++ b/lisp/mail/pmail.el @@ -1495,7 +1495,7 @@ Create the buffer if necessary." (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 @@ Ask the user whether to add that list name to `mail-mailing-lists'." (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 @@ See also user-option `pmail-confirm-expunge'." (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))))) |