Function: mh-update-unseen

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

Signature

(mh-update-unseen)

Documentation

Synchronize the unseen sequence with MH.

Return non-nil if the MH folder was set. The hook mh-unseen-updated-hook is called after the unseen sequence is updated.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-folder.el.gz
(defun mh-update-unseen ()
  "Synchronize the unseen sequence with MH.
Return non-nil if the MH folder was set.
The hook `mh-unseen-updated-hook' is called after the unseen sequence
is updated."
  (if mh-seen-list
      (let* ((unseen-seq (mh-find-seq mh-unseen-seq))
             (unseen-msgs (mh-seq-msgs unseen-seq)))
        (if unseen-msgs
            (progn
              (mh-undefine-sequence mh-unseen-seq mh-seen-list)
              (run-hooks 'mh-unseen-updated-hook)
              (while mh-seen-list
                (setq unseen-msgs (delq (car mh-seen-list) unseen-msgs))
                (setq mh-seen-list (cdr mh-seen-list)))
              (setcdr unseen-seq unseen-msgs)
              t)                        ;since we set the folder
          (setq mh-seen-list nil)))))