From: kaoru <kaoru>
Date: Sat, 2 Jan 2010 14:30:16 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-default-headers): Suppress warning
X-Git-Tag: elmo-imap4-compliance-root~45
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=26429c0ebc1c4767998dc21cbc5c5cc1731438c5;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-default-headers): Suppress warning
"defsubst `wl-draft-default-headers' was used before it was
defined"; Use `defun' instead of `defsubst'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 0f907f9..e39191d 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2010-01-02  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* wl-draft.el (wl-draft-default-headers): Suppress warning
+	"defsubst `wl-draft-default-headers' was used before it was
+	defined"; Use `defun' instead of `defsubst'.
+
 	* wl-address.el (wl-address-header-extract-address)
 	(wl-address-header-extract-realname): Fix mail-address in
 	docstring.
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 4ebc129..947100a 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1848,7 +1848,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
 	field
       nil)))
 
-(defsubst wl-draft-default-headers ()
+(defun wl-draft-default-headers ()
   (list
    (cons 'Mail-Reply-To (and wl-insert-mail-reply-to
 			     (wl-address-header-extract-address