projects
/
elisp
/
flim.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* std11.el (std11-parse-word-or-comment-or-period): Renamed from
[elisp/flim.git]
/
qmtp.el
diff --git
a/qmtp.el
b/qmtp.el
index
cf5c294
..
e74f798
100644
(file)
--- a/
qmtp.el
+++ b/
qmtp.el
@@
-34,6
+34,7
@@
;;; Code:
(require 'custom)
;;; Code:
(require 'custom)
+(require 'mel) ; binary-funcall
(defgroup qmtp nil
"QMTP protocol for sending mail."
(defgroup qmtp nil
"QMTP protocol for sending mail."
@@
-60,8
+61,8
@@
called from `qmtp-via-qmtp' with arguments SENDER and RECIPIENTS.")
:type 'integer
:group 'qmtp)
:type 'integer
:group 'qmtp)
-(autoload 'binary-open-network-stream "raw-io")
-(defvar qmtp-open-connection-function (function binary-open-network-stream))
+;;;###autoload
+(defvar qmtp-open-connection-function (function open-network-stream))
(defvar qmtp-error-response-alist
'((?Z "Temporary failure")
(defvar qmtp-error-response-alist
'((?Z "Temporary failure")
@@
-127,8
+128,9
@@
called from `qmtp-via-qmtp' with arguments SENDER and RECIPIENTS.")
(unwind-protect
(progn
(setq process
(unwind-protect
(progn
(setq process
- (funcall qmtp-open-connection-function
- "QMTP" (current-buffer) qmtp-server qmtp-service))
+ (binary-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)))
(qmtp-send-package process sender recipients buffer))
(when (and process
(memq (process-status process) '(open run)))