* smtp.el (smtp-coding-system): Abolished.

(smtp-via-smtp): Use `open-network-stream-as-binary' instead of
`open-network-stream'.

diff --git a/ChangeLog b/ChangeLog
index 4ffb30d..4968a5e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+1998-12-08  Katsumi Yamaoka <yamaoka@jpl.org>
+
+       * smtp.el (smtp-coding-system): Abolished.
+       (smtp-via-smtp): Use `open-network-stream-as-binary' instead of
+       `open-network-stream'.
+
 1998-12-04  Katsumi Yamaoka <yamaoka@jpl.org>
 
        * mel-b-ccl.el (base64-ccl-insert-encoded-file): Use

diff --git a/smtp.el b/smtp.el
index e5031a2..79ef969 100644 (file)
--- a/smtp.el
+++ b/smtp.el
@@ -60,11 +60,6 @@ don't define this value."
   :type '(choice (const nil) string)
   :group 'smtp)
 
-(defcustom smtp-coding-system 'binary
-  "*Coding-system for SMTP output."
-  :type 'coding-system
-  :group 'smtp)
-
 (defvar smtp-debug-info nil)
 (defvar smtp-read-point nil)
 
@@ -80,9 +75,7 @@ don't define this value."
       (error "Cannot generate valid FQDN. Set `smtp-local-domain' correctly.")))))
 
 (defun smtp-via-smtp (sender recipients smtp-text-buffer)
-  (let ((coding-system-for-read smtp-coding-system)
-       (coding-system-for-write smtp-coding-system)
-       process response extensions)
+  (let (process response extensions)
     (save-excursion
       (set-buffer
        (get-buffer-create
@@ -93,9 +86,8 @@ don't define this value."
 
       (unwind-protect
          (catch 'done
-           (setq process (open-network-stream "SMTP"
-                                              (current-buffer)
-                                              smtp-server smtp-service))
+           (setq process (open-network-stream-as-binary
+                          "SMTP" (current-buffer) smtp-server smtp-service))
            (or process (throw 'done nil))
 
            (set-process-filter process 'smtp-process-filter)