A variable to expose or not system-configuration (patch)

[deskpot@myrealbox.com (Vasily Korytov)]

[-- Attachment #1.1: Type: text/plain, Size: 184 bytes --]

I think, it might be handy. At least, I know some people, that would
like it. Maybe, system exposing is good, but sometimes it's ugly, and
some people just don't like it.

---Vas

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1.2: gnus-msg.patch --]
[-- Type: text/x-patch, Size: 1369 bytes --]

Index: gnus-msg.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-msg.el,v
retrieving revision 6.118
diff -u -u -r6.118 gnus-msg.el
--- gnus-msg.el	1 Feb 2003 16:40:51 -0000	6.118
+++ gnus-msg.el	6 Feb 2003 08:01:21 -0000
@@ -283,6 +283,11 @@
   :group 'gnus-message
   :type 'boolean)
 
+(defcustom gnus-version-expose-system t
+  "If non-nil, `system-configuration' is exposed in `gnus-extended-version'."
+  :group 'gnus-message
+  :type 'boolean)
+
 ;;; Internal variables.
 
 (defvar gnus-inhibit-posting-styles nil
@@ -1028,7 +1033,9 @@
    (cond
     ((string-match "^\\(\\([.0-9]+\\)*\\)\\.[0-9]+$" emacs-version)
      (concat "Emacs/" (match-string 1 emacs-version)
-	     " (" system-configuration ")"))
+	     (if gnus-version-expose-system
+		 " (" system-configuration ")"
+	       "")))
     ((string-match "\\([A-Z]*[Mm][Aa][Cc][Ss]\\)[^(]*\\(\\((beta.*)\\|'\\)\\)?"
 		   emacs-version)
      (concat (match-string 1 emacs-version)
@@ -1037,8 +1044,10 @@
 		 (match-string 3 emacs-version)
 	       "")
 	     (if (boundp 'xemacs-codename)
+	     (if gnus-version-expose-system
 		 (concat " (" xemacs-codename ", " system-configuration ")")
-	       "")))
+	       (concat " (" xemacs-codename ")"))
+	     "")))
     (t emacs-version))))
 
 \f

[-- Attachment #2: Type: application/pgp-signature, Size: 188 bytes --]