1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/mail/mh-utils.el b/lisp/mail/mh-utils.el
index 2c65f88b507..be0f52ee36f 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 '(4)))))
 
 
 (defun mh-delete-line (lines)