master c469efb: * lisp/gnus/gnus-art.el (gnus--variable-pitch-p): Don't error out if face nil

[Filipp Gunbin]

branch: master
commit c469efbd8361cffff72fb6a4aeaeea40c5adf110
Author: Filipp Gunbin <fgunbin@fastmail.fm>
Commit: Filipp Gunbin <fgunbin@fastmail.fm>

    * 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 07cb686..b7701f1 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."