From: teranisi <teranisi>
Date: Sat, 4 Sep 2004 03:09:52 +0000 (+0000)
Subject: (wl-summary-unset-persistent-mark): Ignore case for completion.
X-Git-Tag: wl-2_11_31~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=edd916af356107346ccd094e96f31d83f40693c1;p=elisp%2Fwanderlust.git

(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
--- 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
--- 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