From 662a382f6212d777b22099cb98e3c44b0eb78376 Mon Sep 17 00:00:00 2001 From: yoichi Date: Wed, 13 Mar 2002 08:49:39 +0000 Subject: [PATCH] Update. --- wl/ChangeLog | 4 ++++ wl/wl-draft.el | 23 ++++++++++++++--------- 2 files changed, 18 insertions(+), 9 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 9aeb9f9..c73af11 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2002-03-13 Yoichi NAKAYAMA + + * wl-draft.el (wl-draft): Rearranged. + 2002-03-12 Yoichi NAKAYAMA * wl-draft.el (wl-draft-create-contents): Treat symbol as a name diff --git a/wl/wl-draft.el b/wl/wl-draft.el index c39c09a..a9faf65 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -1470,16 +1470,21 @@ Derived from `message-save-drafts' in T-gnus." (setq header-alist (append (list (cons 'From wl-from)) header-alist))) (unless (cdr (assq 'To header-alist)) - (setq header-alist - (append header-alist - (list (cons 'To - (and - (or (interactive-p) - (eq this-command 'wl-summary-write)) - "")))))) - (or (assoc 'Subject header-alist) + (let ((to)) + (when (setq to (and + (or (interactive-p) + (eq this-command 'wl-summary-write)) + "")) + (if (assq 'To header-alist) + (setcdr (assq 'To header-alist) to) + (setq header-alist + (append header-alist + (list (cons 'To to)))))))) + (unless (cdr (assq 'Subject header-alist)) + (if (assq 'Subject header-alist) + (setcdr (assq 'Subject header-alist) "") (setq header-alist - (append header-alist (list (cons 'Subject ""))))) + (append header-alist (list (cons 'Subject "")))))) (setq header-alist (append header-alist (wl-draft-default-headers) (if body (list "" body)))) -- 1.7.10.4