X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fflim.git;a=blobdiff_plain;f=qmtp.el;h=b1f1072a4b38a106738492c1bc1145eed9fc8183;hp=459cd7ffe09a86bbbc2bd6833c3fa15ef3956bc3;hb=HEAD;hpb=d636b504b66ac4e69339ff1a6c261acfdf359b12

diff --git a/qmtp.el b/qmtp.el
index 459cd7f..b1f1072 100644
--- a/qmtp.el
+++ b/qmtp.el
@@ -19,8 +19,8 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 
 ;;; Commentary:
@@ -29,12 +29,12 @@
 
 ;; 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 'pcustom)
+(require 'custom)
+(require 'mel) ; binary-funcall
 
 (defgroup qmtp nil
   "QMTP protocol for sending mail."
@@ -61,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
@@ -126,10 +127,10 @@ called from `qmtp-via-qmtp' with arguments SENDER and RECIPIENTS.")
     (let (process)
       (unwind-protect
 	  (progn
-	    (as-binary-process
-	     (setq process
-		   (funcall qmtp-open-connection-function
-			    "QMTP" (current-buffer) qmtp-server qmtp-service)))
+	    (setq process
+		  (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)))