(wl-summary-unset-persistent-mark): Ignore case for completion.

(wl-summary-set-persistent-mark): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 32469d7..171432c 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2004-09-04  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * wl-summary.el (wl-summary-unset-persistent-mark): Ignore case
+       for completion.
+       (wl-summary-set-persistent-mark): Ditto.
+
        * wl-draft.el (wl-draft-send-confirm): Call `wl-mime-quit-preview'
        instead of `wl-draft-quit-preview'.
 

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 187efff..6543a7f 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -3088,14 +3088,15 @@ Return non-nil if the mark is updated"
   "Unset persistent mark."
   (interactive)
   (when (interactive-p)
-    (setq flag (intern (downcase
-                       (completing-read
-                        "Flag: "
-                        (mapcar (lambda (flag)
-                                  (list (capitalize (symbol-name flag))))
-                                elmo-preserved-flags)
-                        nil
-                        'require-match)))))
+    (let ((completion-ignore-case t))
+      (setq flag (intern (downcase
+                         (completing-read
+                          "Flag: "
+                          (mapcar (lambda (flag)
+                                    (list (capitalize (symbol-name flag))))
+                                  elmo-preserved-flags)
+                          nil
+                          'require-match))))))
   (wl-summary-set-persistent-mark-internal 'inverse
                                           flag
                                           number-or-numbers
@@ -3107,14 +3108,15 @@ Return non-nil if the mark is updated"
   "Set persistent mark."
   (interactive)
   (when (interactive-p)
-    (setq flag (intern (downcase
-                       (completing-read
-                        "Flag: "
-                        (mapcar (lambda (flag)
-                                  (list (capitalize (symbol-name flag))))
-                                elmo-preserved-flags)
-                        nil
-                        'require-match)))))
+    (let ((completion-ignore-case t))
+      (setq flag (intern (downcase
+                         (completing-read
+                          "Flag: "
+                          (mapcar (lambda (flag)
+                                    (list (capitalize (symbol-name flag))))
+                                  elmo-preserved-flags)
+                          nil
+                          'require-match))))))
   (wl-summary-set-persistent-mark-internal
    nil
    flag