[Mew-dist 14512] Re: patch for mew-summary-hl

[Takashi P.KATOH]

かとぺ です。

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [Mew-dist 14509] Re: patch for mew-summary-hl
Message-ID: <20001012.140731.45272182.shirai at example.com>
> あと、加藤さんの mew-refile-view.el も無変更で動きますが、

あ、そうなんですか f(^_^;
ずっと気にはなってたんですが、時間が無くって... (_o_)

> もし、加藤さんがよろしかったら添付のパッチをあてて貰えると
> 幸いです。

問題なさそうですので、あてちゃって下さい (_o_)
ありがとうございます > 白井さん。

# tmpalist のあたりでちょっと悩みましたが、'o' で +trash と
# して refile した場合の処理ですね。
# なるほど、全然気付いてませんでした。


あえて言えば、

+	   (if (string= mew-trash-folder (car (car tmpalist)))
+	       (progn
+		 (setq trash (append (cdr (car tmpalist)) trash))
+		 (setq alist (append (cdr tmpalist) alist))
+		 (setq tmpalist nil))
+	     (setq alist (cons (car tmpalist) alist))

のところは、

	   (if (string= mew-trash-folder (car (car tmpalist)))
	       (setq trash (append (cdr (car tmpalist)) trash)
		     alist (append (cdr tmpalist) alist)
		     tmpalist nil))
	     (setq alist (cons (car tmpalist) alist))

とすれば括弧が一つ減らせるかな、というくらいです ;-)



あと、ず〜っと前から作りたいと思っているのは、folder のとこ
ろで u を押したら、その folder に refile されているものが全
部 unmark される機能です。

例えば、

| +mew/mew-14500
|  4065 M10/12 Hideyuki SHIRAI (  [Mew-dist 14509] Re: patch for mew-summary-
|  4066 M10/12 Yasunari Momoi     [Mew-dist 14510] Re: b68
|  4067 M10/12 Yasunari Momoi     [Mew-dist 14511] Re: b68

のとき、"+mew/mew-14500" のラインで u を押すと、4065, 4066,
4067 が unmark される、という感じ。
自分で言うのもなんですが、便利そうじゃありません?

-- 
かとぺ / 加藤 貴司
と、ここまで書いておけばきっと誰かが... (^_^;;;