Re: xemacs user sees trouble with gnus-vis

[Christopher Davis <ckd@loiosh.kei.com>]

KK> == Karl Kleinpaste <Karl_Kleinpaste@APHRODITE.NECTAR.CS.CMU.EDU>

 KK> Is anyone else out there familiar with the following failure mode
 KK> under xemacs?

 KK> The error raised is: wrong type argument, bufferp, ">>"

 KK>   set-text-properties(0 2 nil ">>")

Known bug in the text-properties compatibility stuff shipped in 19.13.

Change lisp/utils/text-props.el and re-byte-compile.

--- text-props.el~	Wed Aug 30 19:36:48 1995
+++ text-props.el	Wed Sep  6 22:42:51 1995
@@ -303,14 +303,16 @@
 (defun set-text-properties (start end props &optional buffer)
   "You should NEVER use this function.  It is ideologically blasphemous.
 It is provided only to ease porting of broken FSF Emacs programs."
-  (map-extents #'(lambda (extent ignored)
-		   (remove-text-properties start end
-					   (list (extent-property extent
-								  'text-prop)
-						 nil)
-					   buffer))
-	       buffer start end nil nil 'text-prop)
-  (add-text-properties start end props buffer))
+  (if (and (stringp buffer) (not (setq buffer (get-buffer buffer))))
+      nil
+    (map-extents #'(lambda (extent ignored)
+		     (remove-text-properties start end
+					     (list (extent-property extent
+								    'text-prop)
+						   nil)
+					     buffer))
+		 buffer start end nil nil 'text-prop)
+    (add-text-properties start end props buffer)))
 
 \f
 ;;; The following functions can probably stay in lisp, since they're so simple.