[mew-dist 28256] Re: smtp送信失敗で Dcc: が消える

[Kazu Yamamoto ( 山本和彦 )]

山本です。

> kazu> mew-use-submission=t のときは、パッチはうまく動かないということですね？
> 
> そうです。 今、再度テストをしました。 今度は "Mew version 5.2.55" にバー
> ジョンアップしてパッチをあてて Meadow の再起動の後にテストをしたのです
> が、mqiファイルはやはり [nil nil nil nil nil nil nil nil] になって
> Fcc: と Dcc: は消えます。

ありがとうございます。fallback で問題が起こっていることは確実になりました。

以下のパッチを、＊まっさら＊な Mew に当てて、
mew-use-submission を t にして試してみて下さい。

--かず

Index: mew-smtp.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-smtp.el,v
retrieving revision 1.148
diff -c -r1.148 mew-smtp.el
*** mew-smtp.el	18 Mar 2008 03:04:58 -0000	1.148
--- mew-smtp.el	1 Apr 2008 03:22:20 -0000
***************
*** 623,629 ****
  	  ;; A message file is not inserted at the beginning of the SMTP
  	  ;; session.
  	  (set-buffer buf)
! 	  (mew-smtp-queue case error))
  	(mew-smtp-log pnm error))
         (done
  	(message "Sending in background...done"))
--- 623,629 ----
  	  ;; A message file is not inserted at the beginning of the SMTP
  	  ;; session.
  	  (set-buffer buf)
! 	  (mew-smtp-queue case error pnm))
  	(mew-smtp-log pnm error))
         (done
  	(message "Sending in background...done"))
***************
*** 631,637 ****
  	(if (null buf)
  	    (message "SMTP connection is lost")
  	  (set-buffer buf)
! 	  (mew-smtp-queue case "SMTP connection is lost"))))
        (mew-info-clean-up pnm)
        (if (and (processp sshpro) (not mew-ssh-keep-connection))
  	  (process-send-string sshpro "exit\n"))
--- 631,637 ----
  	(if (null buf)
  	    (message "SMTP connection is lost")
  	  (set-buffer buf)
! 	  (mew-smtp-queue case "SMTP connection is lost" pnm))))
        (mew-info-clean-up pnm)
        (if (and (processp sshpro) (not mew-ssh-keep-connection))
  	  (process-send-string sshpro "exit\n"))
***************
*** 646,654 ****
  ;;; Queuing
  ;;;
  
! (defun mew-smtp-queue (case err)
    ;; Must be in a buffer where a message is contained.
!   (let* ((pnm (mew-smtp-info-name case))
  	 (qfld (mew-queue-folder case))
  	 (oname (buffer-name))
  	 (work (buffer-file-name))
--- 646,654 ----
  ;;; Queuing
  ;;;
  
! (defun mew-smtp-queue (case err &optional apnm)
    ;; Must be in a buffer where a message is contained.
!   (let* ((pnm (or apnm (mew-smtp-info-name case)))
  	 (qfld (mew-queue-folder case))
  	 (oname (buffer-name))
  	 (work (buffer-file-name))