[mew-dist 25131] Re: POP busy status

[Shun-ichi TAHARA ( 田原 俊一 )]

遅くなってしまいましたが。

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Message-Id: <20040727.190923.129137401.kazu at example.com>

> > と返しますので(こちらは " lock" で引っかかりますが)、最近の実装は、2重
> > ログイン時に [IN-USE] を返すことを期待してもいいのかも。
> > 
> > # ipop3d は、相変わらず " lock" で引っかけるしかなさそうですが…
> 
> パッチにして頂けると、とってもありがたいです。

" lock" を引っかける方式はあまりにも美しくないですので、どうにかできる
といいなと思っていたのですが、まだ情報が足りませんので、とりあえず
"-ERR [IN-USE]" を追加で引っかけるだけにしておきました。

パッチを添付します。

ちなみに、手元で確認できるPOPサーバの応答です。
古い Qpopper は、確か [IN-USE] の部分がないだけで、後は同じだったと思
います。

Qpopper 4.0.5
-ERR [IN-USE] xxx lock busy!  Is another session active? (11)

vm-pop3
-ERR [IN-USE] Mailbox in use

ipop3d?
-ERR Can't get lock.  Mailbox in use

[IN-USE] を返さない POPサーバの情報をもう少し集めれば、もう少しまとも
な判定ができるかもしれません。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
田原 俊一   jado at example.com, shunichi_tahara at example.com
                                  http://flowernet.gr.jp/jado/
FingerPrint:  16 9E 70 3B 05 86 5D 08  B8 4C 47 3A E7 E9 8E D9
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
-------------- next part --------------
*** mew-pop.el.orig	2004-05-17 20:48:43.000000000 +0900
--- mew-pop.el	2004-08-06 16:15:48.000000000 +0900
***************
*** 141,147 ****
  	(clear-pass t))
      (goto-char (point-min))
      (cond
!      ((re-search-forward " lock" nil t) ;; very ad hoc
        (mew-pop-message pnm "The mailbox is locked!")
        (setq clear-pass nil))
       ((or (eq auth 'pass) (eq auth 'user))
--- 141,148 ----
  	(clear-pass t))
      (goto-char (point-min))
      (cond
!      ((or (looking-at "-ERR \\[IN-USE\\]")
! 	  (re-search-forward " lock" nil t)) ;; for old servers: very ad hoc
        (mew-pop-message pnm "The mailbox is locked!")
        (setq clear-pass nil))
       ((or (eq auth 'pass) (eq auth 'user))