[Mew-dist 08658] Re: mail-user-agent

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 08652] Re: mail-user-agent
Message-ID: <19990426144029X.kazu at example.com>
Date: Mon, 26 Apr 1999 14:40:53 +0900

kazu> これは、対処します。
kazu> らじゃ。
kazu> らじゃ。

どうも、どうも、どうも。(__)

kazu> > 3. (これは、まぁ、どうでもいいのですが……)
kazu> >  switch-function にも対応していただけると嬉しいです。そうすると、
kazu> >  "C-x5m" "C-x4m" が意図した動作をするので、もっと幸せになります。
kazu> 
kazu> 仕様を詳しく書いて下さい。以下を入れればいいだけでしょうか？
kazu> 
kazu>   (if switch-function
kazu>       (let ((special-display-buffer-names nil)
kazu>             (special-display-regexps nil)
kazu>             (same-window-buffer-names nil)
kazu>             (same-window-regexps nil))
kazu>         (funcall switch-function "*mail*"))) ← ここはどうする？

# うぅ、以前書いたとき、一番わかっていなかったところです。^^;

C-x(4|5)m をすると、simple.el から

(defun compose-mail-other-window (&optional to subject other-headers continue
					    yank-action send-actions)
  "Like \\[compose-mail], but edit the outgoing message in another window."
  (interactive
   (list nil nil nil current-prefix-arg))
  (compose-mail to subject other-headers continue
		'switch-to-buffer-other-window yank-action send-actions))

(defun compose-mail-other-frame (&optional to subject other-headers continue
					    yank-action send-actions)
  "Like \\[compose-mail], but edit the outgoing message in another frame."
  (interactive
   (list nil nil nil current-prefix-arg))
  (compose-mail to subject other-headers continue
		'switch-to-buffer-other-frame yank-action send-actions))

なので、switch-function でよばれるのは、
switch-to-buffer-other-(window|frame) です。(これだけだと思う)

(defun mew-user-agent-compose (&optional to subject other-headers continue
                                             switch-function yank-action
                                             send-actions)
 << snip >>
    (mew-window-configure (current-buffer) 'draft)
    (mew-summary-prepare-draft
     (if switch-function
	 (let ((special-display-buffer-names nil)
	       (special-display-regexps nil)
	       (same-window-buffer-names nil)
	       (same-window-regexps nil))
	   (funcall switch-function (find-file-noselect file)))
       (switch-to-buffer (find-file-noselect file)))
     (mew-draft-rename file)

としたら、うまく動いているような感じです。mew-window-configure
との兼ね合いが不明なんですが……

-- 
白井秀行 (mailto:shirai at example.com)