* wl-draft.el (wl-draft):

Remove unnecesary part about positioning of the cursor.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b1ddfea..a1b928b 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -2,8 +2,7 @@
 
        * 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).
+       * 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-draft.el b/wl/wl-draft.el
index d9d400f..e7b87cf 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1499,15 +1499,9 @@ Derived from `message-save-drafts' in T-gnus."
     (goto-char (point-min))
     (wl-user-agent-compose-internal) ;; user-agent
     (cond ((and
-           (or (interactive-p)
-               (eq this-command 'wl-summary-write)
-               (eq this-command 'wl-summary-write-current-folder)
-               (eq this-command 'wl-folder-write-current-folder))
+           (interactive-p)
            (string= (cdr (assq 'To header-alist)) ""))
           (mail-position-on-field "To"))
-         ((or (eq this-command 'wl-summary-write-current-folder)
-               (eq this-command 'wl-folder-write-current-folder))
-          (mail-position-on-field "Subject"))
          (t
           (goto-char (point-max))))
     buf-name))