[Mew-dist 14782] Re: mew-scan-form-mark-delete/review

[井上 知洋]

こんにちは、井上です。

KOIE Hidetaka (鯉江英隆) <hide at example.com>:
> ~/.mewで
>     (setq mew-scan-form-mark-delete t)
>     (setq mew-scan-form-mark-review t)
> と設定して、自分宛のメイルに`*'を
> msg-idが重複しているメイルに`D'を付けるようにしているのですが、
> mew-summary-getしたときにsummary bufferに色が付きません。
> 特に`D'に色がつかないのは危険。
> 
> ところで
> IM時代にはrefile/deleteと上記のマークとを別に位置に出させていたのですが
> こういう設定は可能でしょうか。また、色をつけられるとうれしいのですが。

(defun mew-scan-form-mymark ()
  (let ((id (MEW-ID)) duplicated review)
    (if (string= id "")
	()
      (if (member id mew-scan-ids) ;; in Summary mode
	  (setq duplicated t)
	(setq mew-scan-ids (cons id mew-scan-ids))))
    (let ((to (mew-addrstr-parse-address-list (MEW-TO))))
      (catch 'loop
	(while to
	  (if (mew-is-my-address mew-regex-my-address-list (car to))
	      (throw 'loop (setq review t)))
	  (setq to (cdr to)))))
    (cond
     (duplicated "D")
     (review "*")
     (t " "))))
;;; mew-scan-form-mark とほぼ同じ

として、

(setq mew-scan-form-mark-delete nil)
(setq mew-scan-form-mark-review nil)

(setq mew-scan-form '(mymark type (5 date) " " (14 from) " " (0 subj))

みたいにすればよいと思います。


あるいは、
(defun mew-scan-form-mymark ()
  (cond 
     ((string-match "MY_ADDRESS" (MEW-TO)) "*")
     ((string-match "mew-dist" (MEW-TO)) "m")
     ((string-match "\\(DAEMON\\|postmaster\\)@" (MEW-FROM)) "e")
     (t " ")
     )
  )

のようにして、メールの種類ごとにマークを付けた方が便利かもしれません。

色を付けるのは、僕は font-lock を使ってやっています。
+inbox を「未処理メール」リストとして使うやり方だと、
メールの種類ごとに色分けされるのはとても便利です。


---
         井上 知洋