Mercurial > emacs

changeset 23444:a632871d7cfa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(smtpmail-send-data-1): Use encode-coding-string. (smtpmail-address-buffer): Add defvar. (smtpmail-recipient-address-list, smtpmail-read-point): Likewise.
author Richard M. Stallman <rms@gnu.org>
date Tue, 13 Oct 1998 15:32:12 +0000
parents 362c52acd51f
children 838c9bd2adcd
files lisp/mail/smtpmail.el
diffstat 1 files changed, 8 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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"))