MewのX-Mailerの値の変更

Mew でメールを送信した場合、メールヘッダーの X-Mailer の値は、下記のようになる。
(Mew 5.2 on Emacs 23 の場合)

X-Mailer: Mew version 5.2 on Emacs 23.1 / Mule 6.0 (HANACHIRUSATO)

個人の好みの問題であるが、Mule のコード名(上記の最後の部分) が余分と思われるため、この部分の削除を行った。

1. 設定の変更

~/.mew.el に下記の設定を追加する。

(add-hook 'mew-init-hook
          (function
           (lambda ()
             ;; remove Mule name from mew-x-mailer
             (setq mew-x-mailer
                   (replace-regexp-in-string
                    "\\(Mule .+\\) (.+)$" "\\1" mew-x-mailer)))))

設定変更後の X-Mailer の値は、下記のようになる。

X-Mailer: Mew version 5.2 on Emacs 23.1 / Mule 6.0