From 0b4470d1b77d5e91003d6878cab91da8c326b8d2 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 8 Aug 2022 17:56:36 +0200 Subject: [PATCH] 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 2c10969ba07..880192e3bb9 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 8221f3017a2..660dceec6f9 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: -- 2.39.2