From f897b07116af1870eb0d2f3fdef7ac7ca7f217f8 Mon Sep 17 00:00:00 2001 From: yoichi Date: Mon, 27 Jan 2003 05:36:32 +0000 Subject: [PATCH] Fix the last change. * wl-draft.el (wl-draft-insert-from-field): Encode wl-from and insert it. --- wl/ChangeLog | 4 ++-- wl/wl-draft.el | 13 +++++-------- 2 files changed, 7 insertions(+), 10 deletions(-) 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." -- 1.7.10.4