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

[Tatsuya Kinoshita]

On January 26, 2004, [mew-dist 24390],
Kazu Yamamoto <kazu at example.com> wrote:

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

末尾の数字が2桁以上になると失敗しそうなのを直しました。

-----
--- mew-const.el	26 Jan 2004 04:49:00 -0000	1.61
+++ mew-const.el	26 Jan 2004 15:49:29 -0000
@@ -150,7 +150,7 @@
           (if (string-match "XEmacs" emacs-version) "XEmacs" "Emacs")
           (if (boundp 'emacs-program-version)
               (format " %s " emacs-program-version)
-	    (string-match "^\\([.0-9]+\\).[0-9]+$" emacs-version)
+	    (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)
-----

-- 
木下達也