Function: gnus-get-text-property-excluding-characters-with-faces
gnus-get-text-property-excluding-characters-with-faces is a
byte-compiled function defined in gnus-util.el.gz.
Signature
(gnus-get-text-property-excluding-characters-with-faces POS PROP)
Documentation
The same as get-text-property, except where gnus-face is set.
If so, and PROP is face, return the second element of its value.
Otherwise, return the value.
Source Code
;; Defined in /usr/src/emacs/lisp/gnus/gnus-util.el.gz
(defun gnus-get-text-property-excluding-characters-with-faces (pos prop)
"The same as `get-text-property', except where `gnus-face' is set.
If so, and PROP is `face', return the second element of its value.
Otherwise, return the value."
(let ((val (get-text-property pos prop)))
(if (and (get-text-property pos 'gnus-face)
(eq prop 'face))
(cadr val)
(get-text-property pos prop))))