: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
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
(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