From c469efbd8361cffff72fb6a4aeaeea40c5adf110 Mon Sep 17 00:00:00 2001 From: Filipp Gunbin Date: Thu, 2 Dec 2021 16:15:32 +0300 Subject: [PATCH] * lisp/gnus/gnus-art.el (gnus--variable-pitch-p): Don't error out if face nil --- lisp/gnus/gnus-art.el | 11 ++++++----- 1 file 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." -- 2.39.2