2010年2月27日

[mew-dist 29134] Re:振り分けについて

林と申します。

From: ZVD06600 <ZVD06600@xxxxx>
Subject: [mew-dist 29132] 振り分けについて
Date: Thu, 25 Feb 2010 20:14:32 +0900 (JST)

> refileの条件で受信後10日過ぎたメールを指定する事は可能でしょうか?

mew-refile-guess-alist だけだと多分できないですが、
mew-refile-guess-control の値を変更して自前の関数を作って (my-mew-refile-guess-by-alist-with-date)
処理してあげれば大体は処理できるみたいです。
Date フィールドを使うか、ファイルの変更時刻を使うかはお好みで。
以下の設定で私のメールが 10 日ぐらいしたらゴミ箱へ行きます。

(add-to-list 'mew-refile-guess-control 'my-mew-refile-guess-by-alist-with-date)

(defvar my-mew-refile-guess-by-alist-with-date-threshold 10)
(defvar my-mew-refile-guess-alist-with-date nil)

;; メールの Date: フィールドを信じるなら

(defun my-mew-refile-guess-by-alist-with-date ()
(ignore-errors
(let* ((date (mew-header-get-value mew-date:))
(time (date-to-time date)))
(when (> (- (time-to-days (current-time)) (time-to-days time)) my-mew-refile-guess-by-alist-with-date-threshold)
(mew-refile-guess-by-alist1 my-mew-refile-guess-alist-with-date)))))

;; 受信時刻としてファイルの変更時刻を信じるなら (無理矢理ですが。。)

(defun my-mew-refile-guess-by-alist-with-date ()
(when (mew-folder-localp fld)
(let* ((file (mew-expand-msg fld msg))
(time (mew-file-get-time file)))
(when (> (- (time-to-days (current-time)) (time-to-days time)) my-mew-refile-guess-by-alist-with-date-threshold)
(mew-refile-guess-by-alist1 my-mew-refile-guess-alist-with-date)))))

;; mew-refile-guess-alist と書式は同じ

(setq my-mew-refile-guess-alist-with-date
'(("From:"
("mhayashi1120" "+trash"))))

--
Hayashi Masahiro


投稿者 xml-rpc : 2010年2月27日 22:30
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(0)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/93699
トラックバック
コメント
コメントする




画像の中に見える文字を入力してください。