* smtp.el (smtp-send-buffer): Pass the BUFFER argument.

diff --git a/ChangeLog b/ChangeLog
index 15d746e..654354b 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2000-12-15   Daiki Ueno  <ueno@unixuser.org>
+
+       * smtp.el (smtp-send-buffer): Pass the BUFFER argument.
+
 2000-12-15  Katsumi Yamaoka   <yamaoka@jpl.org>
 
        * smtp.el: Require `pcustom' instead of `custom'.

diff --git a/smtp.el b/smtp.el
index a2cbb6c..e389660 100644 (file)
--- a/smtp.el
+++ b/smtp.el
@@ -275,7 +275,7 @@ of the host to connect to.  SERVICE is name of the service desired."
        (get-buffer-create
        (format "*trace of SMTP session to %s*" server)))
       (erase-buffer)
-      (buffer-disable-undo)
+      (buffer-disable-undo (current-buffer))
       (unless (smtp-find-connection (current-buffer))
        (smtp-open-connection (current-buffer) server smtp-service))
       (make-local-variable 'smtp-read-point)