From 0db0a4197b7c9912431758f588c77aa0837a1538 Mon Sep 17 00:00:00 2001
From: teranisi <teranisi>
Date: Mon, 14 Jul 2003 15:13:30 +0000
Subject: [PATCH] * wl-vars.el (wl-summary-reserve-mark-list): Added "d" and
 "i". (wl-summary-skip-mark-list): Added "d".

* wl-summary.el (wl-summary-cursor-move-surface): Bind case-fold-search
while searching.
---
 wl/ChangeLog     |    6 ++++++
 wl/wl-summary.el |   28 ++++++++++++++--------------
 wl/wl-vars.el    |    4 ++--
 3 files changed, 22 insertions(+), 16 deletions(-)

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 80cf611..ea12350 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,11 @@
 2003-07-14  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* wl-vars.el (wl-summary-reserve-mark-list): Added "d" and "i".
+	(wl-summary-skip-mark-list): Added "d".
+
+	* wl-summary.el (wl-summary-cursor-move-surface): Bind case-fold-search
+	while searching.
+
 	* wl-vars.el (wl-summary-mark-action-list): Moved from wl-summary.el
 	and define using defcustom;
 	Define 4th element as a face.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 2520881..ed55ab2 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -5013,20 +5013,20 @@ Use function list is `wl-summary-write-current-folder-functions'."
 				 elmo-msgdb-unread-cached-mark
 				 elmo-msgdb-important-mark))))
     (beginning-of-line)
-    (while (and skip
-		(not (if downward (eobp) (bobp))))
-      (if downward
-	  (forward-line 1)
-	(forward-line -1))
-      (setq skip (or (string-match skip-tmark-regexp
-				   (save-excursion
-				     (wl-summary-temp-mark)))
-		     (and skip-pmark-regexp
-			  (not (string-match
-				skip-pmark-regexp
-				(save-excursion
-				  (wl-summary-persistent-mark))))))))
-
+    (let (case-fold-search)
+      (while (and skip
+		  (not (if downward (eobp) (bobp))))
+	(if downward
+	    (forward-line 1)
+	  (forward-line -1))
+	(setq skip (or (string-match skip-tmark-regexp
+				     (save-excursion
+				       (wl-summary-temp-mark)))
+		       (and skip-pmark-regexp
+			    (not (string-match
+				  skip-pmark-regexp
+				  (save-excursion
+				    (wl-summary-persistent-mark)))))))))
     (if (if downward (eobp) (and (bobp) skip)) (setq goto-next t))
     (if (or (eobp) (and (bobp) skip))
 	(goto-char start))
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 1a5ebad..16b4283 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1744,14 +1744,14 @@ This wrapper is generated by the mail system when rejecting a letter."
   :group 'wl-summary)
 
 (defcustom wl-summary-reserve-mark-list
-  (list "o" "O" "D")
+  (list "o" "O" "D" "d" "i")
   "If a message is already marked as temporal marks in this list,
 the message is not marked by any mark command."
   :type '(repeat (string :tag "Temp-Mark"))
   :group 'wl-summary)
 
 (defcustom wl-summary-skip-mark-list
-  (list "D")
+  (list "D" "d")
   "If a message is already marked as temporal marks in this list,
 the message is skipped at cursor move."
   :type '(repeat (string :tag "Temp-Mark"))
-- 
1.7.10.4