summaryrefslogtreecommitdiffhomepage
path: root/gnus.org
diff options
context:
space:
mode:
Diffstat (limited to 'gnus.org')
-rw-r--r--gnus.org10
1 files changed, 3 insertions, 7 deletions
diff --git a/gnus.org b/gnus.org
index a907ccf..2fd5d99 100644
--- a/gnus.org
+++ b/gnus.org
@@ -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))