Mercurial > emacs

comparison lisp/mail/smtpmail.el @ 22037:cb95bfcd442a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(smtpmail-via-smtp): Speciy process coding system.
author Richard M. Stallman <rms@gnu.org>
date Tue, 12 May 1998 19:44:17 +0000
parents c0569fcdef88
children 98c430cac424
comparison
equal deleted inserted replaced
22036:342138eae82d 22037:cb95bfcd442a
322 ;; set the send-filter 322 ;; set the send-filter
323 (set-process-filter process 'smtpmail-process-filter) 323 (set-process-filter process 'smtpmail-process-filter)
324 324
325 (save-excursion 325 (save-excursion
326 (set-buffer process-buffer) 326 (set-buffer process-buffer)
327 (set-buffer-process-coding-system 'raw-text-unix 'raw-text-unix)
327 (make-local-variable 'smtpmail-read-point) 328 (make-local-variable 'smtpmail-read-point)
328 (setq smtpmail-read-point (point-min)) 329 (setq smtpmail-read-point (point-min))
329 330
330 331
331 (if (or (null (car (setq greeting (smtpmail-read-response process)))) 332 (if (or (null (car (setq greeting (smtpmail-read-response process))))