diff options
| -rw-r--r-- | .gnus | 11 |
1 files changed, 8 insertions, 3 deletions
@@ -151,11 +151,16 @@ (setf (alist-get tag shr-external-rendering-functions) shr-function))) (defun my/gnus-article-has-html () + ;; Hard to tell the difference between + ;; * the variable `gnus-article-mime-handles', + ;; * the function `gnus-article-mime-handles', + ;; * the variable `gnus-article-mime-handle-alist'. + ;; + ;; Stealing debbugs.el's patch-finding logic. (seq-some (lambda (handle) - (and (listp handle) - (string= (mm-handle-media-type handle) "text/html"))) - gnus-article-mime-handles)) + (string= (mm-handle-media-type (cdr handle)) "text/html")) + (gnus-article-mime-handles))) (defun my/gnus-article-should-wrap () (save-excursion |