From e7de4ad88d42d320a5bfdbd7cb3921214ef5ed0b Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 15 Dec 2000 04:51:12 +0000 Subject: [PATCH] 2000-12-06 Taro Kawagishi * wl-summary.el (wl-summary-edit-addresses-subr): Call `try-completion' to get existing e-mail address string. --- wl/ChangeLog | 5 +++++ wl/wl-summary.el | 8 ++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) 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 + + * wl-summary.el (wl-summary-edit-addresses-subr): Call `try-completion' + to get existing e-mail address string. + 2000-12-13 TAKAHASHI Kaoru * 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 -- 1.7.10.4