* 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 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
"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)))
"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)))