From fb035bbfe1efa76d56bffcf7fb63f1928b5085c9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 13 Oct 1998 15:32:12 +0000 Subject: [PATCH] (smtpmail-send-data-1): Use encode-coding-string. (smtpmail-address-buffer): Add defvar. (smtpmail-recipient-address-list, smtpmail-read-point): Likewise. --- lisp/mail/smtpmail.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 6e567148b1a..af22f6341f8 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -100,6 +100,12 @@ and sent with `smtpmail-send-queued-mail'." "File name of queued mail index, This is relative to `smtpmail-queue-dir'.") +(defvar smtpmail-address-buffer) +(defvar smtpmail-recipient-address-list) + +;; Buffer-local variable. +(defvar smtpmail-read-point) + (defvar smtpmail-queue-index (concat smtpmail-queue-dir smtpmail-queue-index-file)) @@ -558,8 +564,8 @@ This is relative to `smtpmail-queue-dir'.") (defun smtpmail-send-data-1 (process data) (goto-char (point-max)) - (if (not (null smtpmail-code-conv-from)) - (setq data (code-convert-string data smtpmail-code-conv-from *internal*))) + (when smtpmail-code-conv-from + (setq data (encode-coding-string data *internal* smtpmail-code-conv-from))) (if smtpmail-debug-info (insert data "\r\n")) -- 2.39.2