From: yoichi <yoichi>
Date: Mon, 27 Jan 2003 05:36:32 +0000 (+0000)
Subject: Fix the last change.
X-Git-Tag: merged-trunk-to-elmo-mark-14~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f897b07116af1870eb0d2f3fdef7ac7ca7f217f8;p=elisp%2Fwanderlust.git

Fix the last change.
* wl-draft.el (wl-draft-insert-from-field): Encode wl-from and
insert it.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 5f16423..12a4364 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,7 +1,7 @@
 2003-01-27  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
-	* wl-draft.el (wl-draft-insert-from-field): Use wl-from.
-	(wl-draft-check-wl-from): New function.
+	* wl-draft.el (wl-draft-insert-from-field): Encode wl-from and
+	insert it.
 
 2003-01-21  Kenichi OKADA  <okada@opaopa.org>
 
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index f8b2c92..0353d3c 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -150,18 +150,15 @@ e.g.
   "Insert Date field."
   (insert "Date: " (wl-make-date-string) "\n"))
 
-(defun wl-draft-check-wl-from ()
-  (or wl-from (error "Please set `wl-from' to your mail address"))
-  (condition-case err
-      (wl-draft-eword-encode-address-list wl-from)
-    (error (error "Please look at `wl-from' again"))))
-
 (defun wl-draft-insert-from-field ()
   "Insert From field."
   ;; Put the "From:" field in unless for some odd reason
   ;; they put one in themselves.
-  (wl-draft-check-wl-from)
-  (insert "From: " wl-from "\n"))
+  (let (from)
+    (condition-case err
+	(setq from (wl-draft-eword-encode-address-list wl-from))
+      (error (error "Please look at `wl-from' again")))
+    (insert "From: " from "\n")))
 
 (defun wl-draft-insert-x-face-field ()
   "Insert X-Face header."