Function: rmail-select-correspondent

rmail-select-correspondent is a byte-compiled function defined in rmailsort.el.gz.

Signature

(rmail-select-correspondent MSG FIELDS)

Documentation

Find the first header not excluded by mail-dont-reply-to-names.

MSG is a message number. FIELDS is a list of header names.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/rmailsort.el.gz
(defun rmail-select-correspondent (msg fields)
  "Find the first header not excluded by `mail-dont-reply-to-names'.
MSG is a message number.  FIELDS is a list of header names."
  (let ((ans ""))
    (while (and fields (string= ans ""))
      (setq ans
	    (mail-dont-reply-to
	     (mail-strip-quoted-names
	      (or (rmail-get-header (car fields) msg) ""))))
      (setq fields (cdr fields)))
    ans))