From: Stefan Kangas <stefankangas@gmail.com>
Date: Thu, 29 Sep 2022 13:00:25 +0000 (+0200)
Subject: Remove Emacs 21 compat code for gnus-user-agent
X-Git-Tag: emacs-29.0.90~1856^2~147
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4577542eea273d4d30e4d987071225f4e19a4c19;p=emacs.git

Remove Emacs 21 compat code for gnus-user-agent

* lisp/gnus/gnus.el (gnus-user-agent): No longer convert old
(< 2005-01-10) symbol type values.
---

diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index 3a7edf9e080..64fc91ccfff 100644
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -2253,25 +2253,6 @@ string, be sure to use a valid format, see RFC 2616."
                                     (const :value config :tag "system configuration"))))
 		 (string)))
 
-;; Convert old (< 2005-01-10) symbol type values:
-(when (symbolp gnus-user-agent)
-  (setq gnus-user-agent
-	(cond ((eq gnus-user-agent 'emacs-gnus-config)
-	       '(emacs gnus config))
-	      ((eq gnus-user-agent 'emacs-gnus-type)
-	       '(emacs gnus type))
-	      ((eq gnus-user-agent 'emacs-gnus)
-	       '(emacs gnus))
-	      ((eq gnus-user-agent 'gnus)
-	       '(gnus))
-	      (t gnus-user-agent)))
-  (gnus-message 1 "Converted `gnus-user-agent' to `%s'." gnus-user-agent)
-  (sit-for 1)
-  (if (get 'gnus-user-agent 'saved-value)
-      (customize-save-variable 'gnus-user-agent gnus-user-agent)
-    (gnus-message 1 "Edit your init file to make this change permanent.")
-    (sit-for 2)))
-
 (defcustom gnus-agent-eagerly-store-articles t
   "If non-nil, cache articles eagerly.