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.

diff --git a/lisp/gnus/gnus-bookmark.el b/lisp/gnus/gnus-bookmark.el
index 66fc6106799f0efa5b74ca743ceaeb3cb5e1763b..7e18d5e3d9994ca69eac1ea83fc8b6abf4fa0dd9 100644 (file)
--- a/lisp/gnus/gnus-bookmark.el
+++ b/lisp/gnus/gnus-bookmark.el
@@ -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)

diff --git a/lisp/gnus/gnus-cache.el b/lisp/gnus/gnus-cache.el
index fa320e00128274de69986c7d439cdad7c3256a83..050e8cd78950352d4f6e5dbab85628b22f86f8b1 100644 (file)
--- a/lisp/gnus/gnus-cache.el
+++ b/lisp/gnus/gnus-cache.el
@@ -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)