[Mew-dist 08805] Re: make new frame

[hayase at example.com]

早瀬＠NTTと申します。

mew で新しいフレームを作成するという話ですが、

From: nara at example.com
Subject: [Mew-dist 08795] make new frame
Date: Fri, 14 May 1999 11:17:01 +0900
Message-ID: <19990514111554N.nara at example.com>

> mewでメールを読む時に、新しいフレームを作成して終了した時に削除するよ
> うにしたいのですが、どのようにすれば良いのでしょうか。
> XEmacsのVMの様にしたいのですが。
> 宜しくお願いします。

XEmacs の VM は存じ上げませんし、終了したときに削除することはできません
が、私は以下のようにしています。

1) .emacs に以下を追加します。

------------------------------------------------------------------------
(if (eq window-system 'x)
    (define-key global-map "\C-xR" 'mew-other-frame)
  (define-key global-map "\C-xR" 'mew)
)

;; pop-up mew's frame
(if (eq window-system 'x)
    (defun mew-other-frame (&optional arg)
      "Like `mew' command, but display *Mew message* buffer in another frame."
      (interactive "P")
      (let* ((pop-up-frames t)
	     (pop-up-frame-alist
	      (append
	       '( (name . "Mew's frame") 
		  (width . 88)
		  (height . 55)))))
	(pop-to-buffer "*Mew message*"))
      (mew arg))
  )
------------------------------------------------------------------------

2) メールを読むときには、C-x R します。

なにぶん、emacs lisp が良く分かっていないので、スマートな解法ではないと
思います。

おそらく、上のと似たようなコードを xxx-hook か何かに追加するというのが良
いんじゃないかと思いましたが、できませんでした。

=================================================
早瀬 千善
e-mail: hayase at example.com (Kazuyoshi HAYASE)