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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 80cf611..ea12350 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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"))