🚀 go-pugleaf

Don't jump to a new message after vm-get-new-mail when showing, please.

-Jerry

*** vm-motion.el~	Thu Jun 18 01:45:41 1992
--- vm-motion.el	Thu Jun 18 04:27:35 1992
***************
*** 260,266 ****
      unread-mp))
  
  (defun vm-thoughtfully-select-message ()
!   (if (or (null vm-message-pointer) (not (eq vm-system-state 'reading)))
        (let ((mp (vm-find-first-unread-message)))
  	(if mp
  	    (progn
--- 260,266 ----
      unread-mp))
  
  (defun vm-thoughtfully-select-message ()
!   (if (or (null vm-message-pointer) (not (memq vm-system-state '(showing reading))))
        (let ((mp (vm-find-first-unread-message)))
  	(if mp
  	    (progn