Function: gnus-registry-read-mark

gnus-registry-read-mark is a byte-compiled function defined in gnus-registry.el.gz.

Signature

(gnus-registry-read-mark)

Documentation

Read a mark name from the user with completion.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-registry.el.gz
(defun gnus-registry-read-mark ()
  "Read a mark name from the user with completion."
  (let ((mark (gnus-completing-read
               "Label"
               (mapcar #'symbol-name (mapcar #'car gnus-registry-marks))
               nil nil nil
               (symbol-name gnus-registry-default-mark))))
    (when (stringp mark)
      (intern mark))))