(nnmail-pathname-coding-system): Defvar when

compiling.
(gnus-make-directory): Require nnmail.

lisp/gnus/ChangeLog

 2001-01-04  Dave Love  <fx@gnu.org>
 
+	* gnus-util.el (nnmail-pathname-coding-system): Defvar when
+	compiling.
+	(gnus-make-directory): Require nnmail.
+
 	* mm-decode.el (mm-inline-media-tests): Add
 	image/x-portable-bitmap.
 	(mm-get-image): Grok pbm.

lisp/gnus/gnus-util.el

@@ -32,7 +32,10 @@
 ;;; Code:
 
 (require 'custom)
-(eval-when-compile (require 'cl))
+(eval-when-compile
+  (require 'cl)
+  ;; Fixme: this should be a gnus variable, not nnmail-.
+  (defvar nnmail-pathname-coding-system))
 (require 'nnheader)
 (require 'time-date)
 
@@ -531,6 +534,7 @@ Bind `print-quoted' and `print-readably' to t while printing."
 
 (defun gnus-make-directory (directory)
   "Make DIRECTORY (and all its parents) if it doesn't exist."
+  (require 'nnmail)
   (let ((file-name-coding-system nnmail-pathname-coding-system))
     (when (and directory
 	       (not (file-exists-p directory)))