Function: gnus-search-query-parse-mark

gnus-search-query-parse-mark is a byte-compiled function defined in gnus-search.el.gz.

Signature

(gnus-search-query-parse-mark MARK)

Documentation

Possibly transform MARK.

If MARK is a single character, assume it is one of the gnus-*-mark marks, and return an appropriate string.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-search.el.gz
(defun gnus-search-query-parse-mark (mark)
  "Possibly transform MARK.
If MARK is a single character, assume it is one of the
gnus-*-mark marks, and return an appropriate string."
  (if (= 1 (length mark))
      (let ((m (aref mark 0)))
	;; Neither pcase nor cl-case will work here.
       (cond
	 ((eql m gnus-ticked-mark) "flag")
	 ((eql m gnus-read-mark) "read")
	 ((eql m gnus-replied-mark) "replied")
	 ((eql m gnus-recent-mark) "recent")
	 (t mark)))
    mark))