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

[Tatsuya Ichikawa (Tim - Itchy)]

市川です。

>>>>> In [emacs-mime-ja : No.00676]
>>>>>  Daiki Ueno <ueno ＠ bug.org> wrote:

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

  :-p
  「対処」してしまいました。

> ;; 実際、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'.

  かもしれません。
  ただ、こうした「理由」は何処かに(うぅ、最近きちんと ML を読んでいない
  から見落としている可能性もありますが)あると思うのです。
  なければ、こういう変更は入らないはずでしょう。

;; 師匠の意見を聞きたいところですが…

> もしどうしても 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)))

  はうぅ…こっちのがいいかな??
  でも、smtp-via-smtp を「そのまま」利用するのが基本的には正しいのでしょう。

;; もう寝ます。
  
-- 
  Tim - Itchy- Ichikawa <ichikawa ＠ eitc.epson.com>