Function: mh-pack-folder-1

mh-pack-folder-1 is a byte-compiled function defined in mh-funcs.el.gz.

Signature

(mh-pack-folder-1 RANGE)

Documentation

Close and pack the current folder.

Display RANGE after packing, or the entire folder if RANGE is nil.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-funcs.el.gz
(defun mh-pack-folder-1 (range)
  "Close and pack the current folder.

Display RANGE after packing, or the entire folder if RANGE is nil."
  (mh-process-or-undo-commands mh-current-folder)
  (message "Packing folder...")
  (mh-set-folder-modified-p t)          ; lock folder while packing
  (save-excursion
    (mh-exec-cmd-quiet t "folder" mh-current-folder "-pack"
                       "-norecurse" "-fast"))
  (mh-reset-threads-and-narrowing)
  (mh-regenerate-headers range))