From: tomo <tomo>
Date: Wed, 30 May 2001 06:39:05 +0000 (+0000)
Subject: (rmail-show-mime-message): Set `rmail-revert' to `revert-buffer-function'.
X-Git-Tag: Emacs-21_0_103-revert-fix-0
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Flemi.git;a=commitdiff_plain;h=refs%2Ftags%2FEmacs-21_0_104-LEMI-1_14-0

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

diff --git a/mail/rmail-mime.el b/mail/rmail-mime.el
index f05e025..e49c683 100644
--- 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)