Function: canlock-fetch-id-for-key

canlock-fetch-id-for-key is a byte-compiled function defined in canlock.el.gz.

Signature

(canlock-fetch-id-for-key)

Documentation

Return a Message-ID in Cancel, Supersedes or Replaces header.

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-id-for-key ()
  "Return a Message-ID in Cancel, Supersedes or Replaces header.
The buffer is expected to be narrowed to just the headers of the
message."
  (or (let ((cancel (mail-fetch-field "Control")))
	(and cancel
	     (string-match "^cancel[\t ]+\\(<[^\t\n @<>]+@[^\t\n @<>]+>\\)"
			   cancel)
	     (match-string 1 cancel)))
      (mail-fetch-field "Supersedes")
      (mail-fetch-field "Replaces")))