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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c389987..b1ddfea 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,12 @@
 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.
+       * wl-draft.el (wl-draft): Undo corresponding part of the last
+       change (the blank To header).
+
+2002-03-17  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
        * 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 (file)
--- 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 (file)
--- 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)))