X-Git-Url: https://git.cworth.org/git?a=blobdiff_plain;f=emacs%2Fnotmuch-show.el;h=0a945ea048a3b8535b8881084616242b09549943;hb=e516a712bb79e523629012ee6a8325f5166b4ee5;hp=de9421e80879edb544a949d801719b412bb10c92;hpb=7cd907b69c3134b00f8766571b17b669bd8a80c2;p=notmuch

diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index de9421e8..0a945ea0 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -1364,11 +1364,10 @@ any effects from previous calls to
       ;; If a small number of lines from the previous message are
       ;; visible, realign so that the top of the current message is at
       ;; the top of the screen.
-      (if (<= (count-screen-lines (window-start) start-of-message)
-	      next-screen-context-lines)
-	  (progn
-	    (goto-char (notmuch-show-message-top))
-	    (notmuch-show-message-adjust)))
+      (when (<= (count-screen-lines (window-start) start-of-message)
+		next-screen-context-lines)
+	(goto-char (notmuch-show-message-top))
+	(notmuch-show-message-adjust))
       ;; Move to the top left of the window.
       (goto-char (window-start)))
      (t