From: Richard M. Stallman Date: Tue, 13 Oct 1998 15:32:12 +0000 (+0000) Subject: (smtpmail-send-data-1): Use encode-coding-string. X-Git-Tag: emacs-20.4~1505 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb035bbfe1efa76d56bffcf7fb63f1928b5085c9;p=emacs.git (smtpmail-send-data-1): Use encode-coding-string. (smtpmail-address-buffer): Add defvar. (smtpmail-recipient-address-list, smtpmail-read-point): Likewise. --- 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"))