* gnus-compat.el: Require `help-fns' to fix compilation error.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 34acdbc..65bd104 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2012-02-01  Lars Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-compat.el: Require `help-fns' to fix compilation error.
+
        * gnus-registry.el (gnus-registry-fixup-registry): Move the message to
        a higher level to silence compilation.
 

diff --git a/lisp/gnus-compat.el b/lisp/gnus-compat.el
index 523fc2f..f92c5b2 100644 (file)
--- a/lisp/gnus-compat.el
+++ b/lisp/gnus-compat.el
@@ -30,13 +30,16 @@
 
 (eval-when-compile (require 'cl))
 
+(ignore-errors
+  (require 'help-fns))
+
 (when (and (not (fboundp 'help-function-arglist))
           (fboundp 'function-arglist))
   (defun help-function-arglist (def &optional preserve-names)
     (cdr (car (read-from-string (downcase (function-arglist def)))))))
 
 (when (= (length (help-function-arglist 'delete-directory)) 1)
-  (defvar gnus-compat-original-delete-directory 
+  (defvar gnus-compat-original-delete-directory
     (symbol-function 'delete-directory))
   (defun delete-directory (directory &optional recursive)
     (if (not recursive)