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

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

2 files changed, 9 insertions, 1 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 5c59189dfc6..3e549714006 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,9 @@
 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.
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index 4a30d1da0be..061a0610a70 100644
--- a/lisp/gnus/gnus-util.el
+++ b/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)))