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

[Kinji Itoh]

伊藤です。

>>>>> In [semi-gnus-ja : No.5687] 
>>>>>	Tatsuya (Tim - Itchy) Ichikawa <ichikawa ＠ eitc.epson.com> wrote:
...snip
> > では、エラーは出ません。本来の原因ってどこなのでしょう？
> > delete-process の返り値が、それぞれの Emacs で違うということでしょうか？

>   ふみゅぅ、良くわからなくなって来ました。

>     "Meadow-1.13 Beta1++ (TANAHASHI:61)" (emacs 20.7) ... NG
>     Emacs/20.7 (i386-unknown-freebsdelf3.4)           ... OK
>     Emacs/21.0.91                                     ... NG

>   ですか…
>   伊藤さん、ところで OK の環境での delete-process (というか
>   smtp-send-buffer の戻り値)はどうなっていますか??
>   これを見ない事には、犯人は決められないような…

すいません。 Emacs/20.7 の方は T-gnus が単純に古かっただけのようです。
T-gnus の送信部分が、 11/21 に変更されているとは思わなかったので (^^;

ということで、

>>>>> In [emacs-mime-ja : No.00676] 
>>>>>	Daiki Ueno <ueno ＠ bug.org> wrote:
...snip
> ;; わざわざ 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)))

のようですので、山岡さん待ちでしょうか？ :-P

-- 
Kinji Itoh <k-itou ＠ mori.cs.titech.ac.jp>