README.shimbun.ja とMewの未読 マーク変更

[Satoshi TAOKA <taoka@xxxxxxxxxxxxxxxxxxxxxxxxxx>]

田岡です。


README.shimbun.jaやhttp://www.mew.org/ml/mew-dist-2.0/msg01251.html を
参考に$を未読マークにするための設定をしたのですが、
少し苦労しました。
http://www.mew.org/ml/mew-dist-2.0/msg01251.html はMIMEメッセージでは
なくなっているので、mew-easy-mark-creator.el を取り出すだけでも苦労し
ます。

ということで、README.shimbun.ja に次の記述を加えては
いかがでしょうか?

ところで、「"C-u N" でそのマークを指定すると楽しい未読ライフをおくるこ
とができると思います。」の意味が分かりませんでした。

Index: README.shimbun.ja
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/README.shimbun.ja,v
retrieving revision 1.21.2.8
diff -u -r1.21.2.8 README.shimbun.ja
--- README.shimbun.ja	26 Nov 2002 01:04:32 -0000	1.21.2.8
+++ README.shimbun.ja	26 Nov 2002 05:25:19 -0000
@@ -386,10 +386,9 @@
 に保存するには、その folder を読み終わったときに "scan update" をする習
 慣をつけると良いでしょう。
 
-未読に使うマークが "*" じゃダメ、という方は、
-http://www.mew.org/ml/mew-dist-2.0/msg01251.html
-を参考にして新しいマークを定義してください。"C-u N" でそのマークを指定す
-ると楽しい未読ライフをおくることができると思います。
+未読に使うマークが "*" じゃダメ、という方は、3.4節を参照してください．
+"C-u N" でそのマークを指定すると楽しい未読ライフをおくることが
+できると思います。
 
 (*2) mew-touch-folder-p が 't' の人はほぼ 100% 保存できますが、'nil'
   の人が保存できる可能性はほとんど 0% だと思われます。
@@ -409,6 +408,62 @@
 ん。"Ge (mew-shimbun-expire)" でその folder の期限切れ記事を消去します。
 "GE (mew-shimbun-expire-all)" で設定した全ての folder で記事の消去を実行
 します。なお、一度消去した記事は復活出来ませんので注意してください。
+
+
+3.4 未読マークとして$を追加する方法
+
+$マークを新たに作成し、$マークを未読マークとして使うには，次の記述を、
+mew-shimbunを読込むための記述
+
+(require 'mew-shimbun)
+
+よりも前に挿入してください。後ろに追加してしまうと，メッセージを読んでも
+未読マークが自動で取れません．
+なお、$以外の記号にしたければ、
+http://www.mew.org/ml/mew-dist-2.0/msg01251.html 
+を参照して記述を生成してください。
+
+
+----------------------------------------------------------------------
+;;; $ を未読マークとして使うための記述
+(setq mew-mark-unseen ?$)
+(setq mew-mark-show-list (cons mew-mark-unseen mew-mark-show-list))
+(setq mew-mark-afterstep-spec
+      (cons (cons mew-mark-unseen '(1 0 1 0 0 0 0)) mew-mark-afterstep-spec))
+(setq mew-mark-spec
+      (cons (list mew-mark-unseen "unseen" 0 nil nil nil nil nil)
+	    mew-mark-spec))
+(setq mew-highlight-mark-keywords
+      (cons
+       (cons mew-mark-unseen 'mew-face-mark-unseen)
+       mew-highlight-mark-keywords))
+(defface mew-face-mark-unseen
+  '((((class color) (type tty)) (:foreground "green"))
+    (((class color) (background light)) (:foreground "deep pink" :bold t :italic t))
+    (((class color) (background dark)) (:foreground "thistle"))
+    (t (:bold t)))
+  "*Face to highlight the unseen mark"
+  :group 'mew-highlight)
+(defun mew-summary-unseen (&optional count)
+  "Put the unseen mark(default is '$') in COUNT times."
+  (interactive "P")
+  (mew-mark-put-mark-loop (function mew-summary-unseen-one) count nil))
+(defun mew-summary-unseen-one (&optional no-msg)
+  "Put the unseen mark(default is '$') on this message."
+  (mew-mark-put-mark mew-mark-unseen no-msg))
+(defun mew-summary-mark-unseen ()
+  "Change the '*' mark into the '$' mark."
+  (interactive)
+  (mew-summary-exchange-mark mew-mark-review mew-mark-unseen))
+(defun mew-thread-mark-unseen ()
+  "Put the '$' mark on all messages of the current sub-thread."
+  (interactive)
+  (mew-thread-mark mew-mark-unseen))
+
+(define-key mew-summary-mode-map "$"  'mew-summary-unseen)
+(define-key mew-summary-mode-map "m$" 'mew-summary-mark-unseen)
+(define-key mew-summary-mode-map "t$" 'mew-thread-mark-unseen)
+----------------------------------------------------------------------
 
 
 Local Variables: