mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Filipp Gunbin 2021-12-02 16:15:32 +03:00
parent 9ea5a915bd
commit c469efbd83
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/gnus/gnus-art.el
View file

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