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

[岡田 健一 / Kenichi OKADA]

おかだです。

In the message <wkpujji71p.fsf ＠ meadow.erc.epson.com>
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 が表示され、一見送信に失敗
>   してしまったかのような風に見えてしまいます。

わたしの環境でも nil を返します． FLIM-1_14, DEISUI-1_14 に共通した
仕様だと思います．

(if recipients
    (let ((result (static-if (fboundp 'smtp-send-buffer)
		      (condition-case error
			  (progn
			    (smtp-send-buffer user-mail-address recipients
					      (current-buffer))
			    t)
			(error
			 (format "%d %s"
				 (car (cdr error)) (cdr (cdr error)))))
		    (smtp-via-smtp user-mail-address
				   recipients
				   (current-buffer)))))
      (unless (eq result t)
	(error "Sending failed; %s" result))))

とかでしょうか．

-- 
岡田 健一  URLs: mailto:okada ＠ opaopa.org
	   	 http://www.opaopa.org