branch: master
commit 6b6a2d396ada25a5e37b7854cc11df38b5334c7d
Author: Eric Abrahamsen <e...@ericabrahamsen.net>
Commit: Eric Abrahamsen <e...@ericabrahamsen.net>
[gnorb] Small gnorb-org bugs
* packages/gnorb/gnorb-org.el (gnorb-org-handle-mail): That was
supposed to be `bbdb-mail-address'.
(gnorb-org-munge-agenda-query-string): Remove unused variable.
---
packages/gnorb/gnorb-org.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/packages/gnorb/gnorb-org.el b/packages/gnorb/gnorb-org.el
index 287345d..2fa8066 100644
--- a/packages/gnorb/gnorb-org.el
+++ b/packages/gnorb/gnorb-org.el
@@ -471,7 +471,7 @@ composed. FILE is a file to attach to the message."
(when m
(push m mails))))))
(dolist (b b-recs)
- (let ((m (ebdb-mail-address
+ (let ((m (bbdb-mail-address
(car (bbdb-message-search
(org-link-unescape b))))))
(when m
@@ -729,7 +729,7 @@ Returns a lambda form used for matching a search string
(ie, the
(let ((org--matcher-tags-todo-only nil)
(re
"^&?\\([-+:]\\)?\\({[^}]+}\\|LEVEL\\([<=>]\\{1,2\\}\\)\\([0-9]+\\)\\|\\(\\(?:[[:alnum:]_]+\\(?:\\\\-\\)*\\)+\\)\\([<>=]\\{1,2\\}\\)\\({[^}]+}\\|\"[^\"]*\"\\|-?[.0-9]+\\(?:[eE][-+]?[0-9]+\\)?\\)\\|[[:alnum:]_@#%]+\\)")
(or-terms (org-split-string str "|"))
- term rest out-or acc tag-clause)
+ term rest out-or acc)
(while (setq term (pop or-terms))
(setq acc nil)
(while (string-match re term)
