From 5eee36fab2368d8d05ec8a2128bf0baa08e90280 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Thu, 4 Jan 2001 15:39:04 +0000 Subject: [PATCH] (nnmail-pathname-coding-system): Defvar when compiling. (gnus-make-directory): Require nnmail. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/gnus-util.el | 6 +++++- 2 files changed, 9 insertions(+), 1 deletion(-) 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 + * 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))) -- 2.39.5