[Mew-dist 13042] Re: mew-offline.el (was: mew-{,real-}send-hook)

[Norio Suzuki]

おはようございます。鈴木教郎です。

> From: Shuichi KITAGUCHI (北口修一) <kit at example.com>
> Date: Sun, 21 May 2000 00:31:42 +0900
>> Message-ID: <20000521.003014.57974249.kit at example.com>

> ちょうどそんな感じの作業をやっていました。queue が空になった時では
> なくて、queue を空にする操作が終了した時(要は送信の操作が終了した時)
> ですが。

mew-smtp-flush-queue でフックを呼べば良かったのか。mew-draft.el の 
mew-draft-process-message の最後にフックを呼ぼうとしてダメだなーと思っ
ていました。

queue にたまっているメッセージの数を表示する emacs lisp を添付します。

複数 のメッセージが queue にたまっていても C-cC-c で送るのは、一つだけ
なのでしょうか? 全部送ってしまって問題ないと思うのですが。


> で、こっちが本題ですが、Summary Mode で i した時に
> 接続->受信->送信->切断を実現するもの(β版)を、
<snip>
> # PPxP はうまく動いてくれなかったので、対応できていません。

私は、PPxP しか使えないので、こっちは試してないです。
-- 
鈴木教郎
E-Mail: nosuzuki at example.com
-------------- next part --------------
(defun mew-count-queue ()
  (setq mew-msg-queue-count
	(length (directory-files "~/Mail/queue" nil "^[0-9]+$")))
  (setq mew-msg-queue
	(format "<queue: %d>" mew-msg-queue-count))
  (update-mode-lines))

(defun mew-show-queue-count()
  (interactive)
  (mew-count-queue)
  (message
   (format "%d messages in queue" mew-msg-queue-count)))
  
(mew-count-queue)
; mode-line code from
;;; miee.el --- Message Intercepting and Entrusting Emacs library.
;; Copyright (C) Free Software Foundation, H.Miyashita, K.Horiguchi
;; Maintainer: H.Miyashita K.Horiguchi
;;           : Tatsuya Ichikawa <t-ichi at example.com>
(delete "-%-" default-mode-line-format)
(setq default-mode-line-format
      (append default-mode-line-format
              (list "--" 'mew-msg-queue "-%-")))

(add-hook 'mew-summary-mode-hook
	  '(lambda ()
	     (delete "-%-" mode-line-format)
	     (setq mode-line-format
		   (append mode-line-format
			   (list "--" 'mew-msg-queue "-%-")))))

;
(add-hook 'mew-init-hook
	  '(lambda ()
 	     (define-key mew-summary-mode-map "?" (make-sparse-keymap))
 	     ;(define-key mew-summary-mode-map "?m" 'mew-show-maildir-count)
 	     (define-key mew-summary-mode-map "?q" 'mew-show-queue-count)))

(add-hook 'mew-send-hook
          '(lambda ()
             (mew-count-queue)))

(add-hook 'mew-smtp-flush-hook
          '(lambda ()
             (mew-count-queue)))