: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
(setq this-line-end (point))
(setq sending-data nil)
(setq sending-data (buffer-substring this-line this-line-end))
- (if (/= (forward-line 1) 0)
+ (if (or (/= (forward-line 1) 0) (eobp))
(setq data-continue nil)))
(smtp-send-data-1 process sending-data)