From 81d435f67abec34fc67e7ee2b2d5afa45294cf90 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Tue, 3 Sep 2013 10:46:14 -0400
Subject: [PATCH] Remove priority tags from string.

---
 org-mode-appt-check.plx | 1 +
 1 file changed, 1 insertion(+)

diff --git a/org-mode-appt-check.plx b/org-mode-appt-check.plx
index 8b701bb..5acd1e3 100755
--- a/org-mode-appt-check.plx
+++ b/org-mode-appt-check.plx
@@ -56,6 +56,7 @@ while (my $line = <ORG_MODE_AGENDA>) {
     my($source, $startHour, $startMin, $endHour, $endMin, $rest) =
       ($1, $2, $3, $4, $5, $6);
     next if $rest =~ /Sched.*\d+x\s*:/;  # Skip overdue TODOs, because I have lot.
+    $rest =~ s/\[\s*\#\s*\S+\s*\]//g;   # Remove priority tags
     my $type;
     if ($rest =~ s/^\s*Scheduled?\s*:\s*(WAITING|TODO|APPT|DELEGATED|DONE|DEFFERRED|CANCELLED|STARTED)\s*//i) {
       $type = $1;