From: ueno <ueno>
Date: Wed, 16 Aug 2000 17:50:46 +0000 (+0000)
Subject: Fix last change.
X-Git-Tag: deisui-1_14_0-1~34
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=675ea2b0ecee0d26b20ff5df88bda3b729568d42;p=elisp%2Fflim.git

Fix last change.
---

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)