2001-10-22 Simon Josefsson <jas@extundo.com>

	* gnus-msg.el (gnus-extended-version): Include
	system-configuration, suggested by Per Abrahamsen
	<abraham@dina.kvl.dk>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a89d4b0..cf234fe 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-10-22  Simon Josefsson  <jas@extundo.com>
+
+       * gnus-msg.el (gnus-extended-version): Include
+       system-configuration, suggested by Per Abrahamsen
+       <abraham@dina.kvl.dk>.
+
 2001-10-22  Per Abrahamsen  <abraham@dina.kvl.dk>
 
        * gnus.el (post-method): Customization fix: `native' is not a

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 0eca627..455e738 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -748,7 +748,8 @@ If SILENT, don't prompt the user."
    " "
    (cond
     ((string-match "^\\(\\([.0-9]+\\)*\\)\\.[0-9]+$" emacs-version)
-     (concat "Emacs/" (match-string 1 emacs-version)))
+     (concat "Emacs/" (match-string 1 emacs-version)
+            " (" system-configuration ")"))
     ((string-match "\\([A-Z]*[Mm][Aa][Cc][Ss]\\)[^(]*\\(\\((beta.*)\\|'\\)\\)?"
                   emacs-version)
      (concat (match-string 1 emacs-version)
@@ -757,7 +758,7 @@ If SILENT, don't prompt the user."
                 (match-string 3 emacs-version)
               "")
             (if (boundp 'xemacs-codename)
-                (concat " (" xemacs-codename ")")
+                (concat " (" xemacs-codename ", " system-configuration ")")
               "")))
     (t emacs-version))))