Function: gnus-registry-article-marks-to-chars

gnus-registry-article-marks-to-chars is a byte-compiled function defined in gnus-registry.el.gz.

Signature

(gnus-registry-article-marks-to-chars HEADERS)

Documentation

Show the marks for an article by the :char property.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-registry.el.gz
;; use like this:
;; (defalias 'gnus-user-format-function-M #'gnus-registry-article-marks-to-chars)
(defun gnus-registry-article-marks-to-chars (headers)
  "Show the marks for an article by the :char property."
  (if gnus-registry-db
      (let* ((id (mail-header-message-id headers))
             (marks (when id (gnus-registry-get-id-key id 'mark))))
	(concat (delq nil
		      (mapcar
		       (lambda (m)
			 (plist-get
			  (cdr-safe (assoc m gnus-registry-marks))
			  :char))
		       marks))))
    ""))