Fix last change.

diff --git a/smtp.el b/smtp.el
index dacc24a..2462c43 100644 (file)
--- 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 (file)
--- 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)