[Mew-dist 466] Re: [Summary] Unseen Mark

[A. SAGATA]

さがたです．

In message <25028.854935626 at example.com>,
	"A. SAGATA" <sagata at example.com> writes.

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

若干不具合があったので，修正します．
＃ 先日送ったlispを ~/.mule に入れて，
＃ 'mo' でmew-summary-mark-refile を呼ぶと,
＃ なぜか最初の(*)マークだけ，refileされない(ことがある)ので，
＃ それを修正しました．

ps.
って，MLに投げるほど，使われていないような気がするが...

------------------------------8<--snip-snip--8<------------------------------
;;
;; changing unseen-sequence
;; Coded by A.SAGATA at example.com NTT
;;
(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)
		      (beginning-of-line)
		      (if (re-search-forward 
			   (concat "^ *" msg ".[!]") nil t nil)
			  (let ((buffer-read-only nil))
			    (delete-backward-char 1)
			    (insert " ")
			    )))
		    ) ;; end of progn
		  ))))
------------------------------8<--snip-snip--8<------------------------------
-- 
日本電信電話株式会社 ヒューマンインタフェース研究所
     嵯峨田  淳       sagata at example.com