[mew-dist 23015] Re: POP で取り込めないメールが発生した場合のお願い

[Kazu Yamamoto ( 山本和彦 )]

報告書書きでテンテコマイの山本です。

From: "Ken'ichi Toyotome" <tome at example.com>
Subject: [mew-dist 23014] Re: POP で取り込めないメールが発生した場合のお願い

> mew-pop.el にパッチをあてまして、mew-pop-debug-case を
> 1,2,3 すべて試しましたがメールを取り込むことができませんでした。

うう。そうですか。

古賀さんは、1 のパターンで直ると言っていたので、要因は複数あるのかもし
れません。

> mew-debug の結果をかずさんに直接お送りいたします。
> よろしくお願いいたします。

もはやサーバの出力だけから推測することは無理なので、Mew の出力といくつ
か情報を取れるようにしてみました。

** 準備

まっさらな Mew (anon cvs でも mew-3.1.5x でも OK)に、以下のパッチを当
てて下さい。

** 取り込めないメールが発生したら

1) まず
	(setq mew-debug 'net)
を評価します。

2) "i" などでメールを取り込みます (← 取り込めないはず)

3) "*Mew debug*" バッファが出来上がります。

4) M-x mew-pop-bug-report を実行すると "*Mew report*" バッファが出来上
   がります。

5) 3) と 4) でできたバッファーの内容を僕宛に送って下さい。

6) あと、mew-pop-debug-case の検証もお願いします。

	(setq mew-pop-debug-case 1)

でメールが取り込めるか？

	(setq mew-pop-debug-case 2)

でメールが取り込めるか？

	(setq mew-pop-debug-case 3)

でメールが取り込めるか？

よろしくお願いします。

--かず

Index: mew-pop.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-pop.el,v
retrieving revision 1.147
diff -c -r1.147 mew-pop.el
*** mew-pop.el	2003/01/28 04:16:38	1.147
--- mew-pop.el	2003/01/31 04:59:30
***************
*** 508,516 ****
        (goto-char (point-max))
        (insert (format "\n<%s>\n%s\n" label string)))))
  
  (defun mew-pop-process-send-string (pro &rest args)
!   (let ((str (apply 'format args)))
!     (process-send-string pro (concat str mew-cs-eol))))
  
  (defun mew-pop-scan-header ()
    (goto-char (point-min))
--- 508,554 ----
        (goto-char (point-max))
        (insert (format "\n<%s>\n%s\n" label string)))))
  
+ (defun mew-pop-debug2 (string)
+   (when (mew-debug 'net)
+     (save-excursion
+       (set-buffer (get-buffer-create mew-buffer-debug))
+       (goto-char (point-max))
+       (insert (format "[SEND] %s" string)))))
+ 
+ (defvar mew-pop-debug-case nil)
+ 
  (defun mew-pop-process-send-string (pro &rest args)
!   (let ((str (concat (format (apply 'format args)) mew-cs-eol)))
!     (mew-pop-debug2 str)
!     (cond
!      ((eq mew-pop-debug-case 1)
!       (with-temp-buffer
! 	(insert str)
! 	(process-send-region pro (point-min) (point-max))))
!      ((eq mew-pop-debug-case 2)
!       (with-temp-buffer
! 	(mew-set-buffer-multibyte nil) 
! 	(insert str)
! 	(process-send-region pro (point-min) (point-max))))
!      ((eq mew-pop-debug-case 3)
!       (if (fboundp 'string-as-unibyte)
! 	  (setq str (string-as-unibyte str)))
!       (process-send-string pro str))
!      (t
!       (process-send-string pro str)))))
! 
! (defun mew-pop-bug-report ()
!   (interactive)
!   (let* ((pnm (mew-pop-info-name mew-case-input))
! 	 (pbuf (mew-pop-buffer-name pnm))
! 	 (rbuf (generate-new-buffer "*Mew report*")))
!     (switch-to-buffer rbuf)
!     (if (processp pnm)
! 	(insert (format "%s's status is '%s\n"
! 			pnm (symbol-name (process-status pnm))))
!       (insert (format "%s is not a process now\n" pnm)))
!     (insert (format "info: %s\n" (mew-info pnm)))
!     (insert (format "process list: %s\n" (process-list)))))
  
  (defun mew-pop-scan-header ()
    (goto-char (point-min))