From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/59522 Path: main.gmane.org!not-for-mail From: Steve Youngs Newsgroups: gmane.emacs.gnus.general Subject: [PATCH] SXEmacs User-Agent string Date: Thu, 06 Jan 2005 11:49:07 +1000 Organization: Linux Users - Fanatics Dept. Message-ID: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha1; protocol="application/pgp-signature" X-Trace: sea.gmane.org 1104976933 30874 80.91.229.6 (6 Jan 2005 02:02:13 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 6 Jan 2005 02:02:13 +0000 (UTC) Keywords: lisp,gnus-util,changelog,diff,system-v,files,concat,jan Original-X-From: ding-owner+M8062@lists.math.uh.edu Thu Jan 06 03:02:03 2005 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13] ident=mail) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1CmMyQ-0008WV-00 for ; Thu, 06 Jan 2005 03:02:03 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu ident=lists) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1CmMml-0002H5-00; Wed, 05 Jan 2005 19:49:59 -0600 Original-Received: from util2.math.uh.edu ([129.7.128.23]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1CmMmg-0002H0-00 for ding@lists.math.uh.edu; Wed, 05 Jan 2005 19:49:54 -0600 Original-Received: from quimby.gnus.org ([80.91.224.244]) by util2.math.uh.edu with esmtp (Exim 4.30) id 1CmMmQ-0004yJ-29 for ding@lists.math.uh.edu; Wed, 05 Jan 2005 19:49:38 -0600 Original-Received: from [61.9.212.151] (helo=bastard.youngs.au.com) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1CmMmA-0004Gx-00 for ; Thu, 06 Jan 2005 02:49:23 +0100 Original-Received: from bastard.youngs.au.com (localhost [127.0.0.1]) by bastard.youngs.au.com (8.12.11/8.12.11) with ESMTP id j061n7td028564 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO) for ; Thu, 6 Jan 2005 11:49:08 +1000 Original-Received: (from steve@localhost) by bastard.youngs.au.com (8.12.11/8.12.11/Submit) id j061n79n028563; Thu, 6 Jan 2005 11:49:07 +1000 X-Authentication-Warning: bastard.youngs.au.com: steve set sender to steve@youngs.au.com using -f Mail-Copies-To: never Original-To: Gnus List X-Face: #/1'_-|5_1$xjR,mVKhpfMJcRh8"k}_a{EkIO:Ox<]@zl/Yr|H,qH#3jJi6Aw(Mg@"!+Z"C N_S3!3jzW^FnPeumv4l#,E}J.+e%0q(U>#b-#`~>l^A!_j5AEgpU)>t+VYZ$:El7hLa1:%%L=3%B>n K{^jU_{& X-X-Day: Only 2431235 days till X-Day. Got Slack? X-URL: X-Request-PGP: X-OpenPGP-Fingerprint: 1659 2093 19D5 C06E D320 3A20 1D27 DB4B A94B 3003 X-Discordian-Date: Sweetmorn, the 6th day of Chaos, 3171. X-Attribution: SY X-Generated-By: Patcher version 3.7 Mail-Followup-To: Gnus List User-Agent: Gnus/5.110003 (No Gnus v0.3) SXEmacs/22.1 (Alfa Romeo, linux) Precedence: bulk Original-Sender: ding-owner@lists.math.uh.edu Xref: main.gmane.org gmane.emacs.gnus.general:59522 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:59522 --=-=-= Does anybody have any objections to me committing this? I'll wait a couple of days before committing, just in case. Gnus patch: ChangeLog files diff command: cvs -q diff -U 0 Files affected: lisp/ChangeLog Source files diff command: cvs -q diff -uN Files affected: lisp/gnus-util.el Index: lisp/ChangeLog =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/ChangeLog,v retrieving revision 7.587 diff -u -U0 -r7.587 ChangeLog --- lisp/ChangeLog 3 Jan 2005 16:05:14 -0000 7.587 +++ lisp/ChangeLog 6 Jan 2005 01:45:42 -0000 @@ -0,0 +1,4 @@ +2005-01-06 Steve Youngs + + * gnus-util.el (gnus-emacs-version): Add matching for SXEmacs. + Index: lisp/gnus-util.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/gnus-util.el,v retrieving revision 7.23 diff -u -u -r7.23 gnus-util.el --- lisp/gnus-util.el 17 Dec 2004 10:27:43 -0000 7.23 +++ lisp/gnus-util.el 6 Jan 2005 01:45:36 -0000 @@ -1498,6 +1498,16 @@ (if system-v (concat " (" system-v ")") ""))) + ((string-match "sxemacs--" emacs-version) + (concat "SXEmacs" + (format "/%d.%d" emacs-major-version emacs-minor-version) + (if (boundp 'sxemacs-codename) + (concat + " (" sxemacs-codename + (if system-v + (concat ", " system-v ")") + ")")) + ""))) ((string-match "\\([A-Z]*[Mm][Aa][Cc][Ss]\\)[^(]*\\(\\((beta.*)\\|'\\)\\)?" emacs-version) -- |---------------------| | Te audire no possum. | | Musa sapientum fixa est in aure. | |-------------------------------------| --=-=-= Content-Type: application/pgp-signature -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.3 (GNU/Linux) Comment: Eicq - The XEmacs ICQ Client iEYEABECAAYFAkHcmRMACgkQHSfbS6lLMAOJWACeLYWc2h2tIlaH3YEbg4jpb/lH Fu0An3FoTzL/MtGOw9gyUXYjWfWUHah9 =jtX7 -----END PGP SIGNATURE----- --=-=-=--