From 94643dfd001fa66319d857fa260d15e543ea9f5d Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Mon, 30 Oct 2023 22:40:52 +1100 Subject: [emacs] Adding traclicker and url-rewrite, as well as customizations --- emacs/.emacs.d/init/ycp-gnus.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'emacs/.emacs.d/init/ycp-gnus.el') diff --git a/emacs/.emacs.d/init/ycp-gnus.el b/emacs/.emacs.d/init/ycp-gnus.el index f344cfc..b15dac9 100644 --- a/emacs/.emacs.d/init/ycp-gnus.el +++ b/emacs/.emacs.d/init/ycp-gnus.el @@ -183,8 +183,9 @@ (setq gnus-inhibit-images t) (setq gnus-treat-display-smileys nil) (setq gnus-article-x-face-too-ugly ".*") - (my-keybind gnus-article-mode-map - "M-w" #'my-gnus-article-copy-region) + ;; shows a radio button in a multipart article to choose which part + ;; to display + (setq gnus-buttonized-mime-types '("multipart/alternative")) (setq gnus-visible-headers "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^[BGF]?Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Mail-Followup-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From:\\|^In-Reply-To")) ;;; gnus-desktop-notify @@ -233,4 +234,10 @@ (bbdb-vcard-default-keybindings) (my-setq-from-local bbdb-vcard-default-dir)) +(my-package traclicker + (:delay 60) + (my-setq-from-local tracli-senders tracli-maildirs) + (my-server-timer my-tracli-timer nil 3600 #'tracli-scan) + (setq tracli-url-rewriter 'my-url-strip-drw-tracking-params)) + (provide 'ycp-gnus) -- cgit v1.2.3