smtpmail (Re: Oort gnus error Subject)

[Katsumi Yamaoka]

>>>>> In [emacs-mime-ja : No.00923]
>>>>>	Yoshihiko Yamada <yyamada ＠ cac.co.jp> wrote:

山田さん>  Subject: ７月１８日（水） 技術説明会
山田さん> なる mail が 送ることができなくて困っています。

山岡> この問題は、
山岡> ・エンコードされた Subject: が複数行になって、一行目が空。
山岡> ・FLIM 付属の smtpmail.el を使っている。
山岡> という場合に起きるものだと思います。
山岡> Emacs 標準装備の smtpmail.el(c) を使うか、FLIM の smtpmail.el
山岡> を以下のように直せば良いのではないでしょうか?

山田さん> ビンゴです。
山田さん> 頂いた FLIM の patch を適用して、大丈夫なのを確認しました。

実はぼくもずっと smtpmail を使っているので FLIM 付属の smtpmail
を修正してしまおうかとも思ったのですが、ぐっとこらえて (X)Emacs
の smtpmail を使うようにしてみました。(X)Emacs 付属のものはしば
らく見ない間にたいぶ改変が進んでいるようなので、FLIM 付属のもの
を部分修正するだけでは足りないような気がしたものですから。

この乗り換えは徒労でしょうか? (^^;;)
;; と言うのは、某所の Emacs21 には FLIM のものとほぼ同じ smtp と
;; smtpmail が存在しているので。

FLIM が存在している環境でも、それに付属している smtpmail を使わ
ないようにするために、次のようなコードを .emacs に追加しました。

;; Don't use FLIM's smtpmail.
(let ((dir (file-name-directory (locate-library "smtpmail")))
      (load-path (copy-sequence load-path)))
  (if (string-match "/flim" dir)
      (progn
	(setq load-path
	      (delete (substring dir 0 (1- (length dir)))
		      (delete dir load-path)))
	(load "smtpmail" nil t))))

(X)Emacs 付属の smtpmail と FLIM 付属の smtpmail では、以下の各
数の名前が違うので、特に smtp-server などは設定し直す必要があり
ます。

(X)Emacs 付属の smtpmail	FLIM 付属の smtpmail
----------------------------	--------------------
smtpmail-default-smtp-server	smtp-default-server
smtpmail-smtp-server		smtp-server
smtpmail-smtp-service		smtp-service
smtpmail-local-domain		smtp-local-domain
smtpmail-debug-info		smtp-debug-info

ついでながら、smtp-server という変数にはサーバ名の文字列を返す関
数を設定することができるのですが、smtpmail-smtp-server ではそう
いうことはできません。
-- 
Katsumi Yamaoka <yamaoka ＠ jpl.org>