(mh-recenter): Call `recenter' with arg t

if ARG is nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d0a8dcf..ef6ad3e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-10-23  Gerd Moellmann  <gerd@gnu.org>
 
+       * mail/mh-utils.el (mh-recenter): Call `recenter' with arg t
+       if ARG is nil.
+
        * desktop.el (desktop-last-buffer): New variable.
        (desktop-create-buffer): Set it.
        (desktop-read): Bind it and switch to that buffer.

diff --git a/lisp/mail/mh-utils.el b/lisp/mail/mh-utils.el
index 51cc1b4..2c65f88 100644 (file)
--- a/lisp/mail/mh-utils.el
+++ b/lisp/mail/mh-utils.el
@@ -447,7 +447,7 @@ Type \"\\[mh-header-display]\" to see the message with all its headers."
   ;; window.  (Commands like save-some-buffers can make this false.)
   (if (eq (get-buffer-window (current-buffer))
          (selected-window))
-      (recenter (if arg arg '(t)))))
+      (recenter (if arg arg t))))
 
 
 (defun mh-delete-line (lines)