[elpa] externals/gnorb a1c8f0e 417/449: [gnorb] Small gnorb-org bugs

[Stefan Monnier]

branch: externals/gnorb
commit a1c8f0e009387e8feccf58d2989ae211681856be
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    [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.
---
 gnorb-org.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnorb-org.el b/gnorb-org.el
index 287345d..2fa8066 100644
--- a/gnorb-org.el
+++ b/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)