Commit 95a19257 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

Remove compat code from gnus-cache and gnus-bookmark

* lisp/gnus/gnus-bookmark.el (gnus-bookmark-bmenu-mode-map): Ditto.

* lisp/gnus/gnus-cache.el (gnus-cache-decoded-group-name):
Remove compat code.
parent 6dc08407
......@@ -432,9 +432,7 @@ That is, all information but the name."
nil
(setq gnus-bookmark-bmenu-mode-map (make-keymap))
(suppress-keymap gnus-bookmark-bmenu-mode-map t)
(define-key gnus-bookmark-bmenu-mode-map "q" (if (fboundp 'quit-window)
'quit-window
'bury-buffer))
(define-key gnus-bookmark-bmenu-mode-map "q" 'quit-window)
(define-key gnus-bookmark-bmenu-mode-map "\C-m" 'gnus-bookmark-bmenu-select)
(define-key gnus-bookmark-bmenu-mode-map "v" 'gnus-bookmark-bmenu-select)
(define-key gnus-bookmark-bmenu-mode-map "d" 'gnus-bookmark-bmenu-delete)
......
......@@ -453,10 +453,8 @@ system for example was used.")
(or (cdr (assoc group gnus-cache-decoded-group-names))
(let ((decoded (gnus-group-decoded-name group))
(coding (or nnmail-pathname-coding-system
(and (boundp 'file-name-coding-system)
file-name-coding-system)
(and (boundp 'default-file-name-coding-system)
default-file-name-coding-system))))
file-name-coding-system
default-file-name-coding-system)))
(push (cons group decoded) gnus-cache-decoded-group-names)
(push (cons (decode-coding-string
(encode-coding-string decoded coding)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment