From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 23 Oct 2001 15:51:30 +0000 (+0000)
Subject: (mh-recenter): Call `recenter' with arg t
X-Git-Tag: emacs-21.2~485
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=83270d38ef2641a18d45a39f01c8a8647c18de0d;p=emacs.git

(mh-recenter): Call `recenter' with arg t
if ARG is nil.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index be5413a78e3..dca6b847ed3 100644
--- 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 51cc1b44ee2..2c65f88b507 100644
--- 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)