Function: canlock-fetch-fields

canlock-fetch-fields is a byte-compiled function defined in canlock.el.gz.

Signature

(canlock-fetch-fields &optional KEY)

Documentation

Return a list of the values of Cancel-Lock header.

If KEY is non-nil, look for a Cancel-Key header instead. The buffer is expected to be narrowed to just the headers of the message.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/canlock.el.gz
(defun canlock-fetch-fields (&optional key)
  "Return a list of the values of Cancel-Lock header.
If KEY is non-nil, look for a Cancel-Key header instead.  The buffer
is expected to be narrowed to just the headers of the message."
  (let ((field (mail-fetch-field (if key "Cancel-Key" "Cancel-Lock")))
	fields rest
	(case-fold-search t))
    (when field
      (setq fields (split-string field "[\t\n\r ,]+"))
      (while fields
	(when (string-match "^sha1:" (setq field (pop fields)))
	  (push (substring field 5) rest)))
      (nreverse rest))))