[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] Re: org-bbdb and 1. March
From: |
Thomas Baumann |
Subject: |
[Orgmode] Re: org-bbdb and 1. March |
Date: |
Mon, 06 Oct 2008 18:45:43 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.0.60 (gnu/linux) |
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)))
+