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

  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]>