From de0582ea3337b3a3b23086c732a3340d5f93e230 Mon Sep 17 00:00:00 2001 From: yoichi Date: Thu, 12 Sep 2002 16:12:20 +0000 Subject: [PATCH] * wl-addrmgr.el (wl-addrmgr-apply-exec): Call wl-draft interactively when it creates new draft buffer. --- wl/ChangeLog | 3 +++ wl/wl-addrmgr.el | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 860a070..d6370da 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,8 @@ 2002-09-12 Yoichi NAKAYAMA + * wl-addrmgr.el (wl-addrmgr-apply-exec): Call wl-draft interactively + when it creates new draft buffer. + * wl-folder.el (wl-folder-flush-queue): Call elmo-dop-queue-flush without argument. diff --git a/wl/wl-addrmgr.el b/wl/wl-addrmgr.el index ab97311..9bc6ee8 100644 --- a/wl/wl-addrmgr.el +++ b/wl/wl-addrmgr.el @@ -622,8 +622,8 @@ Return nil if no ADDRESS exists." (when (or (null wl-addrmgr-draft-buffer) (not (buffer-live-p wl-addrmgr-draft-buffer))) (setq wl-addrmgr-draft-buffer (save-window-excursion - (wl-draft) - (current-buffer)))) + (call-interactively 'wl-draft) + (current-buffer)))) (with-current-buffer wl-addrmgr-draft-buffer (setq from (std11-field-body "From")) (if from -- 1.7.10.4