[mew-dist 29187] Re: +queue に残ってしまう場合

> 


well known(22,80,443)

 587  +queue




From: KOIE Hidetaka () <[email protected]>
Subject: [mew-dist 29162] Re: +queue 
Date: Wed, 17 Mar 2010 17:47:02 +0900 (JST)

>   Message-Id: <20100316.151400.163221748.lifebook-4234377@silvergrain...
>   Date:       Tue, 16 Mar 2010 15:14:00 -0400 (EDT)
>   From:       Ryuji Suzuki <[email protected]>
>   Subject:    [mew-dist 29160] +queue 
> 
>   | mew  SMTP over SSH 
>   | +queue
>   | 
> 
> 
> 
>   | 
>   | 
>   | 
>   | 
> 
> 
> 
> (defvar mew-queue-watch-interval 5)
> (defvar mew-queue-watch-timer nil)
> (defun mew-queue-watch ()
>   (when (directory-files (mew-expand-folder "+queue") nil "^[1-9][0-9]*$" nil)
>     (message "queue is not empty")))
> (defun mew-queue-watch-start ()
>   (interactive)
>   (setq mew-queue-watch-timer
>         (run-with-idle-timer mew-queue-watch-interval
>                              mew-queue-watch-interval
>                              'mew-queue-watch)))
> (defun mew-queue-watch-stop ()
>   (interactive)
>   (cancel-timer mew-queue-watch-timer)
>   (setq mew-queue-watch-timer nil)
>   (cancel-function-timers 'mew-queue-watch))
> (provide 'mew-queue-watch)
> 
> --
>  <[email protected]>