From 7217e70583c4476c039f9448e74165371bed59ec Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 23 May 2004 06:01:55 +0000 Subject: [PATCH] * wl-address.el (wl-address-user-mail-address-p): defsubst->defun. (wl-address-delete-user-mail-addresses): Ditto. --- wl/ChangeLog | 3 +++ wl/wl-address.el | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 79a7ee5..fde867a 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,8 @@ 2004-05-23 Yoichi NAKAYAMA + * wl-address.el (wl-address-user-mail-address-p): defsubst->defun. + (wl-address-delete-user-mail-addresses): Ditto. + * wl-address.el (wl-address-delete-user-mail-addresses): New function. * wl-refile.el (wl-refile-guess-by-history): Use it. diff --git a/wl/wl-address.el b/wl/wl-address.el index 884a737..ecdbc22 100644 --- a/wl/wl-address.el +++ b/wl/wl-address.el @@ -590,7 +590,7 @@ e.g. \"Mr. bar \" (or (wl-address-get-petname-1 string) string)) -(defsubst wl-address-user-mail-address-p (address) +(defun wl-address-user-mail-address-p (address) "Judge whether ADDRESS is user's or not." (member (downcase (wl-address-header-extract-address address)) (or (mapcar 'downcase wl-user-mail-address-list) @@ -598,7 +598,7 @@ e.g. \"Mr. bar \" (wl-address-header-extract-address wl-from)))))) -(defsubst wl-address-delete-user-mail-addresses (address-list) +(defun wl-address-delete-user-mail-addresses (address-list) "Delete user mail addresses from list by side effect. Deletion is done by using `elmo-list-delete'." (let ((myself (or wl-user-mail-address-list -- 1.7.10.4