From 675ea2b0ecee0d26b20ff5df88bda3b729568d42 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Wed, 16 Aug 2000 17:50:46 +0000
Subject: [PATCH] Fix last change.

---
 smtp.el |    6 ++++--
 tram.el |    4 +---
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/smtp.el b/smtp.el
index dacc24a..2462c43 100644
--- a/smtp.el
+++ b/smtp.el
@@ -83,7 +83,7 @@ don't define this value."
   :type 'boolean
   :group 'smtp)
 
-(defvar smtp-stream-compose-function
+(defvar smtp-transaction-compose-function
   #'smtp-default-transaction-compose-function)
 
 (defvar smtp-open-connection-function (function open-network-stream))
@@ -237,10 +237,12 @@ don't define this value."
       (setq smtp-read-point (point-min))
       (unwind-protect
 	  (let ((function
-		 (funcall smtp-stream-compose-function
+		 (funcall smtp-transaction-compose-function
 			  sender recipients smtp-text-buffer)))
 	    (or (functionp function)
 		(error "Unable to compose SMTP commands"))
+	    (if (eq (car-safe function) 'lambda)
+		(setq function (byte-compile function)))
 	    (as-binary-process
 	     (setq process
 		   (funcall smtp-open-connection-function
diff --git a/tram.el b/tram.el
index f20018e..6820b7f 100644
--- a/tram.el
+++ b/tram.el
@@ -118,9 +118,7 @@
 		   (tram-compose-transaction (pop tram-transaction))
 		 (pop tram-transaction))
 	       tram-transaction))
-	(if (and (listp accu) (eq (car accu) 'lambda))
-	    (byte-compile accu)
-	  accu)))))
+	accu))))
 
 (provide 'tram)
 
-- 
1.7.10.4