[Mew-Win32 00615] Re: all delete in +trash folder

[Hideyuki SHIRAI]

白井です。

From: Masahiro Yamada <yamada at example.com> さん曰く
Subject: [Mew-Win32 00611] all delete in +trash folder
Message-ID: <19980520140015J.yamada at example.com>
Date: Wed, 20 May 1998 13:58:43 +0900

それじゃ、私はこっちに :-)

yamada> ＃ Mew 終了 (`Q') --->
yamada>    mini-buffer : all delete in +trash (y or n) ? --->
yamada>    y なら削除、n なら keep
yamada> 
yamada>    のような機能があればもっとうれしいなあ。。＜ 俺だけ？

.emacsに、(ちょっといいかげんかなという気もするのですが)

;; ---------
(add-hook 'mew-quit-hook
	  (lambda ()
	    (mew-trash-clean)))

(defun mew-trash-clean ()
  (interactive)
  (if (not (y-or-n-p (format "all clean in %s " mew-trash-folder)))
      ()
    (message "%s clean start ..." mew-trash-folder)
    (call-process "imclean" nil nil nil (format "--src=%s" mew-trash-folder))
    (message "%s clean start ... done." mew-trash-folder)))
;; ---------

と書いておけば、お好みのものになります。