From 9d0d14aa426c172643cfbb4db550bd61494f096a Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 17 Mar 2002 09:34:26 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-write-current-folder): If it cannot guess anything, call wl-summary-write interactively. * wl-draft.el (wl-draft): Undo corresponding part of the last change (the blank To header). --- wl/ChangeLog | 7 +++++++ wl/wl-draft.el | 10 +--------- wl/wl-summary.el | 6 +++--- 3 files changed, 11 insertions(+), 12 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index c389987..b1ddfea 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,12 @@ 2002-03-17 Yoichi NAKAYAMA + * wl-summary.el (wl-summary-write-current-folder): If it cannot + guess anything, call wl-summary-write interactively. + * wl-draft.el (wl-draft): Undo corresponding part of the last + change (the blank To header). + +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 diff --git a/wl/wl-draft.el b/wl/wl-draft.el index db9d857..d9d400f 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -1473,15 +1473,7 @@ Derived from `message-save-drafts' in T-gnus." (unless (cdr (assq 'To header-alist)) (let ((to)) (when (setq to (and - (or (interactive-p) - (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)))) + (interactive-p) "")) (if (assq 'To header-alist) (setcdr (assq 'To header-alist) to) diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 227a820..38ce254 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -4987,8 +4987,8 @@ Reply to author if invoked with ARG." (defun wl-summary-write () "Write a new draft from Summary." (interactive) - (wl-draft nil nil nil nil nil - (wl-summary-buffer-folder-name)) + (wl-draft (list (cons 'To "")) + nil nil nil nil (wl-summary-buffer-folder-name)) (run-hooks 'wl-mail-setup-hook) (mail-position-on-field "To")) @@ -5015,7 +5015,7 @@ Use function list is `wl-summary-write-current-folder-functions'." (setq guess-func (car func-list)) (setq func-list nil))) (if (null guess-func) - (wl-draft) + (call-interactively 'wl-summary-write) (unless (or (stringp (nth 0 guess-list)) (stringp (nth 1 guess-list)) (stringp (nth 2 guess-list))) -- 1.7.10.4