Function: mh-make-folder

mh-make-folder is a byte-compiled function defined in mh-folder.el.gz.

Signature

(mh-make-folder NAME)

Documentation

Create a new mail folder called NAME.

Make it the current folder.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-folder.el.gz
(defun mh-make-folder (name)
  "Create a new mail folder called NAME.
Make it the current folder."
  (switch-to-buffer name)
  (setq buffer-read-only nil)
  (erase-buffer)
  (if mh-adaptive-cmd-note-flag
      (mh-set-cmd-note (mh-msg-num-width-to-column (mh-msg-num-width name))))
  (setq buffer-read-only t)
  (mh-folder-mode)
  (mh-set-folder-modified-p nil)
  (setq buffer-file-name mh-folder-filename)
  (when (and (not mh-index-data)
             (file-exists-p (concat buffer-file-name mh-index-data-file)))
    (mh-index-read-data))
  (mh-make-folder-mode-line))