Re: Meadowのプロセス名を変更するには

[TSURUDA Naoki <tsuruda.naoki@xxxxxxxxx>]

鶴田です。

ちょっと長いのですが、状況に変化がありました。
# まだ送信できてはいませんが...


> mew-config-alist への変更は正しく反映していますか？
> 念のため meadow を再起動してみたら状況は変わりませんか？

~/.emacs, ~/.mew 書き換え後は必ず再起動して確認しています。


> 別案として、relay-command-alist のIPアドレスで設定してる部分を
> mew-smtp-serverの内容と同じ mail.example.com にしてみてください。

*scratch* バッファでのテスト(ただし IP アドレスを mail.example.com に
変更)は OK でした。

Mew からの送信は相変わらず NG かつ VirusScan ログに残っている状況から
変化はありませんでした。


> であれば、relay.el で目論見は達成できそうで、あとはmew からそれが呼ばれる
> ように設定を正しく行えばよいはずです。

mew-smtp.el を見ると open-network-stream を使用せずに自前の
mew-open-network-stream を定義しているようです。

なので、mew-open-network-stream に対して以下の様に advice をしてみました。
# 見よう見まねでやっているので、間違ってないか不安ですが...

------------------------------------------------------------------------
(defadvice mew-open-network-stream (around relay (name buf server port)
                                       activate)
  "Open network stream with relaying."
  (require 'relay)
  (defvar relay-internal-using-p nil)
  (if relay-internal-using-p
      ad-do-it          ; not relayed, use standard way.
    (let ((relay-internal-using-p t))
      ;; make connction using specified command
      (setq ad-return-value
            (relay-open-network-stream name buf server port)))))
------------------------------------------------------------------------


この状態で *scratch* バッファでの試験は OK になりました。
# Mew 起動後でないと mew-open-network-stream が定義されていないので
# Mew 起動後に評価しました。

------------------------------------------------------------------------
(let ((proc (mew-open-network-stream "smtp" (current-buffer) "mail.example.com" 25)))
  (if proc (process-send-string nil "QUIT\n")))
nil



220 mail.example.com (xxxx) ESMTP Service ready
221 Until later [10.26.171.xxx]

Process smtp finished
------------------------------------------------------------------------


この状態で Mew から送信すると *Messages* バッファに以下のエラーが表示
され、B2.exe のプロセスが残ってしまいました。(list-processes で確認)

------------------------------------------------------------------------
Making a message...done
+draft/2.mew has been queued to +queue/1.mew (from Draft mode)
Connecting to the SMTP server...done
Sending in background...
SMTP time out
------------------------------------------------------------------------


"SMTP time out" は mew-smtp-process-send-string 内で表示している様なの
ですが、これ以上は僕の能力を超えてしまってよく分からなくなってしまいま
した。

次に確認する点は何になるのでしょうか。
アドバイスをお願いします。

-- 
鶴田 尚樹 (TSURUDA Naoki)