Function: mh-rescan-folder

mh-rescan-folder is an autoloaded, interactive and byte-compiled function defined in mh-folder.el.gz.

Signature

(mh-rescan-folder &optional RANGE DONT-EXEC-PENDING)

Documentation

Rescan folder.

This command is useful to grab all messages in your "+inbox" after processing your new mail for the first time. If you don't want to rescan the entire folder, this command will accept a RANGE. Check the documentation of mh-interactive-range to see how RANGE is read in interactive use.

This command will ask if you want to process refiles or deletes first and then either run x (mh-execute-commands) for you or undo the pending refiles and deletes.

In a program, the processing of outstanding commands is not performed if DONT-EXEC-PENDING is non-nil.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-folder.el.gz
;;;###mh-autoload
(defun mh-rescan-folder (&optional range dont-exec-pending)
  "Rescan folder\\<mh-folder-mode-map>.

This command is useful to grab all messages in your \"+inbox\" after
processing your new mail for the first time. If you don't want to
rescan the entire folder, this command will accept a RANGE. Check the
documentation of `mh-interactive-range' to see how RANGE is read in
interactive use.

This command will ask if you want to process refiles or deletes first
and then either run \\[mh-execute-commands] for you or undo the
pending refiles and deletes.

In a program, the processing of outstanding commands is not performed
if DONT-EXEC-PENDING is non-nil."
  (interactive (list (if current-prefix-arg
                         (mh-read-range "Rescan" mh-current-folder t nil t
                                        mh-interpret-number-as-range-flag)
                       nil)))
  (setq mh-next-direction 'forward)
  (let ((threaded-flag (memq 'unthread mh-view-ops))
        (msg-num (mh-get-msg-num nil)))
    (mh-scan-folder mh-current-folder (or range "all") dont-exec-pending)
    ;; If there isn't a cur sequence, mh-scan-folder goes to the first message.
    ;; Try to stay where we were.
    (if (null (car (mh-seq-to-msgs 'cur)))
        (mh-goto-msg msg-num t t))
    (cond (threaded-flag (mh-toggle-threads))
          (mh-index-data (mh-index-insert-folder-headers)))))