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

[Hideyuki SHIRAI]

From: Masahiro Yamada <yamada at example.com> さん曰く
Subject: [Mew-Win32 00618] Re: all delete in +trash folder
Message-ID: <19980520144905R.yamada at example.com>
Date: Wed, 20 May 1998 14:47:30 +0900

yamada> From: Hideyuki SHIRAI <Shirai at example.com>
yamada> Subject: [Mew-Win32 00615] Re: all delete in +trash folder
yamada> Date: Wed, 20 May 1998 14:22:20 +0900
yamada> 
yamada> りゅうさん、白井さん、岡田＠ＮＲＩさん、
yamada> ありがとうございます。
yamada> 
yamada> imclean ですか。。。全然知りませんでした。(^^;;;
yamada> 
yamada> 私は、不精なので imclean を使う方法を試してみたいとおもいます。

せっかくなので、".mew-cache" も消しましょう。

(defun mew-trash-clean ()
  (interactive)
  (if (not (y-or-n-p (format "all clean in %s " mew-trash-folder)))
      ()
    (let* ((folder (substring mew-trash-folder 1 nil))
	   file)
      (setq file
	    (expand-file-name mew-summary-cache-file
			      (expand-file-name folder mew-mail-path)))
      (and (file-exists-p file) (file-readable-p file) (delete-file file))
      (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))))

--
白井秀行 (Hideyuki SHIRAI)