From 9abebea731c34a4ec3f61fbcb8747f0f457d725f Mon Sep 17 00:00:00 2001 From: kaoru Date: Tue, 1 May 2001 05:51:28 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-write-current-folder): Set cursor position on Subject: field. (Advised by Mito ) --- wl/ChangeLog | 6 ++++++ wl/wl-summary.el | 17 +++++++---------- 2 files changed, 13 insertions(+), 10 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index abdfcdc..fb5a603 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2001-05-01 TAKAHASHI Kaoru + + * wl-summary.el (wl-summary-write-current-folder): Set cursor + position on Subject: field. + (Advised by Mito ) + 2001-04-27 Hiroya Murata * wl-folder.el (wl-folder-prefetch-entity): Use diff --git a/wl/wl-summary.el b/wl/wl-summary.el index bc9b0f5..e8bdfed 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -4879,16 +4879,13 @@ Use function list is `wl-summary-write-current-folder-functions'." (nth 2 guess-list)) ; Newsgroups: (setq flist nil) (setq flist (cdr flist)))) - (if guess-list - (progn - (wl-draft (nth 0 guess-list) ; To: - nil nil - (nth 1 guess-list) ; Cc: - nil - (nth 2 guess-list)) ; Newsgroups: - (run-hooks 'wl-mail-setup-hook)) -;;; (error "%s is not newsgroup" folder) - (error "Can't guess by folder %s" folder))))) + (when (null guess-list) + (error "Can't guess by folder %s" folder)) + (wl-draft (nth 0 guess-list) nil nil ; To: + (nth 1 guess-list) nil ; Cc: + (nth 2 guess-list)) ; Newsgroups: + (run-hooks 'wl-mail-setup-hook) + (mail-position-on-field "Subject")))) (defun wl-summary-forward (&optional without-setup-hook) "" -- 1.7.10.4