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

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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 5c59189..3e54971 100644 (file)
--- 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 4a30d1d..061a061 100644 (file)
--- 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)))