From 990b5a9ec6077d2e7463a507209b5159c9f32445 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 8 Dec 1998 10:10:34 +0000 Subject: [PATCH] * smtp.el (smtp-coding-system): Abolished. (smtp-via-smtp): Use `open-network-stream-as-binary' instead of `open-network-stream'. --- ChangeLog | 6 ++++++ smtp.el | 14 +++----------- 2 files changed, 9 insertions(+), 11 deletions(-) diff --git a/ChangeLog b/ChangeLog index 4ffb30d..4968a5e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +1998-12-08 Katsumi Yamaoka + + * 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 * mel-b-ccl.el (base64-ccl-insert-encoded-file): Use diff --git a/smtp.el b/smtp.el index e5031a2..79ef969 100644 --- 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) -- 1.7.10.4