Mercurial > emacs
changeset 100297:0a269d00caef
(pmail-expunge): Pass new optional arg to pmail-only-expunge.
(pmail-expunge-and-save): Don't reset view buffer.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Tue, 09 Dec 2008 23:23:05 +0000 |
| parents | f67927d143a8 |
| children | cdbab14860b4 |
| files | lisp/mail/pmail.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/pmail.el Tue Dec 09 23:22:58 2008 +0000 +++ b/lisp/mail/pmail.el Tue Dec 09 23:23:05 2008 +0000 @@ -1495,7 +1495,7 @@ (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 @@ (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 @@ (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)))))