[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 メーリングリストの案内