[Mew-dist 15536] Re: Multi vs. Review

[Hideyuki SHIRAI ( 白井秀行 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com> 曰く
Subject: [Mew-dist 15367] Re: Multi vs. Review (Re: about 'i' in ++inbox(thread) after 'C-cC-b')
Message-ID: <20001211.183315.50040492.shirai at example.com>
Date: Mon, 11 Dec 2000 18:33:25 +0900

白井> From: Shun-ichi TAHARA (田原 俊一) <jado at example.com> さん曰く
白井> Subject: [Mew-dist 15359] Multi vs. Review (Re: about 'i' in ++inbox(thread) after 'C-cC-b')
白井> Message-ID: <20001209.000707.28782849.jado at example.com>
白井> Date: Sat, 9 Dec 2000 00:09:00 +0900
白井> 
白井> > P.S.
白井> > 
白井> > ++inbox で i すると、inboxに戻って inc して、取ってきたメールに * を打っ
白井> > た状態で ++inbox に戻ると幸せ??
白井> 
白井> ## そこまでやるなら『未読マーク』の導入の方がいいかも。^^;;;

とか自分で言っておきながら、試してみたらなかなか便利でした。^^;;;
hook で動かす様にしていますので、遊んでみてくださいませ。

(defvar mew-mark-new-message-function 'mew-summary-review-one
  "Inc したとき 新しい message にマークをつける関数。
'mew-summary-XXXX-one を指定する。")

(add-hook 'mew-summary-inc-sentinel-hook 'mew-summary-mark-inc-message)

(defun mew-summary-mark-inc-message ()
  "Inc が +inbox の thread folder から呼ばれていたら、いろいろとしてみる。"
  (let ((obuf (marker-buffer mew-summary-inbox-position))
	(opos (marker-position mew-summary-inbox-position))
	(inbox (mew-inbox-folder mew-config-input))
	threadp)
    (if (and obuf (get-buffer obuf)
	     (string= (concat "+" inbox) (buffer-name obuf)))
	(progn
	  (save-excursion
	    (set-buffer obuf)
	    (setq threadp (if (mew-thread-p) t nil)))
	  (cond
	   ((and threadp (= cnt 0))
	    (mew-summary-exchange-point))
	   ((and threadp (> cnt 0))
	    (save-excursion
	      (goto-char (point-max))
	      (forward-line -1)
	      (mew-mark-put-mark-loop mew-mark-new-message-function (- cnt) nil))
	    (mew-summary-make-thread)))))))

-- 
白井秀行＠僕も ".." だったの実験してみる...