[Mew-Win32 01078] Re: X-Emacs: header

[Takayoshi TK KAWATE]

お世話になってます。かわて＠慶應です。

In the message "[Mew-Win32 01077] Re: X-Emacs: header",
	On Thu, 10 Dec 1998 19:04:31 +0900 (JST),
	TAKAHASHI Kaoru <nil at example.com> wrote:

> 高橋＠電通大です。さらに事故フォロー。(^^;;
(snip)
> たびたびすみません。パッチ不要のスマートなやり方がありました。
> パッチは忘れてください。X-Mailer: のすぐ下につく*はず*です。
> 
> ~/.emacs の emacs-version-string と mew-header-alist の設定より
> *後* に、これを入れてください。
> 
> ;; mew-header-alist の先頭に X-Emacs: を追加
> (setq mew-header-alist
>       (cons (cons "X-Emacs:" emacs-version-string)
>             mew-header-alist))
> 
> もし、mew-header-alist を設定していないのでしたら、代わりに
> (defvar mew-header-alist nil) としておいてください。
(snip)

いろいろありがとうございます。勉強になります。

できればパッチは当てずに.emacsだけでできないかなぁ，といろい
ろメールを参考にしながらやっていたのですが，全くうまく行かず
やっぱりパッチかなぁと思っているときに，このメールを頂きまし
た。

そして，うまくいきました。うれしいです。このメールにちゃんと
"X-Emacs:"がついていると思います。

ただし，emacs-version-stringの部分で，Mule2.3 at example.comを使って
いるせいか"functionpがない"とエラーになってしまったので，私
は以下のように一番最後の"functionp"の部分を"boundp"としました。

(setq emacs-version-string
      (concat
       (if (string-match "XEmacs" emacs-version) "XEmacs" "Emacs")
       (format " %d.%d" emacs-major-version emacs-minor-version)
       (and (boundp 'xemacs-codename) (concat " (" xemacs-codename ")"))
       (and (boundp 'mule-version) (concat ", Mule " mule-version))
       (and (boundp 'Meadow-version) (concat ", " (Meadow-version)))
       ))
             ^^^^^^ この部分です


まだMeadowで試していませんが，帰って試してみたいと思います。

ムダにバイト数を増やしているだけの自己満足なのですが，うれし
いです。次はX-Faceでさらにヘッダを肥大化させてみようと思いま
す(^^;) (x-face-muleでインライン表示はできるようにはなってい
ます)

-----
Takayoshi "TK" KAWATE
taka at example.com
taka at example.com{net,org}
TK at example.com
taka at example.com{net,org} (PostPet) <- Coming soon !!
http://www.kawate.{net,org}/