diff options
| -rw-r--r-- | lisp/mh-e/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/mh-e/mh-comp.el | 5 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index c56f68b73be..f6fe4ce8993 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog | |||
| @@ -1,5 +1,8 @@ | |||
| 1 | 2006-04-17 Bill Wohler <wohler@newt.com> | 1 | 2006-04-17 Bill Wohler <wohler@newt.com> |
| 2 | 2 | ||
| 3 | * mh-comp.el (mh-insert-x-mailer): Strip build number from | ||
| 4 | version in X-Mailer field (closes SF #1466481). | ||
| 5 | |||
| 3 | * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that | 6 | * mh-acros.el (mh-defun-compat): Rename to defun-mh in order that |
| 4 | variables and functions with the same name are found correctly by | 7 | variables and functions with the same name are found correctly by |
| 5 | find-func (invoked by clicking on the filename link in the *Help* | 8 | find-func (invoked by clicking on the filename link in the *Help* |
diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el index b3c6ba12f57..ad80e3be838 100644 --- a/lisp/mh-e/mh-comp.el +++ b/lisp/mh-e/mh-comp.el | |||
| @@ -912,7 +912,10 @@ The versions of MH-E, Emacs, and MH are shown." | |||
| 912 | (format "MH-E %s; %s; %sEmacs %s" | 912 | (format "MH-E %s; %s; %sEmacs %s" |
| 913 | mh-version mh-variant-in-use | 913 | mh-version mh-variant-in-use |
| 914 | (if mh-xemacs-flag "X" "GNU ") | 914 | (if mh-xemacs-flag "X" "GNU ") |
| 915 | (cond ((not mh-xemacs-flag) emacs-version) | 915 | (cond ((not mh-xemacs-flag) |
| 916 | (string-match "[0-9]+\\.[0-9]+\\(\\.[0-9]+\\)?" | ||
| 917 | emacs-version) | ||
| 918 | (match-string 0 emacs-version)) | ||
| 916 | ((string-match "[0-9.]*\\( +\([ a-z]+[0-9]+\)\\)?" | 919 | ((string-match "[0-9.]*\\( +\([ a-z]+[0-9]+\)\\)?" |
| 917 | emacs-version) | 920 | emacs-version) |
| 918 | (match-string 0 emacs-version)) | 921 | (match-string 0 emacs-version)) |