From mboxrd@z Thu Jan 1 00:00:00 1970 From: Thomas Baumann Subject: Re: org-bbdb and 1. March Date: Mon, 06 Oct 2008 18:45:43 +0200 Message-ID: References: <87tzbrc5ua.fsf@sec.modprobe.de> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1KmtDe-0006c5-0b for emacs-orgmode@gnu.org; Mon, 06 Oct 2008 12:46:02 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1KmtDc-0006bj-4Y for emacs-orgmode@gnu.org; Mon, 06 Oct 2008 12:46:01 -0400 Received: from [199.232.76.173] (port=55831 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1KmtDb-0006bd-Tn for emacs-orgmode@gnu.org; Mon, 06 Oct 2008 12:45:59 -0400 Received: from main.gmane.org ([80.91.229.2]:57248 helo=ciao.gmane.org) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1KmtDb-0005lY-IS for emacs-orgmode@gnu.org; Mon, 06 Oct 2008 12:45:59 -0400 Received: from list by ciao.gmane.org with local (Exim 4.43) id 1KmtDU-0008DW-Ao for emacs-orgmode@gnu.org; Mon, 06 Oct 2008 16:45:52 +0000 Received: from p549663f5.dip.t-dialin.net ([84.150.99.245]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 06 Oct 2008 16:45:52 +0000 Received: from dtbaumann by p549663f5.dip.t-dialin.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 06 Oct 2008 16:45:52 +0000 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: emacs-orgmode@gnu.org 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))) +