[Mew-dist 13628] a patch for pop

[Kazu Yamamoto ( 山本和彦 )]

APOP のパスワードを間違うとエラーになります。nil を + しようとするため。

こうでしょうか？

--かず
-------------- next part --------------
Index: mew-pop.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-pop.el,v
retrieving revision 1.23
retrieving revision 1.24
diff -c -r1.23 -r1.24
*** mew-pop.el	2000/07/12 07:18:44	1.23
--- mew-pop.el	2000/07/13 03:43:58	1.24
***************
*** 282,303 ****
  	 (status (mew-pop-get-status pnm))
  	 (cnt (mew-pop-get-cnt pnm))
  	 (msgs (mew-pop-get-messages pnm))
- 	 (total (+ (length msgs) cnt))
  	 (size (cdr (car msgs)))
  	 (inbox (mew-pop-get-inbox pnm))
  	 (mulrep (mew-pop-fsm-reply status))
! 	 stay next func progress)
      (mew-pop-debug (upcase status) string)
      (mew-filter
       ;; report (for debug)
!      (if (not (< cnt total))
! 	 (setq progress nil)
!        (setq size (string-to-number size))
!        (setq progress (format "%d/%d:%02d%%" (1+ cnt) total
! 			      (if (< 10000 size)
! 				  (/ (buffer-size) (/ size 100))
! 				(/ (* (buffer-size) 100) size)))))
!      (mew-set-summary-buffer-process-status inbox progress)
       ;; process's buffer
       (goto-char (point-max))
       (insert string)
--- 282,305 ----
  	 (status (mew-pop-get-status pnm))
  	 (cnt (mew-pop-get-cnt pnm))
  	 (msgs (mew-pop-get-messages pnm))
  	 (size (cdr (car msgs)))
  	 (inbox (mew-pop-get-inbox pnm))
  	 (mulrep (mew-pop-fsm-reply status))
! 	 stay next func progress total)
      (mew-pop-debug (upcase status) string)
      (mew-filter
       ;; report (for debug)
!      (if (not (string= status "retr"))
! 	 ()
!        (setq total (+ (length msgs) cnt))
!        (if (>= cnt total)
! 	   (setq progress nil)
! 	 (setq size (string-to-number size))
! 	 (setq progress (format "%d/%d:%02d%%" (1+ cnt) total
! 				(if (< 10000 size)
! 				    (/ (buffer-size) (/ size 100))
! 				  (/ (* (buffer-size) 100) size)))))
!        (mew-set-summary-buffer-process-status inbox progress))
       ;; process's buffer
       (goto-char (point-max))
       (insert string)