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

[TAKAHASHI Kaoru]

高橋＠電通大です。事故フォロー。

>>>>> In message "[Mew-Win32 01071] X-Emacs: header (Re: Mew + movemail + PwAgent(?))",
>>> TAKAHASHI Kaoru <nil 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-string))
>         ))

これではダメでした。(^^;
添付のパッチを当てて、emacs-version-string を設定すれば OK です。
mew-header-alist の設定は不要です。X-Mailer: のすぐ上につきます。


もう一つのパッチは [Mew-Win32 01971] の通り mew-header-alist を
設定して入れるためのものです。ヘッダの内容を eval してます。
# (eval-and-complite ) は必要ありません。

--
TAKAHASHI Kaoru  <kaoru at example.com>
-------------- next part --------------
*** mew-draft.el.orig	Tue Nov 24 15:53:46 1998
--- mew-draft.el	Thu Dec 10 03:20:12 1998
***************
*** 593,598 ****
--- 593,600 ----
  	  (setq xface (mew-buffer-substring (point-min) (max (buffer-size) 1)))
  	  )
  	(mew-header-insert-here mew-x-face: xface)))
+   (if (stringp emacs-version-string)
+       (mew-header-insert-here "X-Emacs:" emacs-version-string))
    (mew-header-insert-here mew-x-mailer: mew-x-mailer)
    (let ((halist mew-header-alist))
      (while halist
-------------- next part --------------
*** mew-draft.el.orig	Tue Nov 24 15:53:46 1998
--- mew-draft.el	Thu Dec 10 03:22:14 1998
***************
*** 596,602 ****
    (mew-header-insert-here mew-x-mailer: mew-x-mailer)
    (let ((halist mew-header-alist))
      (while halist
!       (mew-header-insert-here (car (car halist)) (cdr (car halist)))
        (setq halist (cdr halist))))
    (mew-header-insert-here mew-mv: mew-mv:-num)
    (mew-header-prepared)
--- 596,602 ----
    (mew-header-insert-here mew-x-mailer: mew-x-mailer)
    (let ((halist mew-header-alist))
      (while halist
!       (mew-header-insert-here (car (car halist)) (eval (cdr (car halist))))
        (setq halist (cdr halist))))
    (mew-header-insert-here mew-mv: mew-mv:-num)
    (mew-header-prepared)