Mercurial > emacs

diff lisp/mh-e/mh-comp.el @ 70062:e4338fe2e331

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mh-insert-x-mailer): Strip build number from version in X-Mailer field (closes SF #1466481).
author Bill Wohler <wohler@newt.com>
date Tue, 18 Apr 2006 01:55:54 +0000
parents d81780942bb8
children 3b4c4b0d5eef 72dea2ff0142
line wrap: on
line diff
--- a/lisp/mh-e/mh-comp.el	Tue Apr 18 00:55:43 2006 +0000
+++ b/lisp/mh-e/mh-comp.el	Tue Apr 18 01:55:54 2006 +0000
@@ -912,7 +912,10 @@
           (format "MH-E %s; %s; %sEmacs %s"
                   mh-version mh-variant-in-use
                   (if mh-xemacs-flag "X" "GNU ")
-                  (cond ((not mh-xemacs-flag) emacs-version)
+                  (cond ((not mh-xemacs-flag)
+                         (string-match "[0-9]+\\.[0-9]+\\(\\.[0-9]+\\)?"
+                                       emacs-version)
+                         (match-string 0 emacs-version))
                         ((string-match "[0-9.]*\\( +\([ a-z]+[0-9]+\)\\)?"
                                        emacs-version)
                          (match-string 0 emacs-version))