diff options
Diffstat (limited to 'lisp/gnus/gnus-art.el')
| -rw-r--r-- | lisp/gnus/gnus-art.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 07cb68667f6..b7701f10a5e 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -2213,11 +2213,12 @@ unfolded." (goto-char (point-max))))))) (defun gnus--variable-pitch-p (face) - (or (eq face 'variable-pitch) - (let ((parent (face-attribute face :inherit))) - (if (eq parent 'unspecified) - nil - (seq-some #'gnus--variable-pitch-p (ensure-list parent)))))) + (when face + (or (eq face 'variable-pitch) + (let ((parent (face-attribute face :inherit))) + (if (eq parent 'unspecified) + nil + (seq-some #'gnus--variable-pitch-p (ensure-list parent))))))) (defun gnus-article-treat-fold-headers () "Fold message headers." |