:group 'gnus-message
:type 'boolean)
+(defcustom gnus-version-expose-system nil
+ "If non-nil, `system-configuration' is exposed in `gnus-extended-version'."
+ :group 'gnus-message
+ :type 'boolean)
+
;;; Internal variables.
(defvar gnus-inhibit-posting-styles nil
"Stringified Gnus version and Emacs version."
(interactive)
(concat
- "Gnus/" (prin1-to-string (gnus-continuum-version gnus-version) t)
+ "Gnus/" (gnus-prin1-to-string (gnus-continuum-version gnus-version))
" (" gnus-version ")"
" "
(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)
(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