Update.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a1b928b..fc1fb36 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,7 +1,7 @@
 2002-03-17  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * wl-summary.el (wl-summary-write-current-folder): If it cannot
-       guess anything, call wl-summary-write interactively.
+       guess anything, call wl-summary-write.
        * wl-draft.el (wl-draft): Undo unnecessary part of the last change.
 
 2002-03-17  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 38ce254..19c8d6f 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -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)
-       (call-interactively 'wl-summary-write)
+       (wl-summary-write)
       (unless (or (stringp (nth 0 guess-list))
                  (stringp (nth 1 guess-list))
                  (stringp (nth 2 guess-list)))