[mew-dist 19011] Re: POP

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 19010] Re: POP
Message-ID: <20010925.123905.68549413.kazu at example.com>
Date: Tue, 25 Sep 2001 12:39:05 +0900 (JST)

kazu> その通りです。(_ _)

あんまり時間が取れないので、気付いた点だけ。

(1) 'i' のとき auto-flush が効いていない。がまだ続いています。

(defun mew-pop-sentinel (process event)
    <<snip>>
     (set-buffer-modified-p nil)
     (mew-pop-tear-down pnm)
     (unless (eq directive 'biff)
       (run-hooks 'mew-pop-sentinel-non-biff-hook))
     (run-hooks 'mew-pop-sentinel-hook)
     (if (and mew-auto-flush-queue (mew-pop-get-flush pnm))
	 (mew-smtp-flush-queue
	  (mew-queue-folder mew-case-output) mew-case-output)))))

で (mew-pop-get-flush pnm) する前に、(mew-pop-tear-down pnm) し
ているからだと思います。


(2) mew-pop-delete が効いていない。すぐ spool から消えちゃう。
ぼくの試した限りでは、'i' したときは、mew-pop-command-dele() の

(let* (
  (del (or (nth 3 rtr) (mew-pop-get-delete pnm)))

で 
(nth 3 rtr) => nil 
(mew-pop-get-delete pnm) => 1 (とか 2)
で、
del => 1 
になるけど、

      (if (and del (not truncated))
	  (process-send-string
	   pro (format "dele %s%s" num mew-cs-eol))

が動いてしまうから、でした。

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