diff options
author | jao <jao@gnu.org> | 2022-03-11 21:18:32 +0000 |
---|---|---|
committer | jao <jao@gnu.org> | 2022-03-11 21:18:32 +0000 |
commit | 30d591f40939dfa2fa3a3b5aee9e666b7686b87b (patch) | |
tree | f280cac3a6553e90b9093b87d05a7ecc00e7d76e /gnus.org | |
parent | 725a83f63836cc98a64285ed6dc31da3ccc99858 (diff) | |
download | elibs-30d591f40939dfa2fa3a3b5aee9e666b7686b87b.tar.gz elibs-30d591f40939dfa2fa3a3b5aee9e666b7686b87b.tar.bz2 |
automatic notmuch tagging on gnus' moves
Diffstat (limited to 'gnus.org')
-rw-r--r-- | gnus.org | 10 |
1 files changed, 3 insertions, 7 deletions
@@ -531,16 +531,10 @@ (gnus-summary-goto-article (cdr jao-gnus--last-move) nil t))) (add-hook 'gnus-summary-article-move-hook 'jao-gnus-move-hook) - (defun jao-gnus--tag-archiving () - (when (string-match ".+:\\(.+\\)" jao-gnus--archiving-group) - (let ((tags (match-string 1 jao-gnus--archiving-group))) - (jao-notmuch-gnus-toggle-tags (split-string tags "\\."))))) - (defun jao-gnus-archive (follow) (interactive "P") (if jao-gnus--archiving-group (progn - (jao-gnus--tag-archiving) (if (or jao-gnus--archive-as-copy-p (not (gnus-check-backend-function 'request-move-article gnus-newsgroup-name))) @@ -648,7 +642,9 @@ ;; no html in From: (washing articles from arxiv feeds) and cleaning up ;; addresses (require 'shr) - (defvar jao-gnus--from-rx (concat "From: \\\"?\\( " jao-gnus--news-rx "\\)")) + (defvar jao-gnus--from-rx + (concat "From: \\\"?\\( " jao-gnus--news-rx "\\)")) + (defun jao-gnus-remove-anchors () (save-excursion (goto-char (point-min)) |