2008年4月 1日

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

山本です。

> 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))

投稿者 xml-rpc : 2008年4月 1日 12:24
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(0)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/71685
トラックバック
コメント
コメントする




画像の中に見える文字を入力してください。