Function: mh-bogofilter-allowlist

mh-bogofilter-allowlist is an autoloaded and byte-compiled function defined in mh-junk.el.gz.

Signature

(mh-bogofilter-allowlist MSG)

Documentation

Allowlist MSG with bogofilter.

See mh-bogofilter-blocklist for more information.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-junk.el.gz
;;;###mh-autoload
(defun mh-bogofilter-allowlist (msg)
  "Allowlist MSG with bogofilter.

See `mh-bogofilter-blocklist' for more information."
  (unless mh-bogofilter-executable
    (error "Unable to find the bogofilter executable"))
  (message "Allowlisting message %d with bogofilter..." msg)
  (let ((msg-file (mh-msg-filename msg mh-current-folder)))
    (mh-truncate-log-buffer)
    ;; Put call-process output in log buffer if we are saving it
    ;; (this happens if mh-junk-background is t).
    (with-current-buffer mh-log-buffer
      (call-process mh-bogofilter-executable msg-file mh-junk-background
                    nil "-n")
      (message "Allowlisting message %d with bogofilter...done" msg))))