Mercurial > emacs
comparison lisp/mh-e/mh-comp.el @ 91204:53108e6cea98
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-294
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 06 Dec 2007 09:51:45 +0000 |
| parents | b83d0dadb2a7 794e428cd497 |
| children | 606f2d163a64 |
comparison
equal
deleted
inserted
replaced
| 91203:db40129142b2 | 91204:53108e6cea98 |
|---|---|
| 926 ;; Lazily initialize mh-x-mailer-string. | 926 ;; Lazily initialize mh-x-mailer-string. |
| 927 (when (and mh-insert-x-mailer-flag (null mh-x-mailer-string)) | 927 (when (and mh-insert-x-mailer-flag (null mh-x-mailer-string)) |
| 928 (setq mh-x-mailer-string | 928 (setq mh-x-mailer-string |
| 929 (format "MH-E %s; %s; %sEmacs %s" | 929 (format "MH-E %s; %s; %sEmacs %s" |
| 930 mh-version mh-variant-in-use | 930 mh-version mh-variant-in-use |
| 931 (if mh-xemacs-flag "X" "GNU ") | 931 (if (featurep 'xemacs) "X" "GNU ") |
| 932 (cond ((not mh-xemacs-flag) | 932 (cond ((not (featurep 'xemacs)) |
| 933 (string-match "[0-9]+\\.[0-9]+\\(\\.[0-9]+\\)?" | 933 (string-match "[0-9]+\\.[0-9]+\\(\\.[0-9]+\\)?" |
| 934 emacs-version) | 934 emacs-version) |
| 935 (match-string 0 emacs-version)) | 935 (match-string 0 emacs-version)) |
| 936 ((string-match "[0-9.]*\\( +\([ a-z]+[0-9]+\)\\)?" | 936 ((string-match "[0-9.]*\\( +\([ a-z]+[0-9]+\)\\)?" |
| 937 emacs-version) | 937 emacs-version) |