From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: Re: org-bbdb and 1. March Date: Mon, 6 Oct 2008 20:45:36 +0200 Message-ID: References: <87tzbrc5ua.fsf@sec.modprobe.de> Mime-Version: 1.0 (Apple Message framework v929.2) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Kmv5b-0001pk-Hi for emacs-orgmode@gnu.org; Mon, 06 Oct 2008 14:45:51 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Kmv5Z-0001pF-KL for emacs-orgmode@gnu.org; Mon, 06 Oct 2008 14:45:50 -0400 Received: from [199.232.76.173] (port=46101 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Kmv5Z-0001pC-9w for emacs-orgmode@gnu.org; Mon, 06 Oct 2008 14:45:49 -0400 Received: from paard.ic.uva.nl ([145.18.40.182]:57645) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1Kmv5Y-0007mQ-NL for emacs-orgmode@gnu.org; Mon, 06 Oct 2008 14:45:49 -0400 In-Reply-To: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Thomas Baumann Cc: emacs-orgmode@gnu.org Applied, thanks. - Carsten On Oct 6, 2008, at 6:45 PM, Thomas Baumann wrote: > confirmed, thanks for reporting. > Carsten surely will checkin the following patch soon. > > Thomas > > diff --git a/lisp/org-bbdb.el b/lisp/org-bbdb.el > index ad5265f..044b74b 100644 > --- a/lisp/org-bbdb.el > +++ b/lisp/org-bbdb.el > @@ -291,11 +291,16 @@ This is used by Org to re-create the > anniversary hash table." > (y (nth 2 date)) ; year > (annivs (gethash (list m d) org-bbdb-anniv-hash)) > (text ()) > - split class form rec) > + split class form rec recs) > > ;; we don't want to miss people born on Feb. 29th > - (when (and (= m 3) (= d 1) (not (calendar-leap-year-p y))) > - (setq annivs (cons annivs (gethash (list 2 29) org-bbdb-anniv- > hash)))) > + (when (and (= m 3) (= d 1) > + (not (null (gethash (list 2 29) org-bbdb-anniv-hash))) > + (not (calendar-leap-year-p y))) > + (setq recs (gethash (list 2 29) org-bbdb-anniv-hash)) > + (while (setq rec (pop recs)) > + (push rec annivs))) > + > > > > _______________________________________________ > Emacs-orgmode mailing list > Remember: use `Reply All' to send replies to the list. > Emacs-orgmode@gnu.org > http://lists.gnu.org/mailman/listinfo/emacs-orgmode