master 0b4470d1b7 4/5: Remove XEmacs specific symbol from gnus-user-agent

[Stefan Kangas]

branch: master
commit 0b4470d1b77d5e91003d6878cab91da8c326b8d2
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Remove XEmacs specific symbol from gnus-user-agent
    
    * lisp/gnus/gnus.el (gnus-user-agent): Remove XEmacs specific
    'codename' symbol.
---
 lisp/gnus/gnus-util.el |  3 +--
 lisp/gnus/gnus.el      | 13 +++++--------
 2 files changed, 6 insertions(+), 10 deletions(-)

diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index 2c10969ba0..880192e3bb 100644
--- 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 8221f3017a..660dceec6f 100644
--- 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: