* gnus-registry.el: Remove Emacs 20 hash table compatibility code.

* gnus-uu.el (gnus-uu-post-encoded): bury-buffer is always fbound.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6abcbc0..89430b8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2004-01-05  Jesper Harder  <harder@ifa.au.dk>
+
+       * gnus-registry.el: Remove Emacs 20 hash table compatibility code.
+
+       * gnus-uu.el (gnus-uu-post-encoded): bury-buffer is always fbound.
+
 2004-01-05  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * gnus-art.el (gnus-treat-ansi-sequences,

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 900eeab..32d92bf 100644 (file)
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -129,13 +129,6 @@ way."
   :type '(radio (const :format "Unlimited " nil)
                (integer :format "Maximum number: %v\n" :size 0)))
 
-;; Function(s) missing in Emacs 20
-(when (memq nil (mapcar 'fboundp '(puthash)))
-  (require 'cl)
-  (unless (fboundp 'puthash)
-    ;; alias puthash is missing from Emacs 20 cl-extra.el
-    (defalias 'puthash 'cl-puthash)))
-
 (defun gnus-registry-track-subject-p ()
   (memq 'subject gnus-registry-track-extra))
 

diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el
index 43bc15f..65e9aaa 100644 (file)
--- a/lisp/gnus-uu.el
+++ b/lisp/gnus-uu.el
@@ -2108,8 +2108,7 @@ If no file has been included, the user will be asked for a file."
 
     (when (not gnus-uu-post-separate-description)
       (set-buffer-modified-p nil)
-      (when (fboundp 'bury-buffer)
-       (bury-buffer)))))
+      (bury-buffer))))
 
 (provide 'gnus-uu)