* 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 (file)
--- 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 (file)
--- 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)