[mew-dist 23001] Re: pop でメールを受け取れません

[Kazu Yamamoto ( 山本和彦 )]

From: Tatsuya Kinoshita <tats at example.com>
Subject: [mew-dist 23000] Re: pop でメールを受け取れません

> Mew 3で、UIDL無しのPOPサーバーだとまったく受信できないのは、仕様
> なのかバグなのか、どちらでしょうか。

高速化によって紛れ込んだバグです。

試す環境がないのですが、これで直るでしょうか？

--かず

Index: mew-pop.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-pop.el,v
retrieving revision 1.146
diff -c -r1.146 mew-pop.el
*** mew-pop.el	2003/01/23 06:49:38	1.146
--- mew-pop.el	2003/01/27 13:30:12
***************
*** 176,182 ****
        (mew-pop-process-send-string pro "LIST")))))
  
  (defun mew-pop-command-uidl (pro pnm)
!   (let (msgs num siz)
      (while (re-search-forward "^\\([0-9]+\\) +\\([0-9]+\\)" nil t)
        (setq num (mew-match-string 1))
        (setq siz (mew-match-string 2))
--- 176,182 ----
        (mew-pop-process-send-string pro "LIST")))))
  
  (defun mew-pop-command-uidl (pro pnm)
!   (let (msgs num siz len)
      (while (re-search-forward "^\\([0-9]+\\) +\\([0-9]+\\)" nil t)
        (setq num (mew-match-string 1))
        (setq siz (mew-match-string 2))
***************
*** 185,191 ****
  	(progn
  	  (setq msgs (nreverse msgs))
  	  (mew-pop-set-rtrs pnm msgs)
! 	  (mew-pop-set-left pnm (length msgs))
  	  (mew-pop-process-send-string pro "UIDL"))
        (mew-pop-set-status pnm "quit")
        (mew-pop-command-quit pro pnm))))
--- 185,193 ----
  	(progn
  	  (setq msgs (nreverse msgs))
  	  (mew-pop-set-rtrs pnm msgs)
! 	  (setq len (length msgs))
! 	  (mew-pop-set-rttl pnm len)
! 	  (mew-pop-set-left pnm len)
  	  (mew-pop-process-send-string pro "UIDL"))
        (mew-pop-set-status pnm "quit")
        (mew-pop-command-quit pro pnm))))