[mew-dist 19820] Re: refile mark vs another exist mark

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 19819] Re: refile mark vs another exist mark
Message-ID: <20011211.202701.123579384.kazu at example.com>
Date: Tue, 11 Dec 2001 20:27:01 +0900 (JST)

kazu> > ## auto-refile の
kazu> > ## (setq msg (format "Refile all non-marked messages? "))
kazu> > ## とかってなぁに？ 以前の残骸かしら？
kazu> 
kazu> 10 分考えて、意味が分りました。:-)
kazu> format() は、残骸のようです。削りました。

すいません。わかりやすく書けば良かったです。

kazu> ところで、その下の
kazu> 
kazu> 	(setq msg (format "Refile all messages except those marked with '%c' and '%c'? " mew-mark-refile mew-mark-delete))))
kazu> 
kazu> というメッセージは、この改良によりそぐわなくなりますけど、どうしましょ
kazu> う？

# 気にしないつもりだったんですが ^^;;;

以下、やりスギかも ("that" にするべきかどうか眠くてわからん)

       (t
	(let ((spec mew-mark-spec)
	      (reflvl (mew-markdb-level mew-mark-refile))
	      gtmarks)
	  (while spec
	    (when (>= (mew-markdb-level (car (car spec))) reflvl)
	      (setq gtmarks (cons (car (car spec)) gtmarks)))
	    (setq spec (cdr spec)))
	  (if (= (length gtmarks) 1)
	      (setq msg (format "Refile all messages except that marked with '%c'? "
				(car gtmarks)))
	    (setq msg "Refile all messages except those marked with ")
	    (setq gtmarks (nreverse gtmarks))
	    (while gtmarks
	      (setq msg (concat msg
				(format "'%c'" (car gtmarks))
				(progn
				  (setq gtmarks (cdr gtmarks))
				  (cond
				   ((null gtmarks) "? ")
				   ((= (length gtmarks) 1) " and ")
				   (t ", "))))))))))

もう一点、普段 mew-refile-auto-refile-confirm => nil のままなの
で全然気にならないのですが、その先は、

(yes-or-no-p msg) 

ではなく

(y-or-n-p msg)

でいいんじゃないでしょうか。

たしか、過去の議論では、数年前にいつでも yes-or-no-p するように
なったときがあり、そのときに『それはめんどくさい』という話で
mew-refile-auto-refile-confirm を乃村さんが作ってくれました。で、
変数ができたので、yes-or-no-p or y-or-n-p の話は消えちゃったと記
憶しています。

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