2000-12-20 01:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-util.el (gnus-add-text-properties-when): In XEmacs,
	text-property-not-all doesn't return nil when start=mark(end).
	(gnus-remove-text-properties-when): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3463a35..cd14ec1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2000-12-20 01:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-util.el (gnus-add-text-properties-when): In XEmacs,
+       text-property-not-all doesn't return nil when start=mark(end).
+       (gnus-remove-text-properties-when): Ditto.
+
 2000-12-20 00:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-start.el (gnus-group-change-level): Remove group from

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 9194c56..f6d3d6e 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -995,6 +995,7 @@ Entries without port tokens default to DEFAULTPORT."
   "Like `gnus-add-text-properties', only applied on where PROPERTY is VALUE."
   (let (point)
     (while (and start 
+               (< start end) ;; XEmacs will loop for every when start=end.
                (setq point (text-property-not-all start end property value)))
       (gnus-add-text-properties start point properties object)
       (setq start (text-property-any point end property value)))
@@ -1006,6 +1007,7 @@ Entries without port tokens default to DEFAULTPORT."
   "Like `remove-text-properties', only applied on where PROPERTY is VALUE."
   (let (point)
     (while (and start 
+               (< start end)
                (setq point (text-property-not-all start end property value)))
       (remove-text-properties start point properties object)
       (setq start (text-property-any point end property value)))