X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-spec.el;h=23215fbed01d7d190becb225b927c81a67ad4ddb;hb=2ad6c8c594776e2edabf192290f0da5972f952da;hp=138dff800980491af0934ad5f0f27b053c383abb;hpb=2bdf225fa3e4e4606e4dc80cc84e7892b9280c62;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index 138dff8..23215fb 100644
--- a/lisp/gnus-spec.el
+++ b/lisp/gnus-spec.el
@@ -237,9 +237,9 @@
 (defvar gnus-face-4 'bold)
 
 (defun gnus-face-face-function (form type)
-  `(gnus-put-text-property
+  `(gnus-add-text-properties
     (point) (progn ,@form (point))
-    'face ',(symbol-value (intern (format "gnus-face-%d" type)))))
+    '(gnus-face t face ,(symbol-value (intern (format "gnus-face-%d" type))))))
 
 (defun gnus-tilde-max-form (el max-width)
   "Return a form that limits EL to MAX-WIDTH."
@@ -307,7 +307,8 @@
       (let ((number (if (match-beginning 1)
 			(match-string 1) "0"))
 	    (delim (aref (match-string 2) 0)))
-	(if (or (= delim ?\() (= delim ?\{))
+	(if (or (= delim ?\()
+		(= delim ?\{))
 	    (replace-match (concat "\"(" (if (= delim ?\() "mouse" "face")
 				   " " number " \""))
 	  (replace-match "\")\""))))