[Mew-Win32 01071] X-Emacs: header (Re: Mew + movemail + PwAgent(?))

[TAKAHASHI Kaoru]

高橋＠電通大です。サブジェクト変えました。

>>>>> In message "[Mew-Win32 01069] Mew + movemail + PwAgent(?)",
>>> Takayoshi "TK" KAWATE <taka at example.com> writes:

> 1.皆さんのメールを拝見していますと，X-Emacsのヘッダがついて
>   いるメールがあるのですが，自分のメールにもX-Emacsヘッダを
>   つけてみたいです。研究室ではMule 2.3 + Mew + IMを使用して
>   いますので，Mule/Emacsのバージョンを判定して，ヘッダにつけ
>   てくれるといいな，と思います。

まずお手軽なやり方。
(setq mew-header-alist
      '(
        ("X-Emacs:" . (eval-and-compile (emacs-version)))
        ))
;; emacs-version の返り値をそのまま入れます。


もう少し手を加えるなら、適当な変数 (e.g. emacs-version-string) 
を作って、こんな風にやってみてください。

(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 (functionp 'Meadow-version) (concat ", " (Meadow-version)))
       ))

(setq mew-header-alist
      '(
        ("X-Emacs:" . (eval-and-compile emacs-version-string))
        ))

--
TAKAHASHI Kaoru  <kaoru at example.com>