From e21941a415f1b0c567b2635524853573ef3c3411 Mon Sep 17 00:00:00 2001 From: yoichi Date: Mon, 21 Oct 2002 23:53:14 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-forward): If wl-draft-use-frame, select summary buffer window before creating new frame. (wl-draft-reply): Ditto. --- wl/ChangeLog | 6 ++++++ wl/wl-draft.el | 6 ++++++ 2 files changed, 12 insertions(+) diff --git a/wl/ChangeLog b/wl/ChangeLog index b8606d6..aaa6699 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2002-10-21 Yoichi NAKAYAMA + + * wl-draft.el (wl-draft-forward): If wl-draft-use-frame, select + summary buffer window before creating new frame. + (wl-draft-reply): Ditto. + 2002-10-21 Hiroya Murata * wl-mime.el (toplevel): Avoid byte-compile warnings. diff --git a/wl/wl-draft.el b/wl/wl-draft.el index e6f99e2..053b9fa 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -295,6 +295,9 @@ e.g. references (wl-delete-duplicates references) references (when references (mapconcat 'identity references "\n\t")))) + (and wl-draft-use-frame + (get-buffer-window summary-buf) + (select-window (get-buffer-window summary-buf))) (wl-draft (list (cons 'To "") (cons 'Subject (concat wl-forward-subject-prefix original-subject)) @@ -461,6 +464,9 @@ Reply to author if WITH-ARG is non-nil." references (wl-delete-duplicates references) references (if references (mapconcat 'identity references "\n\t"))) + (and wl-draft-use-frame + (get-buffer-window summary-buf) + (select-window (get-buffer-window summary-buf))) (wl-draft (list (cons 'To to) (cons 'Cc cc) (cons 'Newsgroups newsgroups) -- 1.7.10.4