From 40ef4f9ba67a6b0466ca067d29f07c9a625929b4 Mon Sep 17 00:00:00 2001
From: Ilya Shlyakhter <ilya_shl@alum.mit.edu>
Date: Thu, 15 Mar 2012 19:05:06 -0400
Subject: [PATCH 22/22] Tags matcher: turned on org-trust-scanner-tags within
 the matcher.

* lisp/org.el (org-make-tags-matcher): Bind org-trust-scanner-tags to t
around the matcher, so that getting the ALLTAGS property does not take
so long.

TINYCHANGE
---
 lisp/org.el |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/org.el b/lisp/org.el
index ad63213..61f8716 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -13133,7 +13133,7 @@ instead of the agenda files."
 	(setq tagsmatcher nil))
       (setq tagsmatcher (if (> (length orlist) 1) (cons 'or orlist) (car orlist)))
       (setq tagsmatcher
-	    (list 'progn '(setq org-cached-props nil) tagsmatcher)))
+	    (list 'let '((org-trust-scanner-tags t)) '(setq org-cached-props nil) tagsmatcher)))
     ;; Make the todo matcher
     (if (or (not todomatch) (not (string-match "\\S-" todomatch)))
 	(setq todomatcher t)
-- 
1.7.9.3

