From: 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/?a=commitdiff_plain;h=cfd57bc3f1f005e8e26f7043eaff1f4d0d0a9eb9;p=elisp%2Fflim.git 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)))