From 45bd7b9676f91fdaa68fc9aea496abb23bd9a397 Mon Sep 17 00:00:00 2001
From: murata <murata>
Date: Sat, 19 May 2001 00:19:35 +0000
Subject: [PATCH] * wl-summary.el (wl-summary-auto-select-msg-p): New
 function.   (wl-summary-goto-folder-subr): If
 `wl-auto-select-first' is non-nil   and selected message is
 important, do not display.

---
 wl/ChangeLog     |    6 ++++++
 wl/wl-summary.el |   16 ++++++++++++++--
 2 files changed, 20 insertions(+), 2 deletions(-)

diff --git a/wl/ChangeLog b/wl/ChangeLog
index e3c4056..3de5514 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2001-05-19  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* wl-summary.el (wl-summary-auto-select-msg-p): New function.
+	(wl-summary-goto-folder-subr): If `wl-auto-select-first' is
+	non-nil and selected message is important, do not display.
+
 2001-05-01  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* wl-summary.el (wl-summary-write-current-folder): Set cursor
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index e4c9dec..5fdbbe8 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2699,6 +2699,14 @@ If ARG, without confirm."
 	 (lambda (x) (elmo-msgdb-overview-entity-get-number x))
 	 (elmo-msgdb-get-overview wl-summary-buffer-msgdb))))
 
+(defun wl-summary-auto-select-msg-p (unread-msg)
+  (and unread-msg
+       (not (string=
+	     (cadr (assoc unread-msg
+			  (elmo-msgdb-get-mark-alist
+			   wl-summary-buffer-msgdb)))
+	     wl-summary-important-mark))))
+
 (defun wl-summary-goto-folder-subr (&optional folder scan-type other-window
 					      sticky interactive scoring)
   "Display target folder on summary."
@@ -2806,9 +2814,13 @@ If ARG, without confirm."
 	      (let ((unreadp (wl-summary-next-message 
 			      (wl-summary-message-number)
 			      'down t)))
-		(cond ((and wl-auto-select-first unreadp)
+		(cond ((and wl-auto-select-first
+			    (wl-summary-auto-select-msg-p unreadp))
+		       ;; wl-auto-select-first is non-nil and
+		       ;; unreadp is non-nil but not important
 		       (setq retval 'disp-msg))
-		      ((not unreadp)
+		      ((not (wl-summary-auto-select-msg-p unreadp))
+		       ;; unreadp is nil or important
 		       (setq retval 'more-next))))
 	    (goto-char (point-max))
 	    (if (elmo-folder-plugged-p folder)
-- 
1.7.10.4