From: yoichi <yoichi>
Date: Fri, 25 Jan 2002 14:36:21 +0000 (+0000)
Subject: * wl-vars.el (wl-from): Use return value of function
X-Git-Tag: wl-2_9_7~27
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=15c4ca54efe0627673dab82621b5fabb7df8b0a4;p=elisp%2Fwanderlust.git

* wl-vars.el (wl-from): Use return value of function
  user-full-name instead of the variable user-full-name since
  XEmacs-20.4 doesn't set this variable.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 33b7287..cfe78ea 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2002-01-25  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-vars.el (wl-from): Use return value of function
+	user-full-name instead of the variable user-full-name since
+	XEmacs-20.4 doesn't set this variable.
+
 2002-01-25  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl.el (wl-other-frame): If wl-folder-use-frame is non-nil,
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 7b42425..6d848ce 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -132,9 +132,9 @@
   "*Use SEMI or not.")
 
 (defcustom wl-from (and user-mail-address
-			(concat (and user-full-name
+			(concat (and (user-full-name)
 				     (concat (elmo-address-quote-specials
-					      user-full-name)
+					      (user-full-name))
 					     " "))
 				"<" user-mail-address ">"))
   "*From string used in draft."