smtp.el in slim-1_14 branch on Meadow.

[Daiki Ueno]

>>>>> In [emacs-mime-ja : No.00673] 
>>>>>	Tatsuya (Tim - Itchy) Ichikawa <ichikawa ＠ eitc.epson.com> wrote:

> > >   User-Agent 環境で SLIM 1_14 を使用し、T-gnus の message.el から 
> > >   call されている smtp.el の smtp-send-buffer 関数が常に nil を返す
> > >   ためにsmtp 経由での送信に成功しても、下記のコードのため
> > ..
> > >   (error "Sending failed; " result) が評価されます。
> > >   従って、送信に成功しても必ず Sending failed が表示され、一見送信に
> > >   失敗してしまったかのような風に見えてしまいます。

[...]

>   Wanderlust では起きない…というと、やはり MUA 側で対処すべき事なんです
>   ね。

「対処すべき」というより「何もしない」のが正解だと思います。

;; 実際、Wanderlust では何ら特別なことはしていませんよね。

;; わざわざ backward compatible な smtp-via-smtp の界面を残してあるのに、
;; smtp-send-buffer の存在を調べるコードを含める理由がわからないのですが...。

↓の変更を元に戻せば、全て解決するのではないでしょうか。

2000-11-21  Katsumi Yamaoka <yamaoka ＠ jpl.org>

        * lisp/message.el (message-send-mail-with-smtp): Use
        `smtp-send-buffer' if it exists instead of `smtp-via-smtp'.

もしどうしても smtp-send-buffer を使いたいなら、
以下のようにするのが良いと思います。

(if recipients
    (static-if (fboundp 'smtp-send-buffer)
	(smtp-send-buffer user-mail-address recipients (current-buffer))
      (let ((result (smtp-via-smtp user-mail-address
				   recipients
				   (current-buffer))))
	(unless (eq result t)
	  (error "Sending failed; " result)))
-- 
Daiki Ueno
;; 既にあきらめの境地...(;_;)