[Mew-dist 14786] mew-x-mailer

[Shun-ichi TAHARA ( 田原 俊一 )]

現在、mew-x-mailer中の、Emacsバージョン表記には、

    (format " %d.%d " emacs-major-version emacs-minor-version)

と、バージョン番号が x.y.z 形式でも、x.y までしか入りません。
XEmacsだと、一応xemacs-codenameがあるのですが、やはりわかりにくいこと
は確かです。

Emacsだとemacs-version、XEmacsだとemacs-program-versionを参照すれば、
解決するのではないかと思ったのですが、はたしてこれで全てのEmacsecでう
まくいくのでしょうか。

# まあ、多分に好みの問題も入るのでしょうけど :-)
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
田原 俊一   jado at example.com, shunichi_tahara at example.com
                                  http://flowernet.gr.jp/jado/
FingerPrint: 16 9E 70 3B 05 86 5D 08 - B8 4C 47 3A E7 E9 8E D9
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣

*** mew-const.el.orig	Thu Oct  5 12:28:00 2000
--- mew-const.el	Thu Oct 26 00:27:24 2000
***************
*** 132,141 ****
  
  (defconst mew-x-mailer
    (concat mew-version " on "
!           (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)))
    "*A value inserted into X-Mailer: field in Draft mode if *non-nil*.")
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
--- 132,142 ----
  
  (defconst mew-x-mailer
    (concat mew-version " on "
!           (if (string-match "XEmacs" emacs-version) "XEmacs " "Emacs ")
!           (if (boundp 'emacs-program-version)
!               emacs-program-version emacs-version)
!           (and (boundp 'xemacs-codename) (concat " (" xemacs-codename ")"))
!           (and (boundp 'mule-version) (concat " / Mule " mule-version)))
    "*A value inserted into X-Mailer: field in Draft mode if *non-nil*.")
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;