* wl-addrmgr.el (wl-addrmgr-apply-exec): Call wl-draft interactively

when it creates new draft buffer.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 860a070..d6370da 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2002-09-12  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
+       * 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 (file)
--- 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