[PATCH] SXEmacs User-Agent string

[Steve Youngs <steve@youngs.au.com>]

[-- Attachment #1: Type: text/plain, Size: 1794 bytes --]

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  <steve@youngs.au.com>
+
+	* 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)

-- 
|---<Steve Youngs>---------------<GnuPG KeyID: A94B3003>---|
|                   Te audire no possum.                   |
|             Musa sapientum fixa est in aure.             |
|----------------------------------<steve@youngs.au.com>---|

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