From: teranisi <teranisi>
Date: Thu, 16 May 2002 01:50:04 +0000 (+0000)
Subject: * wl-address.el (wl-complete-field-body): Bind `completion-ignore-case'
X-Git-Tag: elmo-mark-root~117
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a586b752293f5a8f20a97b160eaad74d381f755c;p=elisp%2Fwanderlust.git

* wl-address.el (wl-complete-field-body): Bind `completion-ignore-case'
as t for `try-completion'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 122ed2d..39a790d 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-16  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-address.el (wl-complete-field-body): Bind `completion-ignore-case'
+	as t for `try-completion'.
+
 2002-05-15  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-summary.el (wl-summary-default-from): Use
diff --git a/wl/wl-address.el b/wl/wl-address.el
index d936011..56a92ab 100644
--- a/wl/wl-address.el
+++ b/wl/wl-address.el
@@ -431,6 +431,7 @@ Matched address lists are append to CL."
 	 (completion)
 	 (pattern (buffer-substring start end))
 	 (len (length pattern))
+	 (completion-ignore-case t)
 	 (cl completion-list))
     (when use-ldap
       (setq cl (wl-address-ldap-search pattern cl)))