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

[Hayashi Masahiro ( 林 雅博 )]

林と申します。

From: ZVD06600 <ZVD06600 at example.com>
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