Function: package--print-email-button

package--print-email-button is a byte-compiled function defined in package.el.gz.

Signature

(package--print-email-button RECIPIENT)

Documentation

Insert a button whose action will send an email to RECIPIENT.

NAME should have the form (FULLNAME . EMAIL) where FULLNAME is either a full name or nil, and EMAIL is a valid email address.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/package.el.gz
(defun package--print-email-button (recipient)
  "Insert a button whose action will send an email to RECIPIENT.
NAME should have the form (FULLNAME . EMAIL) where FULLNAME is
either a full name or nil, and EMAIL is a valid email address."
  (when (car recipient)
    (insert (car recipient)))
  (when (and (car recipient) (cdr recipient))
    (insert " "))
  (when (cdr recipient)
    (insert "<")
    (insert-text-button (cdr recipient)
                        'follow-link t
                        'action (lambda (_)
                                  (compose-mail
                                   (format "%s <%s>" (car recipient) (cdr recipient)))))
    (insert ">"))
  (insert "\n"))