summaryrefslogtreecommitdiff
path: root/lisp/gnus/gnus-salt.el
diff options
context:
space:
mode:
authorGnus developers <ding@gnus.org>2012-09-06 22:13:45 +0000
committerKatsumi Yamaoka <yamaoka@jpl.org>2012-09-06 22:13:45 +0000
commit845ce106c0ab157e25416964330875ad6c24b699 (patch)
tree71d16216e18ab1e6cee8b6df1ae5bba080895d47 /lisp/gnus/gnus-salt.el
parent0216c1289b6ff1aa692ab5e7e8fe3f56e760a278 (diff)
downloademacs-845ce106c0ab157e25416964330875ad6c24b699.tar.gz
Misc changes made in Gnus master
Use combining faces for highlighting. Change ephemeral Gnus group names to be prettier. gnus-util.el: Fix compilation error on XEmacs 21.4.
Diffstat (limited to 'lisp/gnus/gnus-salt.el')
-rw-r--r--lisp/gnus/gnus-salt.el4
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/gnus/gnus-salt.el b/lisp/gnus/gnus-salt.el
index 760a7a0942e..87a120279bc 100644
--- a/lisp/gnus/gnus-salt.el
+++ b/lisp/gnus/gnus-salt.el
@@ -660,9 +660,7 @@ Two predefined functions are available:
(not (eval (caar list))))
(setq list (cdr list)))))
(unless (eq (setq face (cdar list)) (get-text-property beg 'face))
- (gnus-put-text-property-excluding-characters-with-faces
- beg end 'face
- (if (boundp face) (symbol-value face) face)))))
+ (add-face beg end (if (boundp face) (symbol-value face) face)))))
(defun gnus-tree-indent (level)
(insert (make-string (1- (* (1+ gnus-tree-node-length) level)) ? )))