Remove XEmacs specific symbol from gnus-user-agent

* lisp/gnus/gnus.el (gnus-user-agent): Remove XEmacs specific
'codename' symbol.

diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index 2c10969ba0776531c348d1c98e4151b7d89f0bee..880192e3bb98773832712d1e57f5799ced6bce17 100644 (file)
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -1385,8 +1385,7 @@ sequence, this is like `mapcar'.  With several, it is like the Common Lisp
                          system-configuration)
                         ((memq 'type lst)
                          (symbol-name system-type))
-                        (t nil)))
-        ) ;; codename
+                         (t nil))))
     (cond
      ((not (memq 'emacs lst))
       nil)

diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index 8221f3017a2e423955fc05f293ee3683a7186150..660dceec6f9815b27f53231413e1b27aaf547e8d 100644 (file)
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -2236,12 +2236,10 @@ Disabling the agent may result in noticeable loss of performance."
   "Which information should be exposed in the User-Agent header.
 
 Can be a list of symbols or a string.  Valid symbols are `gnus'
-\(show Gnus version) and `emacs' \(show Emacs version).  In
-addition to the Emacs version, you can add `codename' \(show
-\(S)XEmacs codename) or either `config' \(show system
-configuration) or `type' \(show system type).  If you set it to
-a string, be sure to use a valid format, see RFC 2616."
-
+(show Gnus version) and `emacs' (show Emacs version).  In
+addition to the Emacs version, you can add`config' (show system
+configuration) or `type' (show system type).  If you set it to a
+string, be sure to use a valid format, see RFC 2616."
   :version "22.1"
   :group 'gnus-message
   :type '(choice (list (set :inline t
@@ -2249,8 +2247,7 @@ a string, be sure to use a valid format, see RFC 2616."
                             (const :value emacs :tag "Emacs version")
                            (choice :tag "system"
                                     (const :value type   :tag "system type")
-                                    (const :value config :tag "system configuration"))
-                            (const :value codename :tag "Emacs codename")))
+                                    (const :value config :tag "system configuration"))))
                 (string)))
 
 ;; Convert old (< 2005-01-10) symbol type values: