From 6c50adade9f9403aad9d1eb6e5d411e8d669d74e Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 23 Sep 1998 04:56:46 +0000 Subject: [PATCH] * lisp/message.el (message-make-user-agent): Add extended version number to Emacs/{VERSION} (e.g. "Emacs/20.3.90"). --- ChangeLog | 5 +++++ lisp/message.el | 8 +++++++- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index c362c05..2b76db3 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1998-09-23 Katsumi Yamaoka + + * lisp/message.el (message-make-user-agent): Add extended version + number to Emacs/{VERSION} (e.g. "Emacs/20.3.90"). + 1998-09-22 Tatsuya Ichikawa * lisp/gnus-agent.el (gnus-agent-expire): Bug fix when variable diff --git a/lisp/message.el b/lisp/message.el index e07355d..24fbac0 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -3184,7 +3184,13 @@ give as trustworthy answer as possible." ) ;; not XEmacs (concat - (format "Emacs/%d.%d" emacs-major-version emacs-minor-version) + "Emacs/" + (let ((versions (split-string emacs-version "\\."))) + (mapconcat 'identity + (if (> (length versions) 2) + (nreverse (cdr (nreverse versions))) + versions) + ".")) (if (>= emacs-major-version 20) (if (and (boundp 'enable-multibyte-characters) enable-multibyte-characters) -- 1.7.10.4