X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Fgnus-ems.el;h=b87091c261cd3e498ed2790a7ce414293a8fe523;hb=0fc12dda0db988b86441c8692d4688ec08b887ab;hp=75501684b4668893117c298f7a55475e9e53e555;hpb=f32eac583bcc6e350ea942eb8611b731b2cd7b56;p=gnus

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index 75501684b..b87091c26 100644
--- a/lisp/gnus-ems.el
+++ b/lisp/gnus-ems.el
@@ -50,9 +50,10 @@
   	(funcall 'set-face-underline-p 'underline t))
     (or (fboundp 'set-text-properties)
 	(defun set-text-properties (start end props &optional buffer)
-	  (if props
-	      (put-text-property start end (car props) (cdr props) buffer)
-	    (remove-text-properties start end ()))))
+	  (if (or (null buffer) (bufferp buffer))
+	      (if props
+		  (put-text-property start end (car props) (cdr props) buffer)
+		(remove-text-properties start end ())))))
     
     (or (fboundp 'make-overlay) (fset 'make-overlay 'make-extent))
     (or (fboundp 'overlay-put) (fset 'overlay-put 'set-extent-property))
@@ -135,9 +136,6 @@
 
     (fset 'gnus-summary-make-display-table (lambda () nil))
 
-    (provide 'gnus)
-    (require 'gnus-vis)
-
     (defun gnus-highlight-selected-summary ()
       ;; Added by Per Abrahamsen <amanda@iesd.auc.dk>.
       ;; Highlight selected article in summary buffer