Function: rmail-get-summary-labels

rmail-get-summary-labels is a byte-compiled function defined in rmailsum.el.gz.

Signature

(rmail-get-summary-labels)

Documentation

Return a string wrapped in curly braces with the current message labels.

Returns nil if there are no labels. The current buffer must already be narrowed to the message headers for the message being processed.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/rmailsum.el.gz
(defun rmail-get-summary-labels ()
  "Return a string wrapped in curly braces with the current message labels.
Returns nil if there are no labels.  The current buffer must
already be narrowed to the message headers for the message being
processed."
  (let ((labels (mail-fetch-field rmail-keyword-header)))
    (and labels
	 (not (string-equal labels ""))
	 (progn
	   ;; Intern so that rmail-read-label can offer completion.
	   (mapc 'rmail-make-label (split-string labels ", "))
	   (format "{ %s } " labels)))))