[mew-dist 19005] Re: POP

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 19004] POP
Message-ID: <20010925.101504.50038925.kazu at example.com>
Date: Tue, 25 Sep 2001 10:15:04 +0900 (JST)

kazu> anon cvs を使っている人にお願いです。

kazu> POP のコードを大改造しました。僕はこのコードに 4 日間、全体重を預けて
kazu> いますが、問題はありません。Biff 君などもまともに動いているように思い
kazu> ます。

とりあえず、気付いた点を 2点ほど。

(1) pop で取得中に mode-line に表示される、n/m x% の x がとって
 も大きな数字が表示される。

(defun mew-pop-filter (process string)
  (let* ((pnm (process-name process))
       <<snip>>
-	 (siz (nth 1 msg))
+	 (siz (nth 2 msg))
	 (fld (mew-pop-get-fld pnm))
       <<snip>> 

かしら。

(2) 'i' のとき auto-flush が効いていない。

(defun mew-pop-retrieve (case directive &rest args)
  ;; in +inbox
  (let* ((server (mew-pop-server case))
  <<snip>>
      (cond
       ((eq directive 'biff)
	(mew-pop-set-passwd pnm (nth 0 args))) ;; password
       ((eq directive 'inc)
+	(mew-pop-set-flush pnm (nth 0 args)) ;; no-flush
	(mew-pop-set-save-uidl pnm t)
	(mew-pop-set-delete pnm (mew-pop-delete case)))
       ((eq directive 'get)
	(mew-pop-set-flush pnm (nth 0 args)) ;; no-flush
	(mew-pop-set-fld pnm (nth 0 args))

かなぁ。だけど 'inc と 'get の違いがわかっていないので良くわかっ
ていません。

kazu> mew-pop-delete に数字を設定すれば、その日数保存して、その後削除するは
kazu> ずです。この機能は試していませんので、試して頂けると幸いです。

こっちはこれからです。明日にならないと結果がわからないような気も
するし。:-)

-- 
白井秀行 (mailto:shirai at example.com)