From: yoichi <yoichi>
Date: Sun, 17 Mar 2002 09:42:56 +0000 (+0000)
Subject: * wl-draft.el (wl-draft):
X-Git-Tag: elmo-mark-root~250
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=406bf55ac5f6a7459a91123c0d4c8c9db8fceccf;p=elisp%2Fwanderlust.git

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