From: tomo <tomo>
Date: Thu, 14 Dec 2000 06:15:56 +0000 (+0000)
Subject: Don't require `poem'.
X-Git-Tag: flim-1_14_0-pre5~19
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fflim.git;a=commitdiff_plain;h=cfd57bc3f1f005e8e26f7043eaff1f4d0d0a9eb9

Don't require `poem'.
(qmtp-send-buffer): Don't use `as-binary-process'.
---

diff --git a/qmtp.el b/qmtp.el
index 2d306b2..9be821d 100644
--- a/qmtp.el
+++ b/qmtp.el
@@ -29,11 +29,10 @@
 
 ;; 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
@@ -125,11 +124,11 @@ called from `qmtp-via-qmtp' with arguments SENDER and RECIPIENTS.")
     (setq qmtp-read-point (point-min))
     (let (process)
       (unwind-protect
-	  (progn
-	    (as-binary-process
-	     (setq process
-		   (funcall qmtp-open-connection-function
-			    "QMTP" (current-buffer) qmtp-server qmtp-service)))
+	  (let ((coding-system-for-read  'binary)
+		(coding-system-for-write 'binary))
+	    (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)))