From: yoichi <yoichi>
Date: Thu, 12 Sep 2002 16:12:20 +0000 (+0000)
Subject: * wl-addrmgr.el (wl-addrmgr-apply-exec): Call wl-draft interactively
X-Git-Tag: elmo-mark-root~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=de0582ea3337b3a3b23086c732a3340d5f93e230;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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