mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

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

Browse Source 
compiling.
(gnus-make-directory): Require nnmail.
This commit is contained in:
Dave Love 2001-01-04 15:39:04 +00:00
parent 75d2d89f51
commit 5eee36fab2
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View File

@ -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.

6
lisp/gnus/gnus-util.el
View File

@ -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)))