From: murata <murata>
Date: Sat, 19 May 2001 00:19:35 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-auto-select-msg-p): New function.
X-Git-Tag: wl-2_6-root~30
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=45bd7b9676f91fdaa68fc9aea496abb23bd9a397;p=elisp%2Fwanderlust.git

* 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.
---

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)