From: Filipp Gunbin <fgunbin@fastmail.fm>
Date: Thu, 2 Dec 2021 13:15:32 +0000 (+0300)
Subject: * lisp/gnus/gnus-art.el (gnus--variable-pitch-p): Don't error out if face nil
X-Git-Tag: emacs-29.0.90~3625^2~11
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c469efbd8361cffff72fb6a4aeaeea40c5adf110;p=emacs.git

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

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."