Function: mh-junk-choose

mh-junk-choose is a byte-compiled function defined in mh-e.el.gz.

Signature

(mh-junk-choose SYMBOL VALUE)

Documentation

Choose spam program to use.

The function is always called with SYMBOL bound to mh-junk-program and VALUE bound to the new value of mh-junk-program. The function sets the variable mh-junk-choice in addition to mh-junk-program.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-e.el.gz
(defun mh-junk-choose (symbol value)
  "Choose spam program to use.

The function is always called with SYMBOL bound to
`mh-junk-program' and VALUE bound to the new value of
`mh-junk-program'. The function sets the variable
`mh-junk-choice' in addition to `mh-junk-program'."
  (set symbol value)                    ;XXX shouldn't this be set-default?
  (setq mh-junk-choice
        (or value
            (cl-loop for element in mh-junk-function-alist
                     until (executable-find (symbol-name (car element)))
                     finally return (car element)))))