Synch to Gnus 200308070200.

[elisp/gnus.git-] / lisp / nnheader.el

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index f919c03..07cbbe9 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -39,6 +39,7 @@
 ;;(eval-when-compile (require 'gnus-util))
 
 (require 'mail-utils)
+(require 'gnus-util)
 
 ;; Reduce the required value of `recursive-load-depth-limit' for Emacs 21.
 (require 'pces)
@@ -82,10 +83,10 @@ Integer values will in effect be rounded up to the nearest multiple of
 (defvar nnheader-read-timeout
   (if (string-match "windows-nt\\|os/2\\|emx\\|cygwin"
                    (symbol-name system-type))
-      1.0
+      1.0                              ; why?
     0.1)
   "How long nntp should wait between checking for the end of output.
-Shorter values mean quicker response, but is more CPU intensive.")
+Shorter values mean quicker response, but are more CPU intensive.")
 
 (defvar nnheader-file-name-translation-alist
   (let ((case-fold-search t))
@@ -1459,11 +1460,6 @@ without formatting."
         ((numberp file) (int-to-string file))
         (t file))))
 
-(defun nnheader-functionp (form)
-  "Return non-nil if FORM is funcallable."
-  (or (and (symbolp form) (fboundp form))
-      (and (listp form) (eq (car form) 'lambda))))
-
 (defun nnheader-concat (dir &rest files)
   "Concat DIR as directory to FILES."
   (apply 'concat (file-name-as-directory dir) files))