diff options
| author | Filipp Gunbin | 2021-12-02 16:15:32 +0300 |
|---|---|---|
| committer | Filipp Gunbin | 2021-12-02 16:15:32 +0300 |
| commit | c469efbd8361cffff72fb6a4aeaeea40c5adf110 (patch) | |
| tree | e57fb6dd957d1c27ffbc176ffaff69b949c1429d | |
| parent | 9ea5a915bd1b9458af1587d63170888346e8baec (diff) | |
| download | emacs-c469efbd8361cffff72fb6a4aeaeea40c5adf110.tar.gz emacs-c469efbd8361cffff72fb6a4aeaeea40c5adf110.zip | |
* lisp/gnus/gnus-art.el (gnus--variable-pitch-p): Don't error out if face nil
| -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." | |||
| 2213 | (goto-char (point-max))))))) | 2213 | (goto-char (point-max))))))) |
| 2214 | 2214 | ||
| 2215 | (defun gnus--variable-pitch-p (face) | 2215 | (defun gnus--variable-pitch-p (face) |
| 2216 | (or (eq face 'variable-pitch) | 2216 | (when face |
| 2217 | (let ((parent (face-attribute face :inherit))) | 2217 | (or (eq face 'variable-pitch) |
| 2218 | (if (eq parent 'unspecified) | 2218 | (let ((parent (face-attribute face :inherit))) |
| 2219 | nil | 2219 | (if (eq parent 'unspecified) |
| 2220 | (seq-some #'gnus--variable-pitch-p (ensure-list parent)))))) | 2220 | nil |
| 2221 | (seq-some #'gnus--variable-pitch-p (ensure-list parent))))))) | ||
| 2221 | 2222 | ||
| 2222 | (defun gnus-article-treat-fold-headers () | 2223 | (defun gnus-article-treat-fold-headers () |
| 2223 | "Fold message headers." | 2224 | "Fold message headers." |