Mercurial > emacs
changeset 23142:98c430cac424
(smtpmail-send-it): Add autoload cookie.
(smtpmail-via-smtp): Check that smtpmail-smtp-server is defined.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sat, 29 Aug 1998 15:56:41 +0000 |
| parents | 9676fa7e02bf |
| children | cbd4013c57ab |
| files | lisp/mail/smtpmail.el |
| diffstat | 1 files changed, 7 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/smtpmail.el Sat Aug 29 15:55:28 1998 +0000 +++ b/lisp/mail/smtpmail.el Sat Aug 29 15:56:41 1998 +0000 @@ -28,16 +28,13 @@ ;; Send Mail to smtp host from smtpmail temp buffer. -;; Please add these lines in your .emacs(_emacs). +;; Please add these lines in your .emacs(_emacs) or use customize. ;; -;;(setq send-mail-function 'smtpmail-send-it) +;;(setq send-mail-function 'smtpmail-send-it) ; if you use `mail' +;;(setq message-send-mail-function 'smtpmail-send-it) ; if you use `message' ;;(setq smtpmail-default-smtp-server "YOUR SMTP HOST") -;;(setq smtpmail-smtp-service "smtp") ;;(setq smtpmail-local-domain "YOUR DOMAIN NAME") -;;(setq smtpmail-debug-info t) -;;(load-library "smtpmail") -;;(setq smtpmail-code-conv-from nil) -;;(setq user-full-name "YOUR NAME HERE") +;;(setq smtpmail-debug-info t) ; only to debug problems ;; To queue mail, set smtpmail-queue-mail to t and use ;; smtpmail-send-queued-mail to send. @@ -110,6 +107,7 @@ ;;; ;;; +;;;###autoload (defun smtpmail-send-it () (require 'mail-utils) (let ((errbuf (if mail-interactive @@ -298,7 +296,8 @@ (defun smtpmail-via-smtp (recipient smtpmail-text-buffer) (let ((process nil) - (host smtpmail-smtp-server) + (host (or smtpmail-smtp-server + (error "`smtpmail-smtp-server' not defined"))) (port smtpmail-smtp-service) response-code greeting