# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 904406201 0
# Node ID 98c430cac424d9d5cfbacc66fcad8460f6c6868f
# Parent  9676fa7e02bf82ce4d9ee5767f4d76fbaafed19f
(smtpmail-send-it): Add autoload cookie.
(smtpmail-via-smtp): Check that smtpmail-smtp-server is defined.

diff -r 9676fa7e02bf -r 98c430cac424 lisp/mail/smtpmail.el
--- 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