Function: nnmh-possibly-create-directory

nnmh-possibly-create-directory is a byte-compiled function defined in nnmh.el.gz.

Signature

(nnmh-possibly-create-directory GROUP)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnmh.el.gz
(defun nnmh-possibly-create-directory (group)
  (let (dir dirs)
    (setq dir (nnmail-group-pathname group nnmh-directory))
    (while (not (file-directory-p dir))
      (push dir dirs)
      (setq dir (file-name-directory (directory-file-name dir))))
    (while dirs
      (when (make-directory (directory-file-name (car dirs)))
	(error "Could not create directory %s" (car dirs)))
      (nnheader-message 5 "Creating mail directory %s" (car dirs))
      (setq dirs (cdr dirs)))))