From 406bf55ac5f6a7459a91123c0d4c8c9db8fceccf Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 17 Mar 2002 09:42:56 +0000 Subject: [PATCH] * wl-draft.el (wl-draft): Remove unnecesary part about positioning of the cursor. --- wl/ChangeLog | 3 +-- wl/wl-draft.el | 8 +------- 2 files changed, 2 insertions(+), 9 deletions(-) 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 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)) -- 1.7.10.4