R.A. Epigonos et al.

[wanderlust] 50日間経ったメールを自動的に削除

ニュースなど50日も経てば価値がなくなるメールを自動的に削除したい。

例えば以下のような検索ディレクトリがあり、この中には50日も経てば価値がなくなるメールが含まれているとする。

/subject:"はてなアンテナ ページが更新されました"/%inbox

~/.wlに以下の内容を追記する。こうすることで先ほどの検索ディレクトリの中から50日以上経過したメールを削除してくれる。

(setq wl-expire-alist
 '(
         ("^/subject:\\\"はてなアンテナ ページが更新されました\\\"" (date 50) trash)
         ;; wl-trash-folder にリファイルする。
  )
 )
(setq wl-expire-use-log t)

このままだと自動的には削除されない。該当するフォルダに移動してサマリーモードになってから、以下のように入力する。

M-x wl-summary-expire

以下のようなログが流れ、trashフォルダに移動されたことがわかる。

Expire /subject:"はてなアンテナ ページが更新されました"/%inbox? (y or n) y
Expiring (move %***********************************/clear@imap.gmail.com:993!) 21 msgs...
Waiting for IMAP response...done
Expiring (move %***********************************/clear@imap.gmail.com:993!) 21 msgs...done
Expiring /subject:"はてなアンテナ ページが更新されました"/%inbox is done

自動的に削除するには以下の内容を.wlに追記する。フォルダモードからサマリーモードに移ったときにwl-expire-alistの基準に従って自動的に削除される。

(add-hook 'wl-summary-prepared-pre-hook 'wl-summary-expire)

wl-expire-use-logをtにしているので~/.elmo/expired-logにログが残る。

$ cat ~/.elmo/expired-log
move    /subject:"はてなアンテナ ページが更新されました"/%inbox -> %***********************************/clear@imap.gmail.com:993!    (282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302)

リファレンス

  1. Wanderlust(Expire)
  2. wl expire - Google 検索
  3. wl-expire-alist 確認 - Google 検索

ソーシャルブックマーク

  1. はてなブックマーク
  2. Google Bookmarks
  3. del.icio.us

ChangeLog

  1. Posted: 2009-12-15T08:12:18+09:00
  2. Modified: 2009-12-15T08:12:18+09:00
  3. Generated: 2024-10-28T23:09:16+09:00