Function: mh-undo-msg

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

Signature

(mh-undo-msg MSG)

Documentation

Undo the deletion, refile, block- or allowlisting of one MSG.

If MSG is nil then act on the message at point

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-folder.el.gz
(defun mh-undo-msg (msg)
  "Undo the deletion, refile, block- or allowlisting of one MSG.
If MSG is nil then act on the message at point"
  (save-excursion
    (if (numberp msg)
        (mh-goto-msg msg t t)
      (beginning-of-line)
      (setq msg (mh-get-msg-num t)))
    (cond ((memq msg mh-delete-list)
           (setq mh-delete-list (delq msg mh-delete-list)))
          ((memq msg mh-blocklist)
           (setq mh-blocklist (delq msg mh-blocklist)))
          ((memq msg mh-allowlist)
           (setq mh-allowlist (delq msg mh-allowlist)))
          (t
           (dolist (folder-msg-list mh-refile-list)
             (setf (cdr folder-msg-list) (remove msg (cdr folder-msg-list))))
           (setq mh-refile-list (cl-loop for x in mh-refile-list
                                         unless (null (cdr x)) collect x))))
    (mh-notate nil ?  mh-cmd-note)))