From: hmurata <hmurata>
Date: Thu, 4 Sep 2003 04:28:40 +0000 (+0000)
Subject: * wl-mime.el (wl-draft-attribute-value): Fixed.
X-Git-Tag: wl-2_11_10~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ccf8553fe107baae53a5e7293c3a57da252b9830;p=elisp%2Fwanderlust.git

* wl-mime.el (wl-draft-attribute-value): Fixed.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 3dcfc50..dc29d37 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2003-09-04  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-mime.el (wl-draft-attribute-value): Fixed.
+
 2003-09-03  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-util.el (wl-copy-local-variables): New function.
diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index a03e01c..f9f4b7e 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -183,8 +183,8 @@ It calls following-method selected from variable
 	  ((and (setq symbol (intern-soft (format "wl-%s" name)))
 		(boundp symbol))
 	   (symbol-value symbol))
-	  (t
-	   attr))))
+	  ((boundp attr)
+	   (symbol-value attr)))))
 
 (defun wl-draft-preview-message ()
   "Preview editing message."