[mew-dist 20135] Re: *Mew message*バッファが2つ

[[ODDS] ogawa, takanori]

はじめまして。小川と申します。
いきなり、古いスレッドを掘りおこしてきて申し訳ないですが...

Kazu Yamamoto (山本和彦) <kazu at example.com> wrote:

> フレームの番号は、(frame-list) が返す順番に Mew が独自にふっています。

これは mew-buffer-message() の動作という認識でよろしいでしょうか?
とすると、以下のようであるべきと思います。
# インデント整えてません

Index: mew.el
===================================================================
RCS file: /cvsmew/mew/mew.el,v
retrieving revision 1.79
diff -u -r1.79 mew.el
--- mew.el	2002/01/09 03:35:33	1.79
+++ mew.el	2002/01/22 11:03:26
@@ -393,10 +393,11 @@
 	 (len (length frames))
 	 (i 0))
     (catch 'loop
+      (while frames
       (if (equal me (car frames))
 	  (throw 'loop i))
       (setq i (1+ i))
-      (setq frames (cdr frames)))
+      (setq frames (cdr frames))))
     (setq i (- len i 1))
     (format "%s%d" mew-buffer-message i)))
 

個人的には以下でいい気もします。

(defun mew-buffer-message ()
  (let ((i (1- (length (member (selected-frame) (frame-list))))))
    (format "%s%d" mew-buffer-message i)))

--
小川敬則 <ogawa at example.com>