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

[Masahiro Yamada]

山田です。

From: Hideyuki SHIRAI <Shirai at example.com>
Subject: [Mew-Win32 00615] Re: all delete in +trash folder
Date: Wed, 20 May 1998 14:22:20 +0900

りゅうさん、白井さん、岡田＠ＮＲＩさん、
ありがとうございます。

imclean ですか。。。全然知りませんでした。(^^;;;

私は、不精なので imclean を使う方法を試してみたいとおもいます。

>> 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)))
>> ;; ---------


>> 岡田＠ＮＲＩです。
>> 
>> On Wed, 20 May 1998 13:58:43 +0900,
>>   Masahiro Yamada <yamada at example.com> wrote:
>> > このような質問をしたのは、
>> > 最近、会社で１日当り大量のメールを受け取り、
>> > 中には、関係ないメールも多いので、
>> > 仕事が終ると、+trash には100件近く溜っている状態なんです。
>> > これを、「きれいさっぱり簡単に削除」して帰宅したいのです。 (^^;;
>> 
>> 私は、.emacsに以下のように記述しています。
>> 
>> ; remove mails on trash
>> (add-hook 'mew-quit-hook '(lambda ()
>>                                (call-process "imclean")))
>> 
>> これだとMewをQで終了する時に、きれいにしてくれます。