* wl-address.el (wl-address-user-mail-address-p): defsubst->defun.

(wl-address-delete-user-mail-addresses): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 79a7ee5..fde867a 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2004-05-23  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
+       * 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 (file)
--- a/wl/wl-address.el
+++ b/wl/wl-address.el
@@ -590,7 +590,7 @@ e.g. \"Mr. bar <hoge@foo.com>\"
   (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 <hoge@foo.com>\"
                     (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