Re: org-bbdb-anniversaries gives error 'bad sexp'

[Matt Lundin <mdl@imapmail.org>]

Philipp Haselwarter <philipp.haselwarter@gmx.de> writes:

> On 2011-05-16 14:08 UT, Matt Lundin <mdl@imapmail.org> wrote:
>
> ML> I have anniversaries working in my own setup, so between the two
> ML> sets of modifications, I should be able to provide a full set of
> ML> fixes.More soon...
>
> Would you mind sharing the working bits of your setup?
> I just tried %%(org-bbdb-anniversaries) and got a
> Bad sexp at line […]
>
> thanks for the effort!

Certainly. These are the temporary workarounds I'm using to get org-bbdb
to work with the new bbdb:

--8<---------------cut here---------------start------------->8---
(defalias 'bbdb-company 'bbdb-search-organization)
(defalias 'bbdb-name 'bbdb-search-name)

(defun bbdb-record-getprop (record label)
  (and (eq label 'company)
       (setq label 'organization))
  (if (memq label '(name degree organization address phone mail aka))
      (funcall
       (intern
	(concat "bbdb-record-" (symbol-name label)))
       record)
    (bbdb-record-note record label)))

(defadvice bbdb-split (around my-bbdb-split activate)
  (when (or (string= string "\n") (string= string "-"))
    (let ((sep string))
      (setq string separator
	    separator sep)
      ad-do-it)))
--8<---------------cut here---------------end--------------->8---

Other work has prevented me from updating org-bbdb.el yet, but I will
get to it as soon as I can.

Best,
Matt