diff options
| author | Filipp Gunbin <fgunbin@fastmail.fm> | 2021-12-02 16:15:32 +0300 |
|---|---|---|
| committer | Filipp Gunbin <fgunbin@fastmail.fm> | 2021-12-02 16:15:32 +0300 |
| commit | c469efbd8361cffff72fb6a4aeaeea40c5adf110 (patch) | |
| tree | e57fb6dd957d1c27ffbc176ffaff69b949c1429d /lisp/gnus/gnus-art.el | |
| parent | 9ea5a915bd1b9458af1587d63170888346e8baec (diff) | |
| download | emacs-c469efbd8361cffff72fb6a4aeaeea40c5adf110.tar.gz emacs-c469efbd8361cffff72fb6a4aeaeea40c5adf110.tar.bz2 emacs-c469efbd8361cffff72fb6a4aeaeea40c5adf110.zip | |
* lisp/gnus/gnus-art.el (gnus--variable-pitch-p): Don't error out if face nil
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." |