[mew-dist 24383] mew-x-mailer

[Hiroshi Fujishima]

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

-- 
Hiroshi Fujishima

Index: mew-const.el
===================================================================
RCS file: /cvsmew/mew/mew-const.el,v
retrieving revision 1.60
diff -u -r1.60 mew-const.el
--- mew-const.el	29 Oct 2003 05:11:34 -0000	1.60
+++ mew-const.el	25 Jan 2004 08:27:48 -0000
@@ -150,8 +150,8 @@
           (if (string-match "XEmacs" emacs-version) "XEmacs" "Emacs")
           (if (boundp 'emacs-program-version)
               (format " %s " emacs-program-version)
-	    (string-match "[0-9]+\\.[0-9]+\\.[0-9]+" emacs-version)
-	    (concat " " (match-string 0 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)
 	       (concat "(" xemacs-codename ")"))