projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
This commit was generated by cvs2svn to compensate for changes in r8000,
[elisp/gnus.git-]
/
lisp
/
smtp.el
diff --git
a/lisp/smtp.el
b/lisp/smtp.el
index
3d2e113
..
1954200
100644
(file)
--- a/
lisp/smtp.el
+++ b/
lisp/smtp.el
@@
-57,11
+57,6
@@
don't define this value."
:type 'boolean
:group 'smtp)
:type 'boolean
:group 'smtp)
-(defcustom smtp-coding-system 'binary
- "*Coding-system for SMTP output."
- :type 'coding-system
- :group 'smtp)
-
(defun smtp-fqdn ()
(if smtp-local-domain
(defun smtp-fqdn ()
(if smtp-local-domain
@@
-75,9
+70,7
@@
don't define this value."
response-code
greeting
process-buffer
response-code
greeting
process-buffer
- (supported-extensions '())
- (coding-system-for-read smtp-coding-system)
- (coding-system-for-write smtp-coding-system))
+ (supported-extensions '()))
(unwind-protect
(catch 'done
;; get or create the trace buffer
(unwind-protect
(catch 'done
;; get or create the trace buffer
@@
-91,7
+84,8
@@
don't define this value."
(erase-buffer))
;; open the connection to the server
(erase-buffer))
;; open the connection to the server
- (setq process (open-network-stream "SMTP" process-buffer host port))
+ (setq process (open-network-stream-as-binary
+ "SMTP" process-buffer host port))
(and (null process) (throw 'done nil))
;; set the send-filter
(and (null process) (throw 'done nil))
;; set the send-filter