emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 4577542eea: Remove Emacs 21 compat code for gnus-user-agent


From: Stefan Kangas
Subject: master 4577542eea: Remove Emacs 21 compat code for gnus-user-agent
Date: Thu, 29 Sep 2022 09:02:55 -0400 (EDT)

branch: master
commit 4577542eea273d4d30e4d987071225f4e19a4c19
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    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 3a7edf9e08..64fc91ccff 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.
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]