diff options
| author | Chong Yidong | 2009-01-22 04:49:41 +0000 |
|---|---|---|
| committer | Chong Yidong | 2009-01-22 04:49:41 +0000 |
| commit | 9bef3784e907d40587d6b72fb339740538ef5a01 (patch) | |
| tree | 0ce2e494291061367706e3ae4f5f75e5befccebc | |
| parent | fdcd77945ec09f02d5466cf5a1e26c1db1e193f2 (diff) | |
| download | emacs-9bef3784e907d40587d6b72fb339740538ef5a01.tar.gz emacs-9bef3784e907d40587d6b72fb339740538ef5a01.zip | |
(pmail-summary-expunge-and-save): Use pmail-expunge-and-save.
| -rw-r--r-- | lisp/mail/pmailsum.el | 7 |
1 files changed, 1 insertions, 6 deletions
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" | |||
| 1314 | "Expunge and save PMAIL file." | 1314 | "Expunge and save PMAIL file." |
| 1315 | (interactive) | 1315 | (interactive) |
| 1316 | (save-excursion | 1316 | (save-excursion |
| 1317 | (set-buffer pmail-buffer) | 1317 | (pmail-expunge-and-save)) |
| 1318 | (when (pmail-expunge-confirmed) | ||
| 1319 | (pmail-only-expunge))) | ||
| 1320 | (pmail-update-summary) | 1318 | (pmail-update-summary) |
| 1321 | (save-excursion | ||
| 1322 | (set-buffer pmail-buffer) | ||
| 1323 | (save-buffer)) | ||
| 1324 | (set-buffer-modified-p nil)) | 1319 | (set-buffer-modified-p nil)) |
| 1325 | 1320 | ||
| 1326 | (defun pmail-summary-get-new-mail (&optional file-name) | 1321 | (defun pmail-summary-get-new-mail (&optional file-name) |