[mew-dist 25242] Re: refile と scan all
Hideyuki SHIRAI ( 白井秀行 )
shirai at example.com
2004年 9月 3日 (金) 12:41:50 JST
From: Shun-ichi TAHARA (田原 俊一) <jado at example.com> さん曰く
Subject: [mew-dist 25230] Re: refile と scan all
Message-ID: <20040901.114640.526288903.jado at example.com>
Date: Wed, 01 Sep 2004 11:46:40 +0900 (JST)
> > いわゆる Spam なのですが、From: や Subject: に"|"が入っているメール
> > を refile すると、"|<+xxx>" というように refile 先が Summery 上に表示
> > されます。
> これは、多分「正規表現に頼らない refile view」を実装すれば解決するんで
> すよね。
mew-summary-form-body-starter を使わない refile info って昔書い
たけど、『summary の派手さ追求統一案』が決まってから検討、とかな
りましたね、たしか。
> > また、それを消そうと s all すると、既読メールに U が付き、未読扱いに
> > なります。再現しますでしょうか?
これはぼくも気に入らないですね。こんなのでどうでしょうか。all や
last:n だと、単に前についていた unread mark を引き継ぐようになり
ます。
--- mew-local.el 03 Sep 2004 12:33:23 +0900 1.87
+++ mew-local.el 03 Sep 2004 12:31:59 +0900
@@ -258,25 +258,28 @@
range pro opts)
(message "Scanning %s..." bnm)
(mew-sinfo-set-summary-form (mew-get-summary-form bnm))
- (mew-sinfo-set-unread-mark (mew-get-unread-mark bnm))
(mew-sinfo-set-scan-id nil)
(mew-info-clean-up pnm)
(mew-local-set-directive pnm directive)
(mew-local-set-bnm pnm bnm)
(cond
((eq directive 'inc)
+ (mew-sinfo-set-unread-mark (mew-get-unread-mark bnm))
(mew-local-set-flush pnm (nth 1 args))
(setq opts (append (nth 2 args) (mew-scan-mewl-src (nth 0 args)))))
((eq directive 'scan)
(setq range (nth 1 args))
- (when (nth 2 args)
+ (if (not (nth 2 args))
+ (mew-sinfo-set-unread-mark (mew-get-unread-mark bnm))
;; erasing
+ (mew-sinfo-set-unread-mark nil)
(mew-local-set-mdb pnm (mew-summary-mark-collect4))
(mew-erase-buffer)
(setq mew-summary-buffer-raw nil)
(mew-summary-folder-cache-save))
(setq opts (mew-scan-mewl-src (nth 0 args) range)))
((eq directive 'vir)
+ (mew-sinfo-set-unread-mark (mew-get-unread-mark bnm))
(setq opts (nth 0 args))
(mew-vinfo-set-func (nth 1 args))
(mew-vinfo-set-lra (nth 2 args))
P.S.
unread のマークを消すタイミングなのだけど、mew-shimbun で散々考
えて決めたタイミング(mew-summary-cursor-postscript) と同じだった
ので一安心 :-)
--
白井秀行 (mailto:shirai at example.com)
Mew-dist メーリングリストの案内