1 files changed, 6 insertions, 0 deletions
diff --git a/gnus.org b/gnus.org
index 558b98e..c6320c8 100644
--- a/gnus.org
+++ b/gnus.org
@@ -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)))