From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/49849 Path: main.gmane.org!not-for-mail From: deskpot@myrealbox.com (Vasily Korytov) Newsgroups: gmane.emacs.gnus.general Subject: A variable to expose or not system-configuration (patch) Date: Thu, 06 Feb 2003 11:02:31 +0300 Sender: owner-ding@hpc.uh.edu Message-ID: <877kcdvnu0.fsf@unix.home> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; boundary="==-=-="; micalg=pgp-sha1; protocol="application/pgp-signature" X-Trace: main.gmane.org 1044518770 732 80.91.224.249 (6 Feb 2003 08:06:10 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Thu, 6 Feb 2003 08:06:10 +0000 (UTC) Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18gh2o-0000BR-00 for ; Thu, 06 Feb 2003 09:06:03 +0100 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 18gh2S-00056c-00; Thu, 06 Feb 2003 02:05:40 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Thu, 06 Feb 2003 02:06:38 -0600 (CST) Original-Received: from sclp3.sclp.com (sclp3.sclp.com [66.230.238.2]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id CAA18494 for ; Thu, 6 Feb 2003 02:06:25 -0600 (CST) Original-Received: (qmail 20999 invoked by alias); 6 Feb 2003 08:05:23 -0000 Original-Received: (qmail 20994 invoked from network); 6 Feb 2003 08:05:23 -0000 Original-Received: from ns1.telekom.ru (root@194.190.195.83) by 66.230.238.6 with SMTP; 6 Feb 2003 08:05:23 -0000 Original-Received: from unix.home (h59.217.elnet.msk.ru [194.190.217.59]) by ns1.telekom.ru (8.12.6/8.12.6) with SMTP id h1685S4L017873 for ; Thu, 6 Feb 2003 11:05:28 +0300 Original-Received: (qmail 587 invoked from network); 6 Feb 2003 08:07:55 -0000 Original-Received: from localhost (alias@127.0.0.1) by localhost with QMTP; 6 Feb 2003 08:07:55 -0000 Original-Received: (qmail 485 invoked by uid 1000); 6 Feb 2003 08:02:34 -0000 Original-To: ding@gnus.org X-Attribution: VK Mail-Followup-To: ding@gnus.org User-Agent: Gnus/5.090015 (Oort Gnus v0.15) XEmacs/21.4 (Portable Code, i686-pc-linux) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:49849 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:49849 --==-=-= Content-Type: multipart/mixed; boundary="=-=-=" --=-=-= Content-Transfer-Encoding: quoted-printable 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. =2D--Vas --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=gnus-msg.patch Content-Transfer-Encoding: quoted-printable Index: gnus-msg.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /usr/local/cvsroot/gnus/lisp/gnus-msg.el,v retrieving revision 6.118 diff -u -u -r6.118 gnus-msg.el =2D-- 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) =20 +(defcustom gnus-version-expose-system t + "If non-nil, `system-configuration' is exposed in `gnus-extended-version= '." + :group 'gnus-message + :type 'boolean) + ;;; Internal variables. =20 (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) =2D " (" 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 ")") =2D ""))) + (concat " (" xemacs-codename ")")) + ""))) (t emacs-version)))) =20 --=-=-=-- --==-=-= Content-Type: application/pgp-signature -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.1 (GNU/Linux) iD8DBQE+QhaaoPg1JPzYGEERAv6aAJ9Ut/IHWhf1PoqIo3uHpygogtakUwCdFeE+ 8+G/RSTJf04A/QjMkk6GYN8= =i7l9 -----END PGP SIGNATURE----- --==-=-=--