*** empty log message ***

[gnus] / lisp / gnus-ems.el

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index 7550168..b87091c 100644 (file)
--- 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