mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-15 17:00:26 +00:00
Code Issues Releases Activity

(smtpmail-send-data-1): Use encode-coding-string.

Browse Source 
(smtpmail-address-buffer): Add defvar.
(smtpmail-recipient-address-list, smtpmail-read-point): Likewise.
This commit is contained in:
Richard M. Stallman 1998-10-13 15:32:12 +00:00
parent 88b5c6b38e
commit fb035bbfe1
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/mail/smtpmail.el
View File

@ -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"))