From f315400342523545585632833c69290daecdc08b Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 17 Mar 2002 08:40:51 +0000 Subject: [PATCH] * wl-draft.el (wl-draft): Call wl-draft-create-buffer with the argument full as well for wl-folder-write-current-folder. If wl-*-write-current-folder cannot guess addressee, add blank To header. Rewrite condition for positioning cursor. --- wl/ChangeLog | 8 ++++++++ wl/wl-draft.el | 25 +++++++++++++++++++------ 2 files changed, 27 insertions(+), 6 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 8a13f92..c389987 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,11 @@ +2002-03-17 Yoichi NAKAYAMA + + * wl-draft.el (wl-draft): Call wl-draft-create-buffer with the + argument full as well for wl-folder-write-current-folder. + If wl-*-write-current-folder cannot guess addressee, add blank + To header. + Rewrite condition for positioning cursor. + 2002-03-15 Yoichi NAKAYAMA * wl-folder.el (wl-folder-jump-to-next-summary): If the window of diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 2edf9f2..db9d857 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -1463,7 +1463,8 @@ Derived from `message-save-drafts' in T-gnus." (or (eq this-command 'wl-draft) (eq this-command 'wl-summary-write) - (eq this-command 'wl-summary-write-current-folder)) + (eq this-command 'wl-summary-write-current-folder) + (eq this-command 'wl-folder-write-current-folder)) parent-folder)) (unless (cdr (assq 'From header-alist)) @@ -1473,7 +1474,14 @@ Derived from `message-save-drafts' in T-gnus." (let ((to)) (when (setq to (and (or (interactive-p) - (eq this-command 'wl-summary-write)) + (eq this-command 'wl-summary-write) + (and + (null (cdr (assq 'Newsgroups header-alist))) + (or + (eq this-command + 'wl-summary-write-current-folder) + (eq this-command + 'wl-folder-write-current-folder)))) "")) (if (assq 'To header-alist) (setcdr (assq 'To header-alist) to) @@ -1498,11 +1506,16 @@ Derived from `message-save-drafts' in T-gnus." (run-hooks 'wl-mail-setup-hook)) (goto-char (point-min)) (wl-user-agent-compose-internal) ;; user-agent - (cond ((eq this-command 'wl-summary-write-current-newsgroup) - (mail-position-on-field "Subject")) - ((and (interactive-p) - (null (assq 'To header-alist))) + (cond ((and + (or (interactive-p) + (eq this-command 'wl-summary-write) + (eq this-command 'wl-summary-write-current-folder) + (eq this-command 'wl-folder-write-current-folder)) + (string= (cdr (assq 'To header-alist)) "")) (mail-position-on-field "To")) + ((or (eq this-command 'wl-summary-write-current-folder) + (eq this-command 'wl-folder-write-current-folder)) + (mail-position-on-field "Subject")) (t (goto-char (point-max)))) buf-name)) -- 1.7.10.4