Function: sc-mail-fetch-field

sc-mail-fetch-field is a byte-compiled function defined in supercite.el.gz.

Signature

(sc-mail-fetch-field &optional ATTRIBS-P)

Documentation

Insert a key and value into sc-mail-info alist.

If optional ATTRIBS-P is non-nil, the key/value pair is placed in sc-attributions too.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/supercite.el.gz
(defun sc-mail-fetch-field (&optional attribs-p)
  "Insert a key and value into `sc-mail-info' alist.
If optional ATTRIBS-P is non-nil, the key/value pair is placed in
`sc-attributions' too."
  (if (string-match "^\\(\\S *\\)\\s *:\\s +\\(.*\\)$" curline)
      (let* ((key (downcase (match-string-no-properties 1 curline)))
	     (val (match-string-no-properties 2 curline))
	     (keyval (cons key val)))
	(push keyval sc-mail-info)
	(if attribs-p
	    (push keyval sc-attributions))))
  nil)