Function: message--alter-repeat-address

message--alter-repeat-address is a byte-compiled function defined in message.el.gz.

Signature

(message--alter-repeat-address ADDRESS)

Documentation

Transform an address on the form ""foo@bar.com"" <foo@bar.com>".

The first bit will be elided if a match is made.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/message.el.gz
(defun message--alter-repeat-address (address)
  "Transform an address on the form \"\"foo@bar.com\"\" <foo@bar.com>\".
The first bit will be elided if a match is made."
  (let ((bits (gnus-extract-address-components address)))
    (if (equal (car bits) (cadr bits))
	(car bits)
      ;; Return the original address if we don't have repetition.
      address)))