2000-12-04 Daiki Ueno <ueno@unixuser.org>

        * smtpmail.el (smtpmail-send-it): Use `smtp-send-buffer' instead of
        `smtp-via-smtp'.
        (smtpmail-send-queued-mail): Ditto.

diff --git a/ChangeLog b/ChangeLog
index 04fb505..86e79cf 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2000-12-04   Daiki Ueno  <ueno@unixuser.org>
+
+        * smtpmail.el (smtpmail-send-it): Use `smtp-send-buffer' instead of
+        `smtp-via-smtp'.
+        (smtpmail-send-queued-mail): Ditto.
+
 2000-11-24  MORIOKA Tomohiko  <tomo@kanji.zinbun.kyoto-u.ac.jp>
 
       * FLIM-MK (compile-flim): Compile `flim-version-specific-modules'.

diff --git a/smtpmail.el b/smtpmail.el
index 74638aa..8582394 100644 (file)
--- a/smtpmail.el
+++ b/smtpmail.el
@@ -226,10 +226,9 @@ This is relative to `smtpmail-queue-dir'.")
          ; Send or queue
          (if (not smtpmail-queue-mail)
              (if smtpmail-recipient-address-list
-                 (if (not (smtp-via-smtp user-mail-address
-                                         smtpmail-recipient-address-list
-                                         tembuf))
-                     (error "Sending failed; SMTP protocol error"))
+                 (smtp-send-buffer user-mail-address
+                                   smtpmail-recipient-address-list
+                                   tembuf)
                (error "Sending failed; no recipients"))
            (let* ((file-data (convert-standard-filename
                               (concat
@@ -284,9 +283,8 @@ This is relative to `smtpmail-queue-dir'.")
        (load file-msg)
        (setq tembuf (find-file-noselect-as-binary file-msg))
        (if smtpmail-recipient-address-list
-           (if (not (smtp-via-smtp user-mail-address
-                                   smtpmail-recipient-address-list tembuf))
-               (error "Sending failed; SMTP protocol error"))
+           (smtp-send-buffer user-mail-address
+                             smtpmail-recipient-address-list tembuf)
          (error "Sending failed; no recipients"))  
        (delete-file file-msg)
        (delete-file (concat file-msg ".el"))