[Mew-dist 16534] Re: mew-buffer-message

[Kazu Yamamoto ( 山本和彦 )]

From: Yoshiaki Kasahara <kasahara at example.com>
Subject: [Mew-dist 16463] mew-buffer-message (Re: サマリに対応したメッセージ)

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

わんだほー。こういう風にしてみました。

(defun mew-buffer-message ()
  (let* ((me (selected-frame))
	 (frames (frame-list))
	 (len (length frames))
	 (i 0))
    (catch 'loop
      (if (equal me (car frames))
	  (throw 'loop i))
      (setq i (1+ i))
      (setq frames (cdr frames)))
    (setq i (- len i 1))
    (format "%s%d" mew-buffer-message i)))

--かず＠sort がなくなるのは嬉しい