X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-gl.el;h=de68a6db39a3224fc9a00b9647b3c1ad466f75a3;hb=9333c13dc3decc39df903cd1e2e3cd00cd17490c;hp=7e6381f47716aa98cc4bc9fea36f3f01d21d2b4e;hpb=daea6bb7f5bda46077dabaf7a2ab4450df400fa7;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-gl.el b/lisp/gnus-gl.el
index 7e6381f..de68a6d 100644
--- a/lisp/gnus-gl.el
+++ b/lisp/gnus-gl.el
@@ -1,5 +1,5 @@
 ;;; gnus-gl.el --- an interface to GroupLens for Gnus
-;; Copyright (C) 1995,96,97,98,99 Free Software Foundation, Inc.
+;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc.
 
 ;; Author: Brad Miller <bmiller@cs.umn.edu>
 ;; Keywords: news, score
@@ -257,7 +257,8 @@ If this times out we give up and assume that something has died..." )
   (catch 'done
     (condition-case error
 	(setq grouplens-bbb-process
-	      (open-network-stream "BBBD" grouplens-bbb-buffer host port))
+	      (open-network-stream-as-binary
+	       "BBBD" grouplens-bbb-buffer host port))
       (error (gnus-message 3 "Error: Failed to connect to BBB")
 	     nil))
     (and (null grouplens-bbb-process)
@@ -765,7 +766,7 @@ If prefix argument ALL is non-nil, all articles are marked as read."
 (defun gnus-gl-get-trace ()
   "Insert the contents of the BBBD trace buffer."
   (when grouplens-bbb-buffer
-    (insert-buffer-substring grouplens-bbb-buffer)))
+    (insert-buffer grouplens-bbb-buffer)))
 
 ;;
 ;; GroupLens minor mode