;; Delay consing the value of the `face' property until
;; `gnus-add-text-properties' runs, since it will be modified
;; by `gnus-put-text-property-excluding-characters-with-faces'.
- (list ',(symbol-value (intern (format "gnus-face-%d" type))) nil)
+ (list ',(symbol-value (intern (format "gnus-face-%d" type))) 'default)
;; Redundant now, but still convenient.
'(gnus-face t)))))