[Mew-dist 16463] mew-buffer-message (Re: サマリに対応したメッセージ)

[Yoshiaki Kasahara]

笠原＠九大です。

On Sun, 18 Feb 2001 05:06:36 +0900,
	Kazu Yamamoto (山本和彦) <kazu at example.com> said:

> (mew-buffer-message) です。

あ、これで思い出したんですが、mew-buffer-message は window-system が
non-nil の時だけ番号を振っていますよね。

でも gnuclient とか make-frame-on-tty とかすると window-system は nil 
だけど複数のフレームを作れて同時に違うメールを読めるので、
window-system かどうかは関係なく (selected-frame) の内容だけで番号を振っ
ていった方がいいように思うのですがどうでしょうか?

リモートから入って screen とか使ってるとマレにそういう事があるので…。

私は mew.el と mew-func.el からみようみまねでひっぱってきて以下の定義
を突っこんで使っていますが、 XEmacs21.2 しか使っていないので他でどうな
るかはわかりません。また、frame を作ったり消したりした時に frame-list 
がどう変化するかも追及せずに使っています。

(defun mew-member-obj-equal (obj list)
  (let ((n 0))
    (catch 'member
      (while list
	(if (equal (car list) obj)
	    (throw 'member n))
	(setq list (cdr list))
	(setq n (1+ n))))))

(defun mew-buffer-message ()
  (concat
   mew-buffer-message
   (int-to-string
    (mew-member-obj-equal (selected-frame) (frame-list)))))

-- 
九州大学 情報基盤センター 研究部                              ========
笠原義晃                                                      |工事中|
kasahara at example.com                                    |======|