(rmail-show-mime-message): Set `rmail-revert' to `revert-buffer-function'.

[elisp/lemi.git] / mail / rmail-mime.el

diff --git a/mail/rmail-mime.el b/mail/rmail-mime.el
index f05e025..e49c683 100644 (file)
--- a/mail/rmail-mime.el
+++ b/mail/rmail-mime.el
@@ -85,6 +85,8 @@
            rmail-current-message))
     (make-local-variable 'kill-buffer-hook)
     (add-hook 'kill-buffer-hook 'rmail-view-kill-rmail-buffer)
+    (make-local-variable 'revert-buffer-function)
+    (setq revert-buffer-function 'rmail-revert)
     (let ((mode-line
           (with-current-buffer abuf
             (setq rmail-view-buffer buf)