Function: mh-junk-allowlist-a-msg

mh-junk-allowlist-a-msg is a byte-compiled function defined in mh-junk.el.gz.

Signature

(mh-junk-allowlist-a-msg MESSAGE)

Documentation

Allowlist MESSAGE.

If MESSAGE is nil then the message at point is allowlisted. The hook mh-allowlist-msg-hook is called after you mark a message for allowlisting.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-junk.el.gz
(defun mh-junk-allowlist-a-msg (message)
  "Allowlist MESSAGE.
If MESSAGE is nil then the message at point is allowlisted. The
hook `mh-allowlist-msg-hook' is called after you mark a message
for allowlisting."
  (save-excursion
    (if (numberp message)
        (mh-goto-msg message nil t)
      (beginning-of-line)
      (setq message (mh-get-msg-num t)))
    (cond ((looking-at mh-scan-refiled-msg-regexp)
           (error "Message %d is refiled; undo refile before allowlisting"
                  message))
          ((looking-at mh-scan-deleted-msg-regexp)
           (error "Message %d is deleted; undo delete before allowlisting"
                  message))
          ((looking-at mh-scan-blocklisted-msg-regexp)
           (error "Message %d is blocklisted; undo before allowlisting"
                  message))
          ((looking-at mh-scan-allowlisted-msg-regexp) nil)
          (t
           (mh-set-folder-modified-p t)
           (setq mh-allowlist (cons message mh-allowlist))
           (mh-notate nil mh-note-allowlisted mh-cmd-note)
           (run-hooks 'mh-allowlist-msg-hook)))))