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

From: ZVD06600 <[email protected]>
Subject: [mew-dist 29132] 
Date: Thu, 25 Feb 2010 20:14:32 +0900 (JST)

> refile10

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