summaryrefslogtreecommitdiffhomepage
path: root/lib/net
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-08-29 19:43:59 +0100
committerjao <jao@gnu.org>2021-08-29 19:43:59 +0100
commit6be2c384bc0f0ab1ab47dfc26d0e73a1f94297db (patch)
tree55a3e0432d34bc35b71906b853d8b27669e863e8 /lib/net
parentf79918fc8fcc2ae811af82b7f21875bc05df1dfa (diff)
downloadelibs-6be2c384bc0f0ab1ab47dfc26d0e73a1f94297db.tar.gz
elibs-6be2c384bc0f0ab1ab47dfc26d0e73a1f94297db.tar.bz2
jao-notmuch: wee improvements
Diffstat (limited to 'lib/net')
-rw-r--r--lib/net/jao-notmuch.el6
1 files changed, 4 insertions, 2 deletions
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)