From: yamaoka <yamaoka>
Date: Wed, 23 Sep 1998 04:56:46 +0000 (+0000)
Subject: 	* lisp/message.el (message-make-user-agent): Add extended version
X-Git-Tag: pgnus-ichikawa-199811302358~209
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6c50adade9f9403aad9d1eb6e5d411e8d669d74e;p=elisp%2Fgnus.git-

	* lisp/message.el (message-make-user-agent): Add extended version
	number to Emacs/{VERSION} (e.g. "Emacs/20.3.90").
---

diff --git a/ChangeLog b/ChangeLog
index c362c05..2b76db3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1998-09-23  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* 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  <t-ichi@po.shiojiri.ne.jp>
 
 	* 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)