[mew-dist 24384] Re: mew-x-mailer

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

From: Hiroshi Fujishima <pooh at example.com>
Message-Id: <7cn08c41v9.fsf at example.com>

> Emacs 20.7 を使用しているとき、X-Mailer: に Emacs 21.7.3 のように .3 が
> 表示されないように、以下のようにしてはどうでしょうか？

えーとですね。これをやると、3番目の番号(ってなんて言うんだろ? revision?)
が消えちゃうわけですが、β系列の Emacs だと、なんか悲しくなりません?

ちなみに、昔の Mew では、XEmacs だと
  XEmacs $major.$minor (beta/patchlevel $revision) ($codename)
の形でしか出てこなかったのが嫌で、ちゃんと カッコ付きじゃなくて 3つ出
るように修正してもらった過去があります。直前で emacs-program-version
を参照しているのはそのためなんですが。

まぁ確かに、Emacs-20.7 だと、revision (というか patchlevel かな) には
あまり注意が払われないですので、これだけを適切に取り除けるようにすれば
いいのかもしれません。

例えば、こんな感じになるのかなぁ… emacs-beta-version で、(現行の)
Emacs-20.x と 21.x を区別できればのはなしですが。

# そういや、昔 Meadow のバージョンをねじ込めないかなぁ、という話があり
# ませんでしたっけ? > 白井さん

(defconst mew-x-mailer
  (concat mew-version " on "
          (if (string-match "XEmacs" emacs-version) "XEmacs" "Emacs")
          (cond
           ((boundp 'emacs-program-version)
            (format " %s " emacs-program-version))
           (emacs-beta-version
            (string-match "[0-9]+\\.[0-9]+\\.[0-9]+" emacs-version)
            (concat " " (match-string 0 emacs-version) " "))
           (t
            (string-match "\\`\\([.0-9]+\\).[0-9]+\\'" emacs-version)
            (concat " " (match-string 1 emacs-version) " ")))
          (and (boundp 'xemacs-codename)
               (string-match "^[a-zA-Z0-9 ]+$" xemacs-codename)
               (concat "(" xemacs-codename ")"))
          (and (boundp 'mule-version) (concat "/ Mule " mule-version))))
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
田原 俊一   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
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣