From a0b0c1c305a97280bdcb2347ac947904ffba1d8c Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Fri, 15 Nov 2002 08:48:13 +0000
Subject: [PATCH] Synch with the flim-1_14 branch.

---
 ChangeLog |    4 ++++
 smtp.el   |    3 ++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 390b170..9db5dac 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-11-15  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* smtp.el (smtp-send-buffer): Error if `smtp-server' is nil.
+
 2002-11-15  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* FLIM-ELS (flim-version-specific-modules): Don't install mailcap.el.
diff --git a/smtp.el b/smtp.el
index ecd35f2..6455ae6 100644
--- a/smtp.el
+++ b/smtp.el
@@ -350,7 +350,8 @@ BUFFER may be a buffer or a buffer name which contains mail message."
     (let ((server
 	   (if (functionp smtp-server)
 	       (funcall smtp-server sender recipients)
-	     smtp-server))
+	     (or smtp-server
+		 (error "`smtp-server' not defined"))))
 	  (package
 	   (smtp-make-package sender recipients buffer))
 	  (smtp-open-connection-function
-- 
1.7.10.4