# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 804049616 0
# Node ID 3cd65cb4c643e862b684412fb20325c3e6d56e77
# Parent  31e6e313793980c88c870881e7acf356971f0dfb
(rmail-revert): Use the default revert-buffer-function

diff -r 31e6e3137939 -r 3cd65cb4c643 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Sat Jun 24 23:40:14 1995 +0000
+++ b/lisp/mail/rmail.el	Sun Jun 25 03:06:56 1995 +0000
@@ -657,7 +657,7 @@
 
 ;; Handle M-x revert-buffer done in an rmail-mode buffer.
 (defun rmail-revert (arg noconfirm)
-  (let (revert-buffer-function)
+  (let ((revert-buffer-function (default-value 'revert-buffer-function)))
     ;; Call our caller again, but this time it does the default thing.
     (if (revert-buffer arg noconfirm)
 	;; If the user said "yes", and we changed something,