From 6be2c384bc0f0ab1ab47dfc26d0e73a1f94297db Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 29 Aug 2021 19:43:59 +0100 Subject: jao-notmuch: wee improvements --- lib/net/jao-notmuch.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'lib/net') diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el index 854d458..8ed14dc 100644 --- a/lib/net/jao-notmuch.el +++ b/lib/net/jao-notmuch.el @@ -98,7 +98,7 @@ (while (setq pos (next-single-property-change pos 'w3m-href-anchor)) (when-let ((url (get-text-property pos 'w3m-href-anchor))) (when (stringp url) (cl-pushnew url res :test #'string=)))) - res))) + (seq-uniq res #'string=)))) (defun jao-notmuch-browse-urls (&optional external) (interactive "P") @@ -169,7 +169,9 @@ (condition-case nil (mm-inline-text-html-render-with-w3m handle) (error (delete-region (point) (point-max)) - (mm-shr handle))))) + (let ((shr-use-fonts nil) + (shr-use-colors nil)) + (mm-shr handle)))))) (setq mm-text-html-renderer #'jao-w3m-gnus-html-renderer) -- cgit v1.2.3