summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2020-05-20 22:47:42 -0400
committerKyle Meyer <kyle@kyleam.com>2020-05-20 22:47:42 -0400
commit5e2490bdf29a1eeff91b631425c38309cf368690 (patch)
tree231442a3657f7540027b8f0268316b52c6ee10c9
parent7684b59c78cbd6d1deb92f94bb96fc18c1eeb95a (diff)
downloadorg-mode-5e2490bdf29a1eeff91b631425c38309cf368690.tar.gz
agenda: Respect FILETAGS when skipping archive entries
* lisp/org-agenda.el (org-agenda-skip): Consider skipping all entries in a file if org-archive-tag is set via FILETAGS. Reported-by: George Sokolsky <sokolgeo@posteo.net> <87pnb4i217.fsf@posteo.net>
-rw-r--r--lisp/org-agenda.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 1585607..5372c7a 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -4090,8 +4090,10 @@ continue from there."
(when (or
(save-excursion (goto-char p) (looking-at comment-start-skip))
(and org-agenda-skip-archived-trees (not org-agenda-archives-mode)
- (get-text-property p :org-archived)
- (org-end-of-subtree t))
+ (or (and (get-text-property p :org-archived)
+ (org-end-of-subtree t))
+ (and (member org-archive-tag org-file-tags)
+ (goto-char (point-max)))))
(and org-agenda-skip-comment-trees
(get-text-property p :org-comment)
(org-end-of-subtree t))