;; To send mail using QMTP instead of SMTP, do
-;; (fset 'smtp-via-smtp 'qmtp-via-qmtp)
+;; (fset 'smtp-send-buffer 'qmtp-send-buffer)
;;; Code:
-(require 'poem)
(require 'custom)
(defgroup qmtp nil
:type 'integer
:group 'qmtp)
-(defvar qmtp-open-connection-function (function open-network-stream))
+(autoload 'binary-open-network-stream "raw-io")
+(defvar qmtp-open-connection-function (function binary-open-network-stream))
(defvar qmtp-error-response-alist
'((?Z "Temporary failure")
(let (process)
(unwind-protect
(progn
- (as-binary-process
- (setq process
- (funcall qmtp-open-connection-function
- "QMTP" (current-buffer) qmtp-server qmtp-service)))
+ (setq process
+ (funcall qmtp-open-connection-function
+ "QMTP" (current-buffer) qmtp-server qmtp-service))
(qmtp-send-package process sender recipients buffer))
(when (and process
(memq (process-status process) '(open run)))