From 4577542eea273d4d30e4d987071225f4e19a4c19 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 29 Sep 2022 15:00:25 +0200 Subject: [PATCH] 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. --- lisp/gnus/gnus.el | 19 ------------------- 1 file changed, 19 deletions(-) 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. -- 2.39.2