Function: message-alter-recipients-discard-bogus-full-name

message-alter-recipients-discard-bogus-full-name is a byte-compiled function defined in message.el.gz.

Signature

(message-alter-recipients-discard-bogus-full-name ADDRCELL)

Documentation

Discard mail address in full names.

When the full name in reply headers contains the mail address (e.g. "foo@bar <foo@bar>"), discard full name. ADDRCELL is a cons cell where the car is the mail address and the cdr is the complete address (full name and mail address).

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/message.el.gz
(defun message-alter-recipients-discard-bogus-full-name (addrcell)
  "Discard mail address in full names.
When the full name in reply headers contains the mail
address (e.g. \"foo@bar <foo@bar>\"), discard full name.
ADDRCELL is a cons cell where the car is the mail address and the
cdr is the complete address (full name and mail address)."
  (if (string-match (concat (regexp-quote (car addrcell)) ".*"
			    (regexp-quote (car addrcell)))
		    (cdr addrcell))
      (cons (car addrcell) (car addrcell))
    addrcell))