diff options
author | jao <jao@gnu.org> | 2022-03-03 22:15:21 +0000 |
---|---|---|
committer | jao <jao@gnu.org> | 2022-03-03 22:17:26 +0000 |
commit | a2a9bb379e97085249287b29560f789c7ccc63a5 (patch) | |
tree | 28221c4d61bf38091552c8bb5484e61faa3c5789 /gnus.org | |
parent | 31c1da1f0722ab0b85d022062f8e5eb46564f920 (diff) | |
download | elibs-a2a9bb379e97085249287b29560f789c7ccc63a5.tar.gz elibs-a2a9bb379e97085249287b29560f789c7ccc63a5.tar.bz2 |
more gnus and notmuch tagging integration
Diffstat (limited to 'gnus.org')
-rw-r--r-- | gnus.org | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -530,10 +530,16 @@ (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))) |