From: yoichi <yoichi>
Date: Sun, 23 May 2004 06:01:55 +0000 (+0000)
Subject: * wl-address.el (wl-address-user-mail-address-p): defsubst->defun.
X-Git-Tag: wl-2_11_30~38
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7217e70583c4476c039f9448e74165371bed59ec;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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