Function: mh-notate-deleted-and-refiled

mh-notate-deleted-and-refiled is an autoloaded and byte-compiled function defined in mh-seq.el.gz.

Signature

(mh-notate-deleted-and-refiled)

Documentation

Notate messages marked for deletion or refiling.

Messages to be deleted are given by mh-delete-list while messages to be refiled are present in mh-refile-list.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-seq.el.gz
;; FIXME?  We may want to clear all notations and add one for current-message
;;         and process user sequences.
;;;###mh-autoload
(defun mh-notate-deleted-and-refiled ()
  "Notate messages marked for deletion or refiling.
Messages to be deleted are given by `mh-delete-list' while
messages to be refiled are present in `mh-refile-list'."
  (let ((refiled-hash (make-hash-table))
        (deleted-hash (make-hash-table)))
    (dolist (msg mh-delete-list)
      (setf (gethash msg deleted-hash) t))
    (dolist (dest-msg-list mh-refile-list)
      (dolist (msg (cdr dest-msg-list))
        (setf (gethash msg refiled-hash) t)))
    (mh-iterate-on-messages-in-region msg (point-min) (point-max)
      (cond ((gethash msg refiled-hash)
             (mh-notate nil mh-note-refiled mh-cmd-note))
            ((gethash msg deleted-hash)
             (mh-notate nil mh-note-deleted mh-cmd-note))))))