From: 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 - * 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 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."