gnus-registry.el: Correct function argument order.

[gnus] / lisp / dgnushack.el

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 8f2a369..59a234c 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -26,10 +26,10 @@
 
 (defvar dgnushack-default-load-path (copy-sequence load-path))
 
-(unless (fboundp 'declare-function)
+(when (featurep 'xemacs)
   (defmacro declare-function (fn file &optional arglist fileonly)
-    `(eval-when-compile
-       (if (not (fboundp ',fn)) (autoload ',fn ,file)))))
+    (unless (fboundp fn) (autoload fn file))
+    nil))
 
 (defalias 'facep 'ignore)