X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=qmtp.el;h=e74f798afb8ee16d366becf19ce2c2812419976e;hb=9473b6f81186b80f4394fbf0317a36422740b3ca;hp=9be821da43072198fa6d95a0e444c58858d8e564;hpb=cfd57bc3f1f005e8e26f7043eaff1f4d0d0a9eb9;p=elisp%2Fflim.git

diff --git a/qmtp.el b/qmtp.el
index 9be821d..e74f798 100644
--- a/qmtp.el
+++ b/qmtp.el
@@ -34,6 +34,7 @@
 ;;; Code:
 
 (require 'custom)
+(require 'mel) ; binary-funcall
 
 (defgroup qmtp nil
   "QMTP protocol for sending mail."
@@ -60,6 +61,7 @@ called from `qmtp-via-qmtp' with arguments SENDER and RECIPIENTS.")
   :type 'integer
   :group 'qmtp)
 
+;;;###autoload
 (defvar qmtp-open-connection-function (function open-network-stream))
 
 (defvar qmtp-error-response-alist
@@ -124,11 +126,11 @@ called from `qmtp-via-qmtp' with arguments SENDER and RECIPIENTS.")
     (setq qmtp-read-point (point-min))
     (let (process)
       (unwind-protect
-	  (let ((coding-system-for-read  'binary)
-		(coding-system-for-write 'binary))
+	  (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)))