mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

Only bind `coding-system-for-*' around the process open call to avoid auth-source side effects.

Browse Source
This commit is contained in:
Lars Magne Ingebrigtsen 2011-08-21 21:27:27 +02:00
parent ff98b2dd51
commit c65c96228e
2 changed files with 23 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2011-08-21 Lars Magne Ingebrigtsen <larsi@gnus.org>
* mail/smtpmail.el (smtpmail-via-smtp): Only bind
`coding-system-for-*' around the process open call to avoid
auth-source side effects.
2011-08-21 Chong Yidong <cyd@stupidchicken.com>
* term.el (term-mouse-paste): Yank primary selection (Bug#6845).

34
lisp/mail/smtpmail.el
View File

@ -622,8 +622,6 @@ The list is in preference order.")
(and mail-specify-envelope-from
(mail-envelope-from))
user-mail-address))
(coding-system-for-read 'binary)
(coding-system-for-write 'binary)
response-code
process-buffer
result
@ -642,21 +640,23 @@ The list is in preference order.")
(erase-buffer))
;; open the connection to the server
(setq result
(open-network-stream
"smtpmail" process-buffer host port
:type smtpmail-stream-type
:return-list t
:capability-command (format "EHLO %s\r\n" (smtpmail-fqdn))
:end-of-command "^[0-9]+ .*\r\n"
:success "^2.*\n"
:always-query-capabilities t
:starttls-function
(lambda (capabilities)
(and (string-match "-STARTTLS" capabilities)
"STARTTLS\r\n"))
:client-certificate t
:use-starttls-if-possible t))
(let ((coding-system-for-read 'binary)
(coding-system-for-write 'binary))
(setq result
(open-network-stream
"smtpmail" process-buffer host port
:type smtpmail-stream-type
:return-list t
:capability-command (format "EHLO %s\r\n" (smtpmail-fqdn))
:end-of-command "^[0-9]+ .*\r\n"
:success "^2.*\n"
:always-query-capabilities t
:starttls-function
(lambda (capabilities)
(and (string-match "-STARTTLS" capabilities)
"STARTTLS\r\n"))
:client-certificate t
:use-starttls-if-possible t)))
;; If we couldn't access the server at all, we give up.
(unless (setq process (car result))