From: teranisi <teranisi>
Date: Fri, 15 Dec 2000 04:51:12 +0000 (+0000)
Subject: 2000-12-06  Taro Kawagishi <taro.kawagishi@nokia.com>
X-Git-Tag: wl-2_4_1pre~51
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e7de4ad88d42d320a5bfdbd7cb3921214ef5ed0b;p=elisp%2Fwanderlust.git

2000-12-06  Taro Kawagishi <taro.kawagishi@nokia.com>

	* wl-summary.el (wl-summary-edit-addresses-subr): Call `try-completion'
	to get existing e-mail address string.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index df563df..2f4a4ab 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2000-12-06  Taro Kawagishi <taro.kawagishi@nokia.com>
+
+	* wl-summary.el (wl-summary-edit-addresses-subr): Call `try-completion'
+	to get existing e-mail address string.
+
 2000-12-13  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* wl-version.el (wl-generate-user-agent-string): Commentary.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index e2b4994..38f92da 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1288,8 +1288,12 @@ q	Goto folder mode."
 	   the-email
 	   (elmo-get-hash-val the-email wl-address-petname-hash)
 	   (wl-address-header-extract-realname
-	    (cdr (assoc (downcase the-email)
-			wl-address-completion-list))) t)
+	    (cdr (assoc
+		  (let ((completion-ignore-case t) comp)
+		    (setq comp
+			  (try-completion the-email wl-address-completion-list))
+		    (if (equal comp t) the-email comp))
+		  wl-address-completion-list))) t)
 	  "edited")
 	 ((eq char ?d)
 	  ;; Delete Addresses