[Mew-dist 462] [Summary] Unseen Mark

[A. SAGATA]

さがた＠NTTです．

mew-distに頻繁に既読マーク/未読マークの質問があるような気がするので，
一度まとめます．

;   infoに書いてあるので，replied-headerをつけないという
;   mewのポリシーは知ってますし共感しますが，
;   unseenをサポートしないのも理由があるのでしょうか？
;   ＃ 確かに厳密に言えば/var/spool/mailをじか読みしてるという
;   ＃ 可能性はあるが...

ちょっと古いですが，

In message <199701140715.QAA71360 at example.com>,
	Katsuhisa fujinaga <j1595104 at example.com> writes.
j1595104> mewですでに読んだメールに何らかのマークを
j1595104> 自動でつける方法ってあるのでしょうか？
j1595104> 結構メールが多い上にタイトルが似たようなのが多いため、
j1595104> すでに読んだがすぐに分かると便利なのですが。

★手法..
○step 1
     あなたの .mh_profileに
             Unseen-Sequence: unseen
     の行を挿入.

○step 2 : scan.formを改造し,未読メールに "!" マークをつける.
     次の文字列を入れて下さい.
     -----
     %<(unseen)!%| %>
     -----
     場所はどこでも良いというわけでもなく,
     『%<(cur)+%| %>』という文字列の直後に挿入して下さい.
     変更前:  %4(msg)%<(cur)+%| %>%<{replied}-%|%<{encryp ....
                                 ↓
     変更後:  %4(msg)%<(cur)+%| %>%<(unseen)!%| %>%<{replied}-%|%< ....
                                  ~~~~~~~~~~~~~~~~
     ※ 場所を変えても構いませんが，mewのunmarkとぶつかる可能
        性があるので，変えない方が良いです．

○step 3 : .mule に以下を挿入して下さい. 
     これは
             概メールを読むとmarkコマンドでunseen-sequenceを変更する.
             summary-bufferの未読マーク"!"を消す.
     の処理を行います.
---
(setq mew-prog-mark     "mark")
(setq unseen-sequence "unseen")
(add-hook 'mew-message-hook
          (function
           (lambda ()
             (and fld msg
                  (progn
                    (call-process "/bin/sh" nil nil nil "-c"
                        (format "%s %s -sequence %s -delete %s 2>/dev/null"
                        mew-prog-mark fld unseen-sequence msg))
                    (save-excursion
                      (set-buffer fld)
                      (let ((buffer-read-only nil))
                        (beginning-of-line)
                        (re-search-forward (concat "^ *" msg))
                        (forward-char 1)
                        (delete-char 1)
                        (insert " ")
                        )))
                  ))))
---

★応用.
     summary-modeで，'s' key で，mew-summary-scan を呼んだ後に,
     "Range (update): " と聞かれますが ここで，
                unseen [ret]
     と答えると未読メールのみが表示されます．

★要望があれば....
     要望があれば，"/"で，pickするときにall ではなく，unseenのメー
     ルからのみpickするように改造することも容易だと思います．

★しかし mew-2.0からは..
     mhから離れるそうなので，このtipもそれまでの命でしょう(^^;

-- 
日本電信電話株式会社 ヒューマンインタフェース研究所
     嵯峨田  淳       sagata at example.com