# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 781850530 0
# Node ID 65e65fe6e8f34f14dfd034f4319bc18fa9e6b46a
# Parent  89e30b86622a006e9902e26945efbaf18899465e
(rmail-show-message): New argument no-summary.

diff -r 89e30b86622a -r 65e65fe6e8f3 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Tue Oct 11 02:48:53 1994 +0000
+++ b/lisp/mail/rmail.el	Tue Oct 11 04:42:10 1994 +0000
@@ -1441,7 +1441,7 @@
   (interactive)
   (rmail-show-message rmail-current-message))
 
-(defun rmail-show-message (&optional n)
+(defun rmail-show-message (&optional n no-summary)
   "Show message number N (prefix argument), counting from start of file.
 If summary buffer is currently displayed, update current message there also."
   (interactive "p")
@@ -1482,10 +1482,12 @@
 	;; If there is a summary buffer, try to move to this message
 	;; in that buffer.  But don't complain if this message
 	;; is not mentioned in the summary.
-	(if (rmail-summary-exists)
-	    (let ((curr-msg rmail-current-message))
-	      (rmail-select-summary
-	       (rmail-summary-goto-msg curr-msg t t))))
+	;; Don't do this at all if we were called on behalf
+	;; of cursor motion in the summary buffer.
+	(and (rmail-summary-exists) (not no-summary)
+	     (let ((curr-msg rmail-current-message))
+	       (rmail-select-summary
+		(rmail-summary-goto-msg curr-msg t t))))
 	(if blurb
 	    (message blurb))))))