diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2020-04-20 23:30:07 +0200 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2020-08-13 11:30:16 +0200 |
| commit | 9d267db8fa25bbbb8d360d133402aece918624af (patch) | |
| tree | 771ab9e14719969190b8c5e00808d5c04dc511fb /lisp | |
| parent | d59c018a20514eb371b65ab325b81933b4f9d4a8 (diff) | |
| download | emacs-9d267db8fa25bbbb8d360d133402aece918624af.tar.gz | |
* lisp/mail/smtpmail.el: Use outline headings.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/smtpmail.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index f5c9432879f..666395e0b9e 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -53,6 +53,7 @@ ;; See http://www.ietf.org/rfc/rfc2554.txt ;;; Code: +;;; Dependencies (require 'sendmail) (require 'auth-source) @@ -61,12 +62,12 @@ (autoload 'message-make-message-id "message") (autoload 'rfc2104-hash "rfc2104") -;;; +;;; Options + (defgroup smtpmail nil "SMTP protocol for sending mail." :group 'mail) - (defcustom smtpmail-default-smtp-server nil "Specify default SMTP server. This only has effect if you specify it before loading the smtpmail library." @@ -172,8 +173,7 @@ mean \"try again\"." :type 'integer :version "27.1") -;; End of customizable variables. - +;;; Variables (defvar smtpmail-address-buffer) (defvar smtpmail-recipient-address-list) @@ -192,6 +192,8 @@ for `smtpmail-try-auth-method'.") (defvar smtpmail-mail-address nil "Value to use for envelope-from address for mail from ambient buffer.") +;;; Functions + ;;;###autoload (defun smtpmail-send-it () (let ((errbuf (if mail-interactive |