Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 01:34:21 +00:00
Code Issues Projects Releases Packages Wiki Activity

(mh-insert-x-mailer): Strip build number from version in X-Mailer

Browse source 
field (closes SF #1466481).
This commit is contained in:
Bill Wohler 2006-04-18 01:55:54 +00:00
parent c90c4cf168
commit d5468dff87
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/mh-e/ChangeLog
View file

@ -1,5 +1,8 @@
2006-04-17 Bill Wohler <wohler@newt.com>
* mh-comp.el (mh-insert-x-mailer): Strip build number from
version in X-Mailer field (closes SF #1466481).
* mh-acros.el (mh-defun-compat): Rename to defun-mh in order that
variables and functions with the same name are found correctly by
find-func (invoked by clicking on the filename link in the *Help*

5
lisp/mh-e/mh-comp.el
View file

@ -912,7 +912,10 @@ The versions of MH-E, Emacs, and MH are shown."
(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))