diff options
| author | Richard M. Stallman | 1995-06-25 03:06:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-06-25 03:06:56 +0000 |
| commit | a9db66a4f1f842944907741070816f98cc4fb3eb (patch) | |
| tree | 1fb10536aa35f76a4e94302bdb09714a163239d0 | |
| parent | 438759b31a73301f16f4650fef0caddd2e474db8 (diff) | |
| download | emacs-a9db66a4f1f842944907741070816f98cc4fb3eb.tar.gz emacs-a9db66a4f1f842944907741070816f98cc4fb3eb.zip | |
(rmail-revert): Use the default revert-buffer-function
| -rw-r--r-- | lisp/mail/rmail.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 27ef3a8e7c1..2caa6c4168e 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -657,7 +657,7 @@ Instead, these commands are available: | |||
| 657 | 657 | ||
| 658 | ;; Handle M-x revert-buffer done in an rmail-mode buffer. | 658 | ;; Handle M-x revert-buffer done in an rmail-mode buffer. |
| 659 | (defun rmail-revert (arg noconfirm) | 659 | (defun rmail-revert (arg noconfirm) |
| 660 | (let (revert-buffer-function) | 660 | (let ((revert-buffer-function (default-value 'revert-buffer-function))) |
| 661 | ;; Call our caller again, but this time it does the default thing. | 661 | ;; Call our caller again, but this time it does the default thing. |
| 662 | (if (revert-buffer arg noconfirm) | 662 | (if (revert-buffer arg noconfirm) |
| 663 | ;; If the user said "yes", and we changed something, | 663 | ;; If the user said "yes", and we changed something, |