diff options
| author | Karl Heuer | 1994-02-09 04:25:48 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-02-09 04:25:48 +0000 |
| commit | c70658194a9fa51199fc6ee58ff17cc01c69b8e9 (patch) | |
| tree | 0b376de8775e1294892824090a7a08b38c3cbcbf | |
| parent | e507447418b362f680802ed5a149d17dc513eba3 (diff) | |
| download | emacs-c70658194a9fa51199fc6ee58ff17cc01c69b8e9.tar.gz emacs-c70658194a9fa51199fc6ee58ff17cc01c69b8e9.zip | |
(rmail-expunge-and-save): Mark summary buffer as unmodified.
| -rw-r--r-- | lisp/mail/rmail.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 3641f470673..17b87a83c4d 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -634,7 +634,9 @@ Instead, these commands are available: | |||
| 634 | "Expunge and save RMAIL file." | 634 | "Expunge and save RMAIL file." |
| 635 | (interactive) | 635 | (interactive) |
| 636 | (rmail-expunge) | 636 | (rmail-expunge) |
| 637 | (save-buffer)) | 637 | (save-buffer) |
| 638 | (if (rmail-summary-exists) | ||
| 639 | (rmail-select-summary (set-buffer-modified-p nil)))) | ||
| 638 | 640 | ||
| 639 | (defun rmail-quit () | 641 | (defun rmail-quit () |
| 640 | "Quit out of RMAIL." | 642 | "Quit out of RMAIL." |