mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-12 09:28:24 +00:00
Code Issues Releases Activity

Remove Emacs 21 compat code for gnus-user-agent

Browse Source 
* lisp/gnus/gnus.el (gnus-user-agent): No longer convert old
(< 2005-01-10) symbol type values.
This commit is contained in:
Stefan Kangas 2022-09-29 15:00:25 +02:00
parent 0e72d4793c
commit 4577542eea
1 changed files with 0 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/gnus/gnus.el
View File

@ -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.