# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 908292732 0
# Node ID a632871d7cfa4448813cce7dd02f58c1cc5004e0
# Parent  362c52acd51f779b62c28b51223eac924c0577e0
(smtpmail-send-data-1): Use encode-coding-string.
(smtpmail-address-buffer): Add defvar.
(smtpmail-recipient-address-list, smtpmail-read-point): Likewise.

diff -r 362c52acd51f -r a632871d7cfa lisp/mail/smtpmail.el
--- a/lisp/mail/smtpmail.el	Tue Oct 13 15:31:30 1998 +0000
+++ b/lisp/mail/smtpmail.el	Tue Oct 13 15:32:12 1998 +0000
@@ -100,6 +100,12 @@
   "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 @@
 (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"))