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