Mercurial > emacs
comparison lisp/gnus/gnus-util.el @ 35051:d80c28ab0b86
(nnmail-pathname-coding-system): Defvar when
compiling.
(gnus-make-directory): Require nnmail.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Thu, 04 Jan 2001 15:38:41 +0000 |
| parents | aaf69bc74739 |
| children | f8833aa83b5e |
comparison
equal
deleted
inserted
replaced
| 35050:eeb50448541d | 35051:d80c28ab0b86 |
|---|---|
| 30 ;; Gnus first. | 30 ;; Gnus first. |
| 31 | 31 |
| 32 ;;; Code: | 32 ;;; Code: |
| 33 | 33 |
| 34 (require 'custom) | 34 (require 'custom) |
| 35 (eval-when-compile (require 'cl)) | 35 (eval-when-compile |
| 36 (require 'cl) | |
| 37 ;; Fixme: this should be a gnus variable, not nnmail-. | |
| 38 (defvar nnmail-pathname-coding-system)) | |
| 36 (require 'nnheader) | 39 (require 'nnheader) |
| 37 (require 'time-date) | 40 (require 'time-date) |
| 38 | 41 |
| 39 (eval-and-compile | 42 (eval-and-compile |
| 40 (autoload 'message-fetch-field "message") | 43 (autoload 'message-fetch-field "message") |
| 529 (print-readably t)) | 532 (print-readably t)) |
| 530 (prin1-to-string form))) | 533 (prin1-to-string form))) |
| 531 | 534 |
| 532 (defun gnus-make-directory (directory) | 535 (defun gnus-make-directory (directory) |
| 533 "Make DIRECTORY (and all its parents) if it doesn't exist." | 536 "Make DIRECTORY (and all its parents) if it doesn't exist." |
| 537 (require 'nnmail) | |
| 534 (let ((file-name-coding-system nnmail-pathname-coding-system)) | 538 (let ((file-name-coding-system nnmail-pathname-coding-system)) |
| 535 (when (and directory | 539 (when (and directory |
| 536 (not (file-exists-p directory))) | 540 (not (file-exists-p directory))) |
| 537 (make-directory directory t))) | 541 (make-directory directory t))) |
| 538 t) | 542 t) |