blob: 2ee5a2eda51fb8a43e17883a5c50394a924c66b9 (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 17 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61	;ELC.....;;;.Compiled.;;;.in.Ema
0020	63 73 20 76 65 72 73 69 6f 6e 20 32 35 2e 33 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f	cs.version.25.3.1.;;;.with.all.o
0040	70 74 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 75 73 65	ptimizations...;;;.This.file.use
0060	73 20 64 79 6e 61 6d 69 63 20 64 6f 63 73 74 72 69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65	s.dynamic.docstrings,.first.adde
0080	64 20 69 6e 20 45 6d 61 63 73 20 31 39 2e 32 39 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65	d.in.Emacs.19.29...;;;.This.file
00a0	20 64 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49	.does.not.contain.utf-8.non-ASCI
00c0	49 20 63 68 61 72 61 63 74 65 72 73 2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 20 62 65 20	I.characters,.;;;.and.so.can.be.
00e0	6c 6f 61 64 65 64 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 20 65 61 72 6c 69 65 72	loaded.in.Emacs.versions.earlier
0100	20 74 68 61 6e 20 32 33 2e 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	.than.23...;;;;;;;;;;;;;;;;;;;;;
0120	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0140	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;.;;;;;;;;;;;;;;;;;
0160	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0180	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 0a 28 62 79 74 65 2d 63 6f 64 65 20	;;;;;;;;;;;;;;;;;;...(byte-code.
01a0	22 5c 33 30 30 5c 33 30 31 21 5c 32 31 30 5c 33 30 30 5c 33 30 32 21 5c 32 31 30 5c 33 30 33 5c	"\300\301!\210\300\302!\210\303\
01c0	33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 25 5c 32 31 30 5c 33 31 31 5c 33 31 32	304\305\306\307\310%\210\311\312
01e0	5c 33 31 33 5c 33 31 34 5c 33 31 35 44 44 5c 33 31 36 5c 33 31 37 5c 33 32 30 5c 33 30 37 5c 33	\313\314\315DD\316\317\320\307\3
0200	30 34 5c 33 32 31 5c 33 32 32 26 09 5c 32 31 30 5c 33 31 31 5c 33 32 33 5c 33 31 33 5c 33 31 34	04\321\322&.\210\311\323\313\314
0220	5c 33 32 34 44 44 5c 33 32 35 5c 33 30 37 5c 33 30 34 5c 33 32 36 5c 33 32 37 5c 33 33 30 5c 33	\324DD\325\307\304\326\327\330\3
0240	33 31 5c 33 31 37 5c 33 33 32 5c 33 32 31 5c 33 32 32 5c 33 33 33 5c 33 33 34 26 0f 5c 32 31 30	31\317\332\321\322\333\334&.\210
0260	5c 33 31 31 5c 33 33 35 5c 33 31 33 5c 33 31 34 5c 33 33 36 44 44 5c 33 33 37 5c 33 31 37 5c 33	\311\335\313\314\336DD\337\317\3
0280	34 30 5c 33 30 37 5c 33 30 34 5c 33 32 31 5c 33 32 32 26 09 5c 32 31 30 5c 33 31 31 5c 33 34 31	40\307\304\321\322&.\210\311\341
02a0	5c 33 31 33 5c 33 31 34 5c 33 34 32 44 44 5c 33 34 33 5c 33 31 37 5c 33 34 34 5c 33 30 37 5c 33	\313\314\342DD\343\317\344\307\3
02c0	30 34 5c 33 32 31 5c 33 32 32 26 09 5c 32 31 30 5c 33 31 31 5c 33 34 35 5c 33 31 33 5c 33 31 34	04\321\322&.\210\311\345\313\314
02e0	5c 33 34 36 44 44 5c 33 34 37 5c 33 31 37 5c 33 31 34 5c 33 30 37 5c 33 30 34 5c 33 32 31 5c 33	\346DD\347\317\314\307\304\321\3
0300	32 32 26 09 5c 32 31 30 5c 33 35 30 5c 33 35 31 5c 33 35 32 5c 33 35 33 5c 33 35 34 5c 33 35 35	22&.\210\350\351\352\353\354\355
0320	5c 33 35 36 5c 33 35 37 5c 33 36 30 5c 33 36 31 26 09 5c 32 30 37 22 20 5b 72 65 71 75 69 72 65	\356\357\360\361&.\207".[require
0340	20 6f 72 67 20 63 6c 2d 6c 69 62 20 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 67 72 6f 75 70	.org.cl-lib.custom-declare-group
0360	20 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 65 72 73 61 72 69 65 73 20 6e 69 6c 20 22 43 75 73	.org-bbdb-anniversaries.nil."Cus
0380	74 6f 6d 69 7a 61 74 69 6f 6e 73 20 66 6f 72 20 69 6e 63 6c 75 64 69 6e 67 20 61 6e 6e 69 76 65	tomizations.for.including.annive
03a0	72 73 61 72 69 65 73 20 66 72 6f 6d 20 42 42 44 42 20 69 6e 74 6f 20 41 67 65 6e 64 61 2e 22 20	rsaries.from.BBDB.into.Agenda.".
03c0	3a 67 72 6f 75 70 20 6f 72 67 2d 62 62 64 62 20 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76	:group.org-bbdb.custom-declare-v
03e0	61 72 69 61 62 6c 65 20 6f 72 67 2d 62 62 64 62 2d 64 65 66 61 75 6c 74 2d 61 6e 6e 69 76 65 72	ariable.org-bbdb-default-anniver
0400	73 61 72 79 2d 66 6f 72 6d 61 74 20 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 23 5b 30	sary-format.funcall.function.#[0
0420	20 22 5c 33 30 30 5c 32 30 37 22 20 5b 23 31 3d 22 62 69 72 74 68 64 61 79 22 5d 20 31 20 23 31	."\300\207".[#1="birthday"].1.#1
0440	23 5d 20 22 44 65 66 61 75 6c 74 20 61 6e 6e 69 76 65 72 73 61 72 79 20 63 6c 61 73 73 2e 22 20	#]."Default.anniversary.class.".
0460	3a 74 79 70 65 20 73 74 72 69 6e 67 20 3a 72 65 71 75 69 72 65 20 62 62 64 62 20 6f 72 67 2d 62	:type.string.:require.bbdb.org-b
0480	62 64 62 2d 67 65 6e 65 72 61 6c 2d 61 6e 6e 69 76 65 72 73 61 72 79 2d 64 65 73 63 72 69 70 74	bdb-general-anniversary-descript
04a0	69 6f 6e 2d 61 66 74 65 72 20 23 5b 30 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 37 5d 20 31 5d 20	ion-after.#[0."\300\207".[7].1].
04c0	22 57 68 65 6e 20 74 6f 20 73 77 69 74 63 68 20 61 6e 6e 69 76 65 72 73 61 72 79 20 64 65 73 63	"When.to.switch.anniversary.desc
04e0	72 69 70 74 69 6f 6e 73 20 74 6f 20 61 20 6d 6f 72 65 20 67 65 6e 65 72 61 6c 20 66 6f 72 6d 61	riptions.to.a.more.general.forma
0500	74 2e 5c 6e 5c 6e 41 6e 6e 69 76 65 72 73 61 72 79 20 64 65 73 63 72 69 70 74 69 6f 6e 73 20 69	t.\n\nAnniversary.descriptions.i
0520	6e 63 6c 75 64 65 20 74 68 65 20 70 6f 69 6e 74 20 69 6e 20 74 69 6d 65 2c 20 77 68 65 6e 20 74	nclude.the.point.in.time,.when.t
0540	68 65 5c 6e 61 6e 6e 69 76 65 72 73 61 72 79 20 61 70 70 65 61 72 73 2e 20 20 54 68 69 73 20 69	he\nanniversary.appears...This.i
0560	73 2c 20 69 6e 20 69 74 73 20 6d 6f 73 74 20 67 65 6e 65 72 61 6c 20 66 6f 72 6d 2c 20 6a 75 73	s,.in.its.most.general.form,.jus
0580	74 20 74 68 65 5c 6e 64 61 74 65 20 6f 66 20 74 68 65 20 61 6e 6e 69 76 65 72 73 61 72 79 2e 20	t.the\ndate.of.the.anniversary..
05a0	20 4f 72 20 6d 6f 72 65 20 73 70 65 63 69 66 69 63 20 74 65 72 6d 73 2c 20 6c 69 6b 65 20 5c 22	.Or.more.specific.terms,.like.\"
05c0	74 6f 64 61 79 5c 22 2c 5c 6e 5c 22 74 6f 6d 6f 72 72 6f 77 5c 22 20 6f 72 20 5c 22 69 6e 20 6e	today\",\n\"tomorrow\".or.\"in.n
05e0	20 64 61 79 73 5c 22 20 61 72 65 20 75 73 65 64 20 74 6f 20 64 65 73 63 72 69 62 65 20 74 68 65	.days\".are.used.to.describe.the
0600	20 74 69 6d 65 20 73 70 61 6e 2e 5c 6e 5c 6e 49 66 20 74 68 65 20 61 6e 6e 69 76 65 72 73 61 72	.time.span.\n\nIf.the.anniversar
0620	79 20 68 61 70 70 65 6e 73 20 69 6e 20 6c 65 73 73 20 74 68 61 6e 20 74 68 61 74 20 6e 75 6d 62	y.happens.in.less.than.that.numb
0640	65 72 20 6f 66 20 64 61 79 73 2c 20 74 68 65 5c 6e 73 70 65 63 69 66 69 63 20 64 65 73 63 72 69	er.of.days,.the\nspecific.descri
0660	70 74 69 6f 6e 20 69 73 20 75 73 65 64 2e 20 20 4f 74 68 65 72 77 69 73 65 2c 20 74 68 65 20 67	ption.is.used...Otherwise,.the.g
0680	65 6e 65 72 61 6c 20 6f 6e 65 20 69 73 5c 6e 75 73 65 64 2e 22 20 3a 76 65 72 73 69 6f 6e 20 22	eneral.one.is\nused.".:version."
06a0	32 36 2e 31 22 20 3a 70 61 63 6b 61 67 65 2d 76 65 72 73 69 6f 6e 20 28 4f 72 67 20 2e 20 22 39	26.1".:package-version.(Org..."9
06c0	2e 31 22 29 20 69 6e 74 65 67 65 72 20 3a 73 61 66 65 20 69 6e 74 65 67 65 72 70 20 6f 72 67 2d	.1").integer.:safe.integerp.org-
06e0	62 62 64 62 2d 61 6e 6e 69 76 65 72 73 61 72 79 2d 66 6f 72 6d 61 74 2d 61 6c 69 73 74 20 23 5b	bbdb-anniversary-format-alist.#[
0700	30 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 28 28 22 62 69 72 74 68 64 61 79 22 20 6c 61 6d 62 64	0."\300\207".[(("birthday".lambd
0720	61 20 28 6e 61 6d 65 20 79 65 61 72 73 20 73 75 66 66 69 78 29 20 28 63 6f 6e 63 61 74 20 22 42	a.(name.years.suffix).(concat."B
0740	69 72 74 68 64 61 79 3a 20 5b 5b 62 62 64 62 3a 22 20 6e 61 6d 65 20 22 5d 5b 22 20 6e 61 6d 65	irthday:.[[bbdb:".name."][".name
0760	20 22 20 28 22 20 28 66 6f 72 6d 61 74 20 22 25 73 22 20 79 65 61 72 73 29 20 73 75 66 66 69 78	.".(".(format."%s".years).suffix
0780	20 22 29 5d 5d 22 29 29 20 28 22 77 65 64 64 69 6e 67 22 20 6c 61 6d 62 64 61 20 28 6e 61 6d 65	.")]]")).("wedding".lambda.(name
07a0	20 79 65 61 72 73 20 73 75 66 66 69 78 29 20 28 63 6f 6e 63 61 74 20 22 5b 5b 62 62 64 62 3a 22	.years.suffix).(concat."[[bbdb:"
07c0	20 6e 61 6d 65 20 22 5d 5b 22 20 6e 61 6d 65 20 22 27 73 20 22 20 28 66 6f 72 6d 61 74 20 22 25	.name."][".name."'s.".(format."%
07e0	73 22 20 79 65 61 72 73 29 20 73 75 66 66 69 78 20 22 20 77 65 64 64 69 6e 67 20 61 6e 6e 69 76	s".years).suffix.".wedding.anniv
0800	65 72 73 61 72 79 5d 5d 22 29 29 29 5d 20 31 5d 20 22 48 6f 77 20 64 69 66 66 65 72 65 6e 74 20	ersary]]")))].1]."How.different.
0820	74 79 70 65 73 20 6f 66 20 61 6e 6e 69 76 65 72 73 61 72 69 65 73 20 73 68 6f 75 6c 64 20 62 65	types.of.anniversaries.should.be
0840	20 66 6f 72 6d 61 74 74 65 64 2e 5c 6e 41 6e 20 61 6c 69 73 74 20 6f 66 20 65 6c 65 6d 65 6e 74	.formatted.\nAn.alist.of.element
0860	73 20 28 53 54 52 49 4e 47 20 2e 20 46 4f 52 4d 41 54 29 20 77 68 65 72 65 20 53 54 52 49 4e 47	s.(STRING...FORMAT).where.STRING
0880	20 69 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 6e 5c 6e 61 6e 6e 69 76 65 72 73 61 72 79 20	.is.the.name.of.an\nanniversary.
08a0	63 6c 61 73 73 20 61 6e 64 20 66 6f 72 6d 61 74 20 69 73 20 65 69 74 68 65 72 3a 5c 6e 31 29 20	class.and.format.is.either:\n1).
08c0	41 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 77 69 74 68 20 74 68 65 20 66 6f 6c 6c 6f 77 69	A.format.string.with.the.followi
08e0	6e 67 20 73 75 62 73 74 69 74 75 74 69 6f 6e 73 20 28 69 6e 20 6f 72 64 65 72 29 3a 5c 6e 20 20	ng.substitutions.(in.order):\n..
0900	20 20 2d 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 72 65 63 6f 72 64 20 63 6f 6e 74 61	..-.the.name.of.the.record.conta
0920	69 6e 69 6e 67 20 74 68 69 73 20 61 6e 6e 69 76 65 72 73 61 72 79 5c 6e 20 20 20 20 2d 20 74 68	ining.this.anniversary\n....-.th
0940	65 20 6e 75 6d 62 65 72 20 6f 66 20 79 65 61 72 73 5c 6e 20 20 20 20 2d 20 61 6e 20 6f 72 64 69	e.number.of.years\n....-.an.ordi
0960	6e 61 6c 20 73 75 66 66 69 78 20 28 73 74 2c 20 6e 64 2c 20 72 64 2c 20 74 68 29 20 66 6f 72 20	nal.suffix.(st,.nd,.rd,.th).for.
0980	74 68 65 20 79 65 61 72 5c 6e 5c 6e 32 29 20 41 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 62 65 20	the.year\n\n2).A.function.to.be.
09a0	63 61 6c 6c 65 64 20 77 69 74 68 20 74 68 72 65 65 20 61 72 67 75 6d 65 6e 74 73 3a 20 4e 41 4d	called.with.three.arguments:.NAM
09c0	45 20 59 45 41 52 53 20 53 55 46 46 49 58 5c 6e 20 20 20 28 73 74 72 69 6e 67 20 69 6e 74 20 73	E.YEARS.SUFFIX\n...(string.int.s
09e0	74 72 69 6e 67 29 20 72 65 74 75 72 6e 69 6e 67 20 61 20 73 74 72 69 6e 67 20 66 6f 72 20 74 68	tring).returning.a.string.for.th
0a00	65 20 64 69 61 72 79 20 6f 72 20 6e 69 6c 2e 5c 6e 5c 6e 33 29 20 41 6e 20 45 6d 61 63 73 20 4c	e.diary.or.nil.\n\n3).An.Emacs.L
0a20	69 73 70 20 66 6f 72 6d 20 74 68 61 74 20 73 68 6f 75 6c 64 20 65 76 61 6c 75 61 74 65 20 74 6f	isp.form.that.should.evaluate.to
0a40	20 61 20 73 74 72 69 6e 67 20 28 6f 72 20 6e 69 6c 29 20 69 6e 20 74 68 65 5c 6e 20 20 20 73 63	.a.string.(or.nil).in.the\n...sc
0a60	6f 70 65 20 6f 66 20 76 61 72 69 61 62 6c 65 73 20 4e 41 4d 45 2c 20 59 45 41 52 53 20 61 6e 64	ope.of.variables.NAME,.YEARS.and
0a80	20 53 55 46 46 49 58 20 28 61 6d 6f 6e 67 20 6f 74 68 65 72 73 29 2e 22 20 28 61 6c 69 73 74 20	.SUFFIX.(among.others).".(alist.
0aa0	3a 6b 65 79 2d 74 79 70 65 20 28 73 74 72 69 6e 67 20 3a 74 61 67 20 22 43 6c 61 73 73 22 29 20	:key-type.(string.:tag."Class").
0ac0	3a 76 61 6c 75 65 2d 74 79 70 65 20 28 66 75 6e 63 74 69 6f 6e 20 3a 74 61 67 20 22 46 75 6e 63	:value-type.(function.:tag."Func
0ae0	74 69 6f 6e 22 29 29 20 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 65 72 73 61 72 79 2d 66 69 65	tion")).org-bbdb-anniversary-fie
0b00	6c 64 20 23 5b 30 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 61 6e 6e 69 76 65 72 73 61 72 79 5d 20	ld.#[0."\300\207".[anniversary].
0b20	31 5d 20 22 54 68 65 20 42 42 44 42 20 66 69 65 6c 64 20 77 68 69 63 68 20 63 6f 6e 74 61 69 6e	1]."The.BBDB.field.which.contain
0b40	73 20 61 6e 6e 69 76 65 72 73 61 72 69 65 73 2e 5c 6e 54 68 65 20 61 6e 6e 69 76 65 72 73 61 72	s.anniversaries.\nThe.anniversar
0b60	69 65 73 20 61 72 65 20 73 74 6f 72 65 64 20 69 6e 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20	ies.are.stored.in.the.following.
0b80	66 6f 72 6d 61 74 5c 6e 5c 6e 59 59 59 59 2d 4d 4d 2d 44 44 20 43 6c 61 73 73 2d 6f 72 2d 46 6f	format\n\nYYYY-MM-DD.Class-or-Fo
0ba0	72 6d 61 74 2d 53 74 72 69 6e 67 5c 6e 5c 6e 77 68 65 72 65 20 63 6c 61 73 73 20 69 73 20 6f 6e	rmat-String\n\nwhere.class.is.on
0bc0	65 20 6f 66 20 74 68 65 20 63 75 73 74 6f 6d 69 7a 65 64 20 63 6c 61 73 73 65 73 20 66 6f 72 20	e.of.the.customized.classes.for.
0be0	61 6e 6e 69 76 65 72 73 61 72 69 65 73 3b 5c 6e 62 69 72 74 68 64 61 79 20 61 6e 64 20 77 65 64	anniversaries;\nbirthday.and.wed
0c00	64 69 6e 67 20 61 72 65 20 70 72 65 64 65 66 69 6e 65 64 2e 20 20 46 6f 72 6d 61 74 2d 53 74 72	ding.are.predefined...Format-Str
0c20	69 6e 67 20 63 61 6e 20 74 61 6b 65 20 74 68 72 65 65 5c 6e 73 75 62 73 74 69 74 75 74 69 6f 6e	ing.can.take.three\nsubstitution
0c40	73 20 31 29 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 72 65 63 6f 72 64 20 63 6f 6e 74	s.1).the.name.of.the.record.cont
0c60	61 69 6e 69 6e 67 20 74 68 69 73 5c 6e 61 6e 6e 69 76 65 72 73 61 72 79 2c 20 32 29 20 74 68 65	aining.this\nanniversary,.2).the
0c80	20 6e 75 6d 62 65 72 20 6f 66 20 79 65 61 72 73 2c 20 61 6e 64 20 33 29 20 61 6e 20 6f 72 64 69	.number.of.years,.and.3).an.ordi
0ca0	6e 61 6c 20 73 75 66 66 69 78 20 66 6f 72 5c 6e 74 68 65 20 79 65 61 72 2e 5c 6e 5c 6e 4d 75 6c	nal.suffix.for\nthe.year.\n\nMul
0cc0	74 69 70 6c 65 20 61 6e 6e 69 76 65 72 73 61 72 69 65 73 20 63 61 6e 20 62 65 20 73 65 70 61 72	tiple.anniversaries.can.be.separ
0ce0	61 74 65 64 20 62 79 20 5c 5c 6e 2e 22 20 73 79 6d 62 6f 6c 20 6f 72 67 2d 62 62 64 62 2d 65 78	ated.by.\\n.".symbol.org-bbdb-ex
0d00	74 72 61 63 74 2d 64 61 74 65 2d 66 75 6e 20 23 5b 30 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 6f	tract-date-fun.#[0."\300\207".[o
0d20	72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 2d 65 78 74 72 61 63 74 2d 64 61 74 65 5d 20 31 5d 20 22	rg-bbdb-anniv-extract-date].1]."
0d40	48 6f 77 20 74 6f 20 72 65 74 72 69 65 76 65 20 60 6d 6f 6e 74 68 20 64 61 74 65 20 79 65 61 72	How.to.retrieve.`month.date.year
0d60	27 20 66 72 6f 6d 20 74 68 65 20 61 6e 6e 69 76 65 72 73 61 72 79 20 66 69 65 6c 64 2e 5c 6e 5c	'.from.the.anniversary.field.\n\
0d80	6e 43 75 73 74 6f 6d 69 7a 65 20 69 66 20 79 6f 75 20 68 61 76 65 20 61 6c 72 65 61 64 79 20 66	nCustomize.if.you.have.already.f
0da0	69 6c 6c 65 64 20 79 6f 75 72 20 42 42 44 42 20 77 69 74 68 20 64 61 74 65 73 5c 6e 64 69 66 66	illed.your.BBDB.with.dates\ndiff
0dc0	65 72 65 6e 74 20 66 72 6f 6d 20 59 59 59 59 2d 4d 4d 2d 44 44 2e 20 20 54 68 65 20 66 75 6e 63	erent.from.YYYY-MM-DD...The.func
0de0	74 69 6f 6e 20 6d 75 73 74 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 20 28 6d 6f 6e 74 68 5c 6e	tion.must.return.a.list.(month\n
0e00	64 61 74 65 20 79 65 61 72 29 2e 22 20 6f 72 67 2d 6c 69 6e 6b 2d 73 65 74 2d 70 61 72 61 6d 65	date.year).".org-link-set-parame
0e20	74 65 72 73 20 22 62 62 64 62 22 20 3a 66 6f 6c 6c 6f 77 20 6f 72 67 2d 62 62 64 62 2d 6f 70 65	ters."bbdb".:follow.org-bbdb-ope
0e40	6e 20 3a 65 78 70 6f 72 74 20 6f 72 67 2d 62 62 64 62 2d 65 78 70 6f 72 74 20 3a 63 6f 6d 70 6c	n.:export.org-bbdb-export.:compl
0e60	65 74 65 20 6f 72 67 2d 62 62 64 62 2d 63 6f 6d 70 6c 65 74 65 2d 6c 69 6e 6b 20 3a 73 74 6f 72	ete.org-bbdb-complete-link.:stor
0e80	65 20 6f 72 67 2d 62 62 64 62 2d 73 74 6f 72 65 2d 6c 69 6e 6b 5d 20 31 36 29 0a 23 40 34 30 20	e.org-bbdb-store-link].16).#@40.
0ea0	53 74 6f 72 65 20 61 20 6c 69 6e 6b 20 74 6f 20 61 20 42 42 44 42 20 64 61 74 61 62 61 73 65 20	Store.a.link.to.a.BBDB.database.
0ec0	65 6e 74 72 79 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 62 64 62 2d 73 74 6f 72	entry...(defalias.'org-bbdb-stor
0ee0	65 2d 6c 69 6e 6b 20 23 5b 30 20 22 08 5c 33 30 31 3d 5c 32 30 35 34 00 5c 33 30 32 20 5c 33 30	e-link.#[0.".\301=\2054.\302.\30
0f00	33 01 21 5c 33 30 34 5c 33 30 35 21 5c 32 30 33 18 00 5c 33 30 35 02 5c 33 30 36 5c 22 5c 32 30	3.!\304\305!\203..\305.\306\"\20
0f20	32 1d 00 5c 33 30 37 02 5c 33 31 30 5c 22 40 5c 33 31 31 02 50 5c 33 31 32 5c 33 31 33 5c 33 31	2..\307.\310\"@\311.P\312\313\31
0f40	34 5c 33 31 35 06 06 5c 33 31 36 06 07 5c 33 31 37 06 08 5c 33 32 30 06 5c 66 26 5c 6e 5c 32 31	4\315..\316..\317..\320.\f&\n\21
0f60	30 5c 32 36 36 5c 32 30 33 5c 32 30 37 22 20 5b 6d 61 6a 6f 72 2d 6d 6f 64 65 20 62 62 64 62 2d	0\266\203\207".[major-mode.bbdb-
0f80	6d 6f 64 65 20 62 62 64 62 2d 63 75 72 72 65 6e 74 2d 72 65 63 6f 72 64 20 62 62 64 62 2d 72 65	mode.bbdb-current-record.bbdb-re
0fa0	63 6f 72 64 2d 6e 61 6d 65 20 66 62 6f 75 6e 64 70 20 62 62 64 62 2d 72 65 63 6f 72 64 2d 67 65	cord-name.fboundp.bbdb-record-ge
0fc0	74 70 72 6f 70 20 63 6f 6d 70 61 6e 79 20 62 62 64 62 2d 72 65 63 6f 72 64 2d 66 69 65 6c 64 20	tprop.company.bbdb-record-field.
0fe0	6f 72 67 61 6e 69 7a 61 74 69 6f 6e 20 22 62 62 64 62 3a 22 20 6f 72 67 2d 73 74 6f 72 65 2d 6c	organization."bbdb:".org-store-l
1000	69 6e 6b 2d 70 72 6f 70 73 20 3a 74 79 70 65 20 22 62 62 64 62 22 20 3a 6e 61 6d 65 20 3a 63 6f	ink-props.:type."bbdb".:name.:co
1020	6d 70 61 6e 79 20 3a 6c 69 6e 6b 20 3a 64 65 73 63 72 69 70 74 69 6f 6e 5d 20 31 35 20 28 23 24	mpany.:link.:description].15.(#$
1040	20 2e 20 33 37 34 34 29 5d 29 0a 23 40 32 30 36 20 43 72 65 61 74 65 20 74 68 65 20 65 78 70 6f	...3744)]).#@206.Create.the.expo
1060	72 74 20 76 65 72 73 69 6f 6e 20 6f 66 20 61 20 42 42 44 42 20 6c 69 6e 6b 20 73 70 65 63 69 66	rt.version.of.a.BBDB.link.specif
1080	69 65 64 20 62 79 20 50 41 54 48 20 6f 72 20 44 45 53 43 2e 0a 49 66 20 65 78 70 6f 72 74 69 6e	ied.by.PATH.or.DESC..If.exportin
10a0	67 20 74 6f 20 65 69 74 68 65 72 20 48 54 4d 4c 20 6f 72 20 4c 61 54 65 58 20 46 4f 52 4d 41 54	g.to.either.HTML.or.LaTeX.FORMAT
10c0	20 74 68 65 20 6c 69 6e 6b 20 77 69 6c 6c 20 62 65 0a 69 74 61 6c 69 63 69 7a 65 64 2c 20 69 6e	.the.link.will.be.italicized,.in
10e0	20 61 6c 6c 20 6f 74 68 65 72 20 63 61 73 65 73 20 69 74 20 69 73 20 6c 65 66 74 20 75 6e 63 68	.all.other.cases.it.is.left.unch
1100	61 6e 67 65 64 2e 0a 0a 28 66 6e 20 50 41 54 48 20 44 45 53 43 20 46 4f 52 4d 41 54 29 1f 0a 28	anged...(fn.PATH.DESC.FORMAT)..(
1120	64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 62 64 62 2d 65 78 70 6f 72 74 20 23 5b 37 37 31 20	defalias.'org-bbdb-export.#[771.
1140	22 01 5c 33 30 30 5c 33 30 31 05 5c 22 5c 32 33 30 5c 32 30 33 5c 66 00 02 5c 32 36 32 02 5c 32	".\300\301.\"\230\203\f..\262.\2
1160	31 31 5c 33 30 32 3d 5c 32 30 33 17 00 5c 33 30 30 5c 33 30 33 03 5c 22 5c 32 30 37 5c 32 31 31	11\302=\203..\300\303.\"\207\211
1180	5c 33 30 34 3d 5c 32 30 33 5c 22 00 5c 33 30 30 5c 33 30 35 03 5c 22 5c 32 30 37 5c 32 31 31 5c	\304=\203\".\300\305.\"\207\211\
11a0	33 30 36 3d 5c 32 30 33 2d 00 5c 33 30 30 5c 33 30 37 03 5c 22 5c 32 30 37 01 5c 32 30 37 22 20	306=\203-.\300\307.\"\207.\207".
11c0	5b 66 6f 72 6d 61 74 20 22 62 62 64 62 3a 25 73 22 20 68 74 6d 6c 20 22 3c 69 3e 25 73 3c 2f 69	[format."bbdb:%s".html."<i>%s</i
11e0	3e 22 20 6c 61 74 65 78 20 22 5c 5c 74 65 78 74 69 74 7b 25 73 7d 22 20 6f 64 74 20 22 3c 74 65	>".latex."\\textit{%s}".odt."<te
1200	78 74 3a 73 70 61 6e 20 74 65 78 74 3a 73 74 79 6c 65 2d 6e 61 6d 65 3d 5c 22 45 6d 70 68 61 73	xt:span.text:style-name=\"Emphas
1220	69 73 5c 22 3e 25 73 3c 2f 74 65 78 74 3a 73 70 61 6e 3e 22 5d 20 37 20 28 23 24 20 2e 20 34 31	is\">%s</text:span>"].7.(#$...41
1240	37 37 29 5d 29 0a 23 40 34 30 20 46 6f 6c 6c 6f 77 20 61 20 42 42 44 42 20 6c 69 6e 6b 20 74 6f	77)]).#@40.Follow.a.BBDB.link.to
1260	20 4e 41 4d 45 2e 0a 0a 28 66 6e 20 4e 41 4d 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72	.NAME...(fn.NAME)..(defalias.'or
1280	67 2d 62 62 64 62 2d 6f 70 65 6e 20 23 5b 32 35 37 20 22 5c 33 30 32 5c 33 30 33 21 5c 32 31 30	g-bbdb-open.#[257."\302\303!\210
12a0	08 3f 19 5c 33 30 34 5c 33 30 35 21 5c 32 30 33 13 00 5c 33 30 36 01 21 5c 32 30 32 16 00 5c 33	.?.\304\305!\203..\306.!\202..\3
12c0	30 37 01 21 29 5c 32 30 37 22 20 5b 64 65 62 75 67 2d 6f 6e 2d 65 72 72 6f 72 20 69 6e 68 69 62	07.!)\207".[debug-on-error.inhib
12e0	69 74 2d 72 65 64 69 73 70 6c 61 79 20 72 65 71 75 69 72 65 20 62 62 64 62 2d 63 6f 6d 20 66 62	it-redisplay.require.bbdb-com.fb
1300	6f 75 6e 64 70 20 62 62 64 62 2d 6e 61 6d 65 20 6f 72 67 2d 62 62 64 62 2d 6f 70 65 6e 2d 6f 6c	oundp.bbdb-name.org-bbdb-open-ol
1320	64 20 6f 72 67 2d 62 62 64 62 2d 6f 70 65 6e 2d 6e 65 77 5d 20 33 20 28 23 24 20 2e 20 34 36 38	d.org-bbdb-open-new].3.(#$...468
1340	33 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 62 64 62 2d 6f 70 65 6e 2d 6f 6c	3)]).(defalias.'org-bbdb-open-ol
1360	64 20 23 5b 32 35 37 20 22 5c 33 30 30 32 73 00 5c 33 30 31 5c 33 30 32 02 5c 33 30 33 51 5c 33	d.#[257."\3002s.\301\302.\303Q\3
1380	30 34 5c 22 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 21 21 57 5c 32 30 33 1b	04\"\210\305\306\307\310!!W\203.
13a0	00 5c 33 31 31 5c 33 30 30 5c 33 30 34 5c 22 5c 32 31 30 5c 33 31 32 5c 33 30 32 02 5c 33 30 33	.\311\300\304\"\210\312\302.\303
13c0	51 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 21 21 57 5c 32	Q\304\"\210\305\306\307\310!!W\2
13e0	30 33 32 00 5c 33 31 31 5c 33 30 30 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 31 01 5c 33 30 34 5c	032.\311\300\304\"\210\301.\304\
1400	22 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 21 21 57 5c 32 30 33 46 00 5c 33	"\210\305\306\307\310!!W\203F.\3
1420	31 31 5c 33 30 30 5c 33 30 34 5c 22 5c 32 31 30 5c 33 31 32 01 5c 33 30 34 5c 22 5c 32 31 30 5c	11\300\304\"\210\312.\304\"\210\
1440	33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 21 21 57 5c 32 30 33 5a 00 5c 33 31 31 5c 33 30 30	305\306\307\310!!W\203Z.\311\300
1460	5c 33 30 34 5c 22 5c 32 31 30 5c 33 31 33 01 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 36 5c 33 30	\304\"\210\313.\304\"\210\306\30
1480	37 5c 33 31 30 21 21 5c 33 30 35 55 5c 32 30 35 72 00 5c 33 31 34 5c 33 31 35 5c 33 31 30 21 21	7\310!!\305U\205r.\314\315\310!!
14a0	5c 32 31 30 5c 33 31 36 5c 33 31 37 21 30 5c 32 30 37 22 20 5b 65 78 69 74 20 62 62 64 62 2d 6e	\210\316\317!0\207".[exit.bbdb-n
14c0	61 6d 65 20 22 5c 5c 60 22 20 22 5c 5c 27 22 20 6e 69 6c 20 30 20 62 75 66 66 65 72 2d 73 69 7a	ame."\\`"."\\'".nil.0.buffer-siz
14e0	65 20 67 65 74 2d 62 75 66 66 65 72 20 22 2a 42 42 44 42 2a 22 20 74 68 72 6f 77 20 62 62 64 62	e.get-buffer."*BBDB*".throw.bbdb
1500	2d 63 6f 6d 70 61 6e 79 20 62 62 64 62 20 64 65 6c 65 74 65 2d 77 69 6e 64 6f 77 20 67 65 74 2d	-company.bbdb.delete-window.get-
1520	62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 65 72 72 6f 72 20 22 4e 6f 20 6d 61 74 63 68 69 6e 67	buffer-window.error."No.matching
1540	20 42 42 44 42 20 72 65 63 6f 72 64 22 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 4e 41 4d 45 29 22	.BBDB.record"].5."\n\n(fn.NAME)"
1560	5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 62 64 62 2d 6f 70 65 6e 2d 6e 65 77 20	]).(defalias.'org-bbdb-open-new.
1580	23 5b 32 35 37 20 22 5c 33 30 30 32 73 00 5c 33 30 31 5c 33 30 32 02 5c 33 30 33 51 5c 33 30 34	#[257."\3002s.\301\302.\303Q\304
15a0	5c 22 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 21 21 57 5c 32 30 33 1b 00 5c	\"\210\305\306\307\310!!W\203..\
15c0	33 31 31 5c 33 30 30 5c 33 30 34 5c 22 5c 32 31 30 5c 33 31 32 5c 33 30 32 02 5c 33 30 33 51 5c	311\300\304\"\210\312\302.\303Q\
15e0	33 30 34 5c 22 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 21 21 57 5c 32 30 33	304\"\210\305\306\307\310!!W\203
1600	32 00 5c 33 31 31 5c 33 30 30 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 31 01 5c 33 30 34 5c 22 5c	2.\311\300\304\"\210\301.\304\"\
1620	32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 21 21 57 5c 32 30 33 46 00 5c 33 31 31	210\305\306\307\310!!W\203F.\311
1640	5c 33 30 30 5c 33 30 34 5c 22 5c 32 31 30 5c 33 31 32 01 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30	\300\304\"\210\312.\304\"\210\30
1660	35 5c 33 30 36 5c 33 30 37 5c 33 31 30 21 21 57 5c 32 30 33 5a 00 5c 33 31 31 5c 33 30 30 5c 33	5\306\307\310!!W\203Z.\311\300\3
1680	30 34 5c 22 5c 32 31 30 5c 33 31 33 01 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 36 5c 33 30 37 5c	04\"\210\313.\304\"\210\306\307\
16a0	33 31 30 21 21 5c 33 30 35 55 5c 32 30 35 72 00 5c 33 31 34 5c 33 31 35 5c 33 31 30 21 21 5c 32	310!!\305U\205r.\314\315\310!!\2
16c0	31 30 5c 33 31 36 5c 33 31 37 21 30 5c 32 30 37 22 20 5b 65 78 69 74 20 62 62 64 62 2d 73 65 61	10\316\317!0\207".[exit.bbdb-sea
16e0	72 63 68 2d 6e 61 6d 65 20 22 5c 5c 60 22 20 22 5c 5c 27 22 20 6e 69 6c 20 30 20 62 75 66 66 65	rch-name."\\`"."\\'".nil.0.buffe
1700	72 2d 73 69 7a 65 20 67 65 74 2d 62 75 66 66 65 72 20 22 2a 42 42 44 42 2a 22 20 74 68 72 6f 77	r-size.get-buffer."*BBDB*".throw
1720	20 62 62 64 62 2d 73 65 61 72 63 68 2d 6f 72 67 61 6e 69 7a 61 74 69 6f 6e 20 62 62 64 62 20 64	.bbdb-search-organization.bbdb.d
1740	65 6c 65 74 65 2d 77 69 6e 64 6f 77 20 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 65	elete-window.get-buffer-window.e
1760	72 72 6f 72 20 22 4e 6f 20 6d 61 74 63 68 69 6e 67 20 42 42 44 42 20 72 65 63 6f 72 64 22 5d 20	rror."No.matching.BBDB.record"].
1780	35 20 22 5c 6e 5c 6e 28 66 6e 20 4e 41 4d 45 29 22 5d 29 0a 23 40 31 36 31 20 43 6f 6e 76 65 72	5."\n\n(fn.NAME)"]).#@161.Conver
17a0	74 20 59 59 59 59 2d 4d 4d 2d 44 44 20 74 6f 20 28 6d 6f 6e 74 68 20 64 61 74 65 20 79 65 61 72	t.YYYY-MM-DD.to.(month.date.year
17c0	29 2e 0a 41 72 67 75 6d 65 6e 74 20 54 49 4d 45 2d 53 54 52 20 69 73 20 74 68 65 20 76 61 6c 75	)..Argument.TIME-STR.is.the.valu
17e0	65 20 72 65 74 72 69 65 76 65 64 20 66 72 6f 6d 20 42 42 44 42 2e 20 20 49 66 20 59 59 59 59 2d	e.retrieved.from.BBDB...If.YYYY-
1800	20 69 73 20 6f 6d 69 74 74 65 64 0a 69 74 20 77 69 6c 6c 20 62 65 20 63 6f 6e 73 69 64 65 72 65	.is.omitted.it.will.be.considere
1820	64 20 75 6e 6b 6e 6f 77 6e 2e 0a 0a 28 66 6e 20 54 49 4d 45 2d 53 54 52 29 1f 0a 28 64 65 66 61	d.unknown...(fn.TIME-STR)..(defa
1840	6c 69 61 73 20 27 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 2d 65 78 74 72 61 63 74 2d 64 61 74	lias.'org-bbdb-anniv-extract-dat
1860	65 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 31 31 3a 5c 32 30 35 59 00 5c	e.#[257."\300.\301\"\211:\205Y.\
1880	32 31 31 40 01 41 5c 32 31 31 3a 5c 32 30 35 57 00 5c 32 31 31 40 01 41 5c 32 31 31 3a 5c 32 30	211@.A\211:\205W.\211@.A\211:\20
18a0	35 55 00 5c 32 31 31 40 5c 32 31 31 5c 32 30 34 3a 00 01 41 5c 32 31 31 3f 5c 32 30 35 35 00 03	5U.\211@\211\204:..A\211?\2055..
18c0	06 06 5c 33 30 32 01 21 5c 33 30 32 03 21 5c 33 30 33 45 5c 32 36 36 5c 32 30 32 5c 32 36 32 01	..\302.!\302.!\303E\266\202\262.
18e0	5c 32 30 32 53 00 01 41 5c 32 31 31 3f 5c 32 30 35 51 00 01 04 06 07 5c 33 30 32 02 21 5c 33 30	\202S..A\211?\205Q.....\302.!\30
1900	32 04 21 5c 33 30 32 03 21 45 5c 32 36 36 5c 32 30 33 5c 32 36 32 01 5c 32 36 32 01 5c 32 36 36	2.!\302.!E\266\203\262.\262.\266
1920	5c 32 30 32 5c 32 36 36 5c 32 30 32 5c 32 30 37 22 20 5b 6f 72 67 2d 73 70 6c 69 74 2d 73 74 72	\202\266\202\207".[org-split-str
1940	69 6e 67 20 22 2d 22 20 73 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 6e 69 6c 5d 20 31 35	ing."-".string-to-number.nil].15
1960	20 28 23 24 20 2e 20 36 30 34 32 29 5d 29 0a 23 40 31 31 32 20 53 70 6c 69 74 20 6d 75 6c 74 69	.(#$...6042)]).#@112.Split.multi
1980	70 6c 65 20 65 6e 74 72 69 65 73 20 69 6e 20 74 68 65 20 42 42 44 42 20 61 6e 6e 69 76 65 72 73	ple.entries.in.the.BBDB.annivers
19a0	61 72 79 20 66 69 65 6c 64 2e 0a 41 72 67 75 6d 65 6e 74 20 53 54 52 20 69 73 20 74 68 65 20 61	ary.field..Argument.STR.is.the.a
19c0	6e 6e 69 76 65 72 73 61 72 79 20 66 69 65 6c 64 20 69 6e 20 42 42 44 42 2e 0a 0a 28 66 6e 20 53	nniversary.field.in.BBDB...(fn.S
19e0	54 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 2d 73	TR)..(defalias.'org-bbdb-anniv-s
1a00	70 6c 69 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 5c 22 5c 32 31 31 5c 32 30 33 16	plit.#[257."\300\301.\"\211\203.
1a20	00 01 5c 33 30 32 02 4f 5c 33 30 33 03 03 5c 33 30 34 4f 21 44 5c 32 30 32 19 00 01 5c 33 30 34	..\302.O\303..\304O!D\202...\304
1a40	44 5c 32 30 37 22 20 5b 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5b 20 09 5d 22 20 30 20 62 62	D\207".[string-match."[..]".0.bb
1a60	64 62 2d 73 74 72 69 6e 67 2d 74 72 69 6d 20 6e 69 6c 5d 20 37 20 28 23 24 20 2e 20 36 35 31 37	db-string-trim.nil].7.(#$...6517
1a80	29 5d 29 0a 23 40 39 31 20 41 20 68 61 73 68 20 68 6f 6c 64 69 6e 67 20 61 6e 6e 69 76 65 72 73	)]).#@91.A.hash.holding.annivers
1aa0	61 72 69 65 73 20 65 78 74 72 61 63 74 65 64 20 66 72 6f 6d 20 42 42 44 42 2e 0a 54 68 65 20 68	aries.extracted.from.BBDB..The.h
1ac0	61 73 68 20 74 61 62 6c 65 20 69 73 20 63 72 65 61 74 65 64 20 6f 6e 20 66 69 72 73 74 20 75 73	ash.table.is.created.on.first.us
1ae0	65 2e 1f 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 2d 68 61 73 68 20	e...(defvar.org-bbdb-anniv-hash.
1b00	6e 69 6c 20 28 23 24 20 2e 20 36 37 39 33 29 29 0a 23 40 37 32 20 54 68 69 73 20 69 73 20 6e 6f	nil.(#$...6793)).#@72.This.is.no
1b20	6e 2d 6e 69 6c 20 69 66 20 42 42 44 42 20 68 61 73 20 62 65 65 6e 20 75 70 64 61 74 65 64 20 73	n-nil.if.BBDB.has.been.updated.s
1b40	69 6e 63 65 20 77 65 20 6c 61 73 74 20 62 75 69 6c 74 20 74 68 65 20 68 61 73 68 2e 1f 0a 28 64	ince.we.last.built.the.hash...(d
1b60	65 66 76 61 72 20 6f 72 67 2d 62 62 64 62 2d 75 70 64 61 74 65 64 2d 70 20 74 20 28 23 24 20 2e	efvar.org-bbdb-updated-p.t.(#$..
1b80	20 36 39 33 34 29 29 0a 23 40 31 34 35 20 43 72 65 61 74 65 20 61 20 68 61 73 68 20 77 69 74 68	.6934)).#@145.Create.a.hash.with
1ba0	20 61 6e 6e 69 76 65 72 73 61 72 69 65 73 20 65 78 74 72 61 63 74 65 64 20 66 72 6f 6d 20 42 42	.anniversaries.extracted.from.BB
1bc0	44 42 2c 20 66 6f 72 20 66 61 73 74 20 61 63 63 65 73 73 2e 0a 54 68 65 20 61 6e 6e 69 76 65 72	DB,.for.fast.access..The.anniver
1be0	73 61 72 69 65 73 20 61 72 65 20 61 73 73 75 6d 65 64 20 74 6f 20 62 65 20 73 74 6f 72 65 64 20	saries.are.assumed.to.be.stored.
1c00	60 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 65 72 73 61 72 79 2d 66 69 65 6c 64 27 2e 1f 0a 28	`org-bbdb-anniversary-field'...(
1c20	64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 62 64 62 2d 6d 61 6b 65 2d 61 6e 6e 69 76 2d 68 61	defalias.'org-bbdb-make-anniv-ha
1c40	73 68 20 23 5b 30 20 22 5c 33 30 34 5c 33 30 35 21 5c 33 30 34 5c 33 30 36 21 5c 32 30 33 0d 00	sh.#[0."\304\305!\304\306!\203..
1c60	5c 33 30 36 5c 32 30 32 0e 00 5c 33 30 37 5c 33 31 30 5c 32 31 31 5c 32 31 31 5c 33 31 31 08 21	\306\202..\307\310\211\211\311.!
1c80	5c 32 31 30 5c 33 31 32 20 5c 32 31 31 5c 32 30 33 5c 32 31 36 00 5c 32 31 31 40 06 06 5c 32 30	\210\312.\211\203\216.\211@..\20
1ca0	33 29 00 5c 33 30 35 01 09 5c 22 5c 32 30 32 2d 00 05 01 09 5c 22 5c 32 31 31 5c 32 36 32 04 5c	3).\305..\"\202-....\"\211\262.\
1cc0	32 30 33 5c 32 30 37 00 06 06 5c 32 30 33 3f 00 5c 33 31 33 03 5c 33 31 34 5c 22 5c 32 30 32 43	203\207...\203?.\313.\314\"\202C
1ce0	00 5c 33 31 33 5c 33 31 34 04 5c 22 5c 32 36 32 03 02 5c 32 30 33 5c 32 30 37 00 5c 33 31 35 03	.\313\314.\"\262..\203\207.\315.
1d00	5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 21 5c 32 36 32 05 5c 6e 05 40 21 5c 32 31 31 40 01 41	\211A\262.\242!\262.\n.@!\211@.A
1d20	5c 32 31 31 40 01 41 5c 32 31 31 40 01 41 01 04 06 07 5c 33 31 36 01 03 44 08 5c 22 5c 32 36 32	\211@.A\211@.A....\316..D.\"\262
1d40	0e 5c 33 31 37 01 03 44 04 5c 33 32 30 06 0e 21 06 12 41 40 45 06 10 42 08 23 5c 32 36 36 0b 5c	.\317..D.\320..!..A@E..B.#\266.\
1d60	32 30 32 45 00 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 17 00 5c 32 36 36 06 5c 33 31 30 5c 32	202E..A\266\202\202..\266.\310\2
1d80	31 31 13 5c 32 30 37 22 20 5b 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 2d 68 61 73 68 20 6f 72	11.\207".[org-bbdb-anniv-hash.or
1da0	67 2d 62 62 64 62 2d 61 6e 6e 69 76 65 72 73 61 72 79 2d 66 69 65 6c 64 20 6f 72 67 2d 62 62 64	g-bbdb-anniversary-field.org-bbd
1dc0	62 2d 65 78 74 72 61 63 74 2d 64 61 74 65 2d 66 75 6e 20 6f 72 67 2d 62 62 64 62 2d 75 70 64 61	b-extract-date-fun.org-bbdb-upda
1de0	74 65 64 2d 70 20 66 62 6f 75 6e 64 70 20 62 62 64 62 2d 72 65 63 6f 72 64 2d 67 65 74 70 72 6f	ted-p.fboundp.bbdb-record-getpro
1e00	70 20 62 62 64 62 2d 72 65 63 6f 72 64 2d 78 66 69 65 6c 64 20 62 62 64 62 2d 72 65 63 6f 72 64	p.bbdb-record-xfield.bbdb-record
1e20	2d 6e 6f 74 65 20 6e 69 6c 20 63 6c 72 68 61 73 68 20 62 62 64 62 2d 72 65 63 6f 72 64 73 20 62	-note.nil.clrhash.bbdb-records.b
1e40	62 64 62 2d 73 70 6c 69 74 20 22 5c 6e 22 20 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 2d 73 70	bdb-split."\n".org-bbdb-anniv-sp
1e60	6c 69 74 20 67 65 74 68 61 73 68 20 70 75 74 68 61 73 68 20 62 62 64 62 2d 72 65 63 6f 72 64 2d	lit.gethash.puthash.bbdb-record-
1e80	6e 61 6d 65 5d 20 32 32 20 28 23 24 20 2e 20 37 30 35 34 29 5d 29 0a 23 40 31 31 36 20 52 65 63	name].22.(#$...7054)]).#@116.Rec
1ea0	6f 72 64 20 74 68 65 20 66 61 63 74 20 74 68 61 74 20 42 42 44 42 20 68 61 73 20 62 65 65 6e 20	ord.the.fact.that.BBDB.has.been.
1ec0	75 70 64 61 74 65 64 2e 0a 54 68 69 73 20 69 73 20 75 73 65 64 20 62 79 20 4f 72 67 20 74 6f 20	updated..This.is.used.by.Org.to.
1ee0	72 65 2d 63 72 65 61 74 65 20 74 68 65 20 61 6e 6e 69 76 65 72 73 61 72 79 20 68 61 73 68 20 74	re-create.the.anniversary.hash.t
1f00	61 62 6c 65 2e 0a 0a 28 66 6e 20 52 45 43 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d	able...(fn.REC)..(defalias.'org-
1f20	62 62 64 62 2d 75 70 64 61 74 65 64 20 23 5b 32 35 37 20 22 5c 33 30 31 5c 32 31 31 10 5c 32 30	bbdb-updated.#[257."\301\211.\20
1f40	37 22 20 5b 6f 72 67 2d 62 62 64 62 2d 75 70 64 61 74 65 64 2d 70 20 74 5d 20 33 20 28 23 24 20	7".[org-bbdb-updated-p.t].3.(#$.
1f60	2e 20 37 38 33 37 29 5d 29 0a 28 61 64 64 2d 68 6f 6f 6b 20 27 62 62 64 62 2d 61 66 74 65 72 2d	..7837)]).(add-hook.'bbdb-after-
1f80	63 68 61 6e 67 65 2d 68 6f 6f 6b 20 27 6f 72 67 2d 62 62 64 62 2d 75 70 64 61 74 65 64 29 0a 23	change-hook.'org-bbdb-updated).#
1fa0	40 36 30 20 45 78 74 72 61 63 74 20 61 6e 6e 69 76 65 72 73 61 72 69 65 73 20 66 72 6f 6d 20 42	@60.Extract.anniversaries.from.B
1fc0	42 44 42 20 66 6f 72 20 64 69 73 70 6c 61 79 20 69 6e 20 74 68 65 20 61 67 65 6e 64 61 2e 1f 0a	BDB.for.display.in.the.agenda...
1fe0	28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 65 72 73 61 72 69 65	(defalias.'org-bbdb-anniversarie
2000	73 20 23 5b 30 20 22 5c 33 30 35 5c 33 30 36 21 5c 32 31 30 5c 33 30 35 5c 33 30 37 21 5c 32 31	s.#[0."\305\306!\210\305\307!\21
2020	30 5c 33 31 30 08 21 5c 32 30 34 15 00 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33 31	0\310.!\204..\311\312\313\314\31
2040	35 24 10 09 5c 32 30 34 21 00 5c 33 31 36 08 21 5c 33 31 37 55 5c 32 30 33 24 00 5c 33 32 30 20	5$..\204!.\316.!\317U\203$.\320.
2060	5c 32 31 30 5c 6e 40 5c 6e 41 40 5c 33 32 31 5c 6e 38 5c 33 32 32 03 03 44 08 5c 22 5c 33 32 33	\210\n@\nA@\321\n8\322..D.\"\323
2080	5c 32 31 31 5c 32 31 31 06 06 5c 33 32 34 55 5c 32 30 33 6d 00 05 5c 33 32 35 55 5c 32 30 33 6d	\211\211..\324U\203m..\325U\203m
20a0	00 5c 33 32 32 5c 33 32 31 5c 33 32 36 44 08 5c 22 5c 32 30 33 6d 00 5c 33 32 37 05 21 5c 32 30	.\322\321\326D.\"\203m.\327.!\20
20c0	34 6d 00 5c 33 32 32 5c 33 32 31 5c 33 32 36 44 08 5c 22 5c 32 36 32 01 5c 32 31 31 01 41 5c 32	4m.\322\321\326D.\"\262.\211.A\2
20e0	36 32 02 5c 32 34 32 5c 32 31 31 5c 32 36 32 03 5c 32 30 33 6d 00 01 04 42 5c 32 36 32 04 5c 32	62.\242\211\262.\203m...B\262.\2
2100	30 32 59 00 03 5c 32 30 33 5c 33 36 33 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 31	02Y..\203\363..\211A\262.\242\21
2120	31 5c 32 36 32 03 5c 32 30 33 5c 33 36 33 00 01 5c 32 30 33 71 00 5c 33 32 31 02 38 5c 32 30 36	1\262.\203\363..\203q.\321.8\206
2140	5c 32 31 30 00 0b 5c 33 33 30 01 5c 66 5c 33 33 31 23 41 5c 32 30 36 5c 32 32 32 00 5c 32 31 31	\210..\330.\f\331#A\206\222.\211
2160	03 41 40 04 40 5c 33 32 33 3d 5c 32 30 33 5c 32 34 30 00 5c 33 33 32 5c 32 30 32 5c 32 34 35 00	.A@.@\323=\203\240.\332\202\245.
2180	06 07 05 40 5a 05 40 5c 33 32 33 3d 5c 32 30 33 5c 32 36 30 00 5c 33 33 33 5c 32 30 32 5c 32 36	...@Z.@\323=\203\260.\333\202\26
21a0	33 00 5c 33 33 34 01 21 5c 33 33 35 04 21 5c 32 30 33 5c 33 30 31 00 03 03 03 03 23 5c 32 30 32	3.\334.!\335.!\203\301.....#\202
21c0	5c 33 32 32 00 03 3c 5c 32 30 33 5c 33 31 34 00 5c 33 33 36 04 21 5c 32 30 32 5c 33 32 32 00 5c	\322..<\203\314.\336.!\202\322.\
21e0	33 33 37 04 04 04 04 24 5c 33 34 30 01 5c 33 32 33 5c 33 34 31 06 07 24 5c 32 31 30 06 08 5c 32	337....$\340.\323\341..$\210..\2
2200	30 33 5c 33 35 32 00 5c 33 34 32 06 09 02 43 5c 22 5c 32 36 32 09 5c 32 30 32 5c 33 35 36 00 5c	03\352.\342...C\"\262.\202\356.\
2220	32 31 31 43 5c 32 36 32 09 5c 32 36 36 06 5c 32 30 32 71 00 02 5c 32 30 37 22 20 5b 6f 72 67 2d	211C\262.\266.\202q..\207".[org-
2240	62 62 64 62 2d 61 6e 6e 69 76 2d 68 61 73 68 20 6f 72 67 2d 62 62 64 62 2d 75 70 64 61 74 65 64	bbdb-anniv-hash.org-bbdb-updated
2260	2d 70 20 64 61 74 65 20 6f 72 67 2d 62 62 64 62 2d 64 65 66 61 75 6c 74 2d 61 6e 6e 69 76 65 72	-p.date.org-bbdb-default-anniver
2280	73 61 72 79 2d 66 6f 72 6d 61 74 20 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 65 72 73 61 72 79	sary-format.org-bbdb-anniversary
22a0	2d 66 6f 72 6d 61 74 2d 61 6c 69 73 74 20 72 65 71 75 69 72 65 20 62 62 64 62 20 64 69 61 72 79	-format-alist.require.bbdb.diary
22c0	2d 6c 69 62 20 68 61 73 68 2d 74 61 62 6c 65 2d 70 20 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c	-lib.hash-table-p.make-hash-tabl
22e0	65 20 3a 74 65 73 74 20 65 71 75 61 6c 20 3a 73 69 7a 65 20 33 36 36 20 68 61 73 68 2d 74 61 62	e.:test.equal.:size.366.hash-tab
2300	6c 65 2d 63 6f 75 6e 74 20 30 20 6f 72 67 2d 62 62 64 62 2d 6d 61 6b 65 2d 61 6e 6e 69 76 2d 68	le-count.0.org-bbdb-make-anniv-h
2320	61 73 68 20 32 20 67 65 74 68 61 73 68 20 6e 69 6c 20 33 20 31 20 32 39 20 63 61 6c 65 6e 64 61	ash.2.gethash.nil.3.1.29.calenda
2340	72 2d 6c 65 61 70 2d 79 65 61 72 2d 70 20 61 73 73 6f 63 2d 73 74 72 69 6e 67 20 74 20 22 75 6e	r-leap-year-p.assoc-string.t."un
2360	6b 6e 6f 77 6e 22 20 22 22 20 64 69 61 72 79 2d 6f 72 64 69 6e 61 6c 2d 73 75 66 66 69 78 20 66	known"."".diary-ordinal-suffix.f
2380	75 6e 63 74 69 6f 6e 70 20 65 76 61 6c 20 66 6f 72 6d 61 74 20 6f 72 67 2d 61 64 64 2d 70 72 6f	unctionp.eval.format.org-add-pro
23a0	70 73 20 6f 72 67 2d 62 62 64 62 2d 6e 61 6d 65 20 61 70 70 65 6e 64 5d 20 31 38 20 28 23 24 20	ps.org-bbdb-name.append].18.(#$.
23c0	2e 20 38 31 30 30 29 5d 29 0a 23 40 39 33 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20	..8100)]).#@93.Return.a.list.of.
23e0	64 61 74 65 73 20 69 6e 20 28 6d 20 64 20 79 29 20 66 6f 72 6d 61 74 20 66 72 6f 6d 20 74 68 65	dates.in.(m.d.y).format.from.the
2400	20 67 69 76 65 6e 20 64 61 74 65 20 44 20 74 6f 20 6e 2d 31 20 64 61 79 73 20 68 65 6e 63 65 2e	.given.date.D.to.n-1.days.hence.
2420	0a 0a 28 66 6e 20 44 20 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 62 64 62 2d	..(fn.D.N)..(defalias.'org-bbdb-
2440	64 61 74 65 2d 6c 69 73 74 20 23 5b 35 31 34 20 22 01 5c 32 31 31 18 18 5c 33 30 36 08 38 29 5c	date-list.#[514.".\211..\306.8)\
2460	33 30 37 19 5c 32 31 31 1a 5c 33 31 30 55 5c 32 30 33 17 00 5c 33 31 31 5c 33 31 32 21 5c 32 30	307.\211.\310U\203..\311\312!\20
2480	32 52 01 5c 6e 5c 33 31 30 56 5c 32 30 33 5c 32 31 33 00 5c 6e 53 11 5c 33 31 33 08 5c 32 31 31	2R.\n\310V\203\213.\nS.\313.\211
24a0	18 5c 32 31 31 18 40 29 1b 08 5c 32 31 31 18 41 40 29 1c 08 18 5c 33 30 36 08 38 29 1a 5c 66 0b	.\211.@)..\211.A@)...\306.8).\f.
24c0	53 5c 33 31 34 5f 5c 5c 1d 0b 5c 33 30 36 56 5c 32 30 33 78 00 0d 5c 33 31 35 0b 5c 33 31 36 5f	S\314_\\..\306V\203x..\315.\316_
24e0	5c 5c 5c 33 31 37 5c 32 34 35 5a 15 5c 6e 5c 32 31 31 1a 5c 33 31 30 57 5c 32 30 33 5b 00 5c 33	\\\317\245Z.\n\211.\310W\203[.\3
2500	32 30 5c 6e 21 53 12 5c 6e 5c 33 31 36 5c 32 34 36 5c 33 31 30 55 5c 32 30 35 71 00 5c 6e 5c 33	20\n!S.\n\316\246\310U\205q.\n\3
2520	32 31 5c 32 34 36 5c 33 31 30 55 3f 5c 32 30 36 71 00 5c 6e 5c 33 32 32 5c 32 34 36 5c 33 31 30	21\246\310U?\206q.\n\322\246\310
2540	55 29 5c 32 30 33 78 00 0d 54 15 0d 2d 09 5c 33 32 33 5f 09 5c 33 31 36 5c 32 34 35 09 5c 33 32	U)\203x..T..-.\323_.\316\245.\32
2560	31 5c 32 34 35 5b 09 5c 33 32 32 5c 32 34 35 25 5c 32 30 32 52 01 5c 33 32 30 5c 6e 54 21 11 5c	1\245[.\322\245%\202R.\320\nT!.\
2580	33 32 34 08 5c 32 31 31 18 5c 32 31 31 18 40 29 1b 08 5c 32 31 31 18 41 40 29 1c 08 18 5c 33 30	324.\211.\211.@)..\211.A@)...\30
25a0	36 08 38 29 1a 5c 66 0b 53 5c 33 31 34 5f 5c 5c 1d 0b 5c 33 30 36 56 5c 32 30 33 5c 33 35 30 00	6.8).\f.S\314_\\..\306V\203\350.
25c0	0d 5c 33 31 35 0b 5c 33 31 36 5f 5c 5c 5c 33 31 37 5c 32 34 35 5a 15 5c 6e 5c 32 31 31 1a 5c 33	.\315.\316_\\\317\245Z.\n\211.\3
25e0	31 30 57 5c 32 30 33 5c 33 31 33 00 5c 33 32 30 5c 6e 21 53 12 5c 6e 5c 33 31 36 5c 32 34 36 5c	10W\203\313.\320\n!S.\n\316\246\
2600	33 31 30 55 5c 32 30 35 5c 33 34 31 00 5c 6e 5c 33 32 31 5c 32 34 36 5c 33 31 30 55 3f 5c 32 30	310U\205\341.\n\321\246\310U?\20
2620	36 5c 33 34 31 00 5c 6e 5c 33 32 32 5c 32 34 36 5c 33 31 30 55 29 5c 32 30 33 5c 33 35 30 00 0d	6\341.\n\322\246\310U)\203\350..
2640	54 15 0d 2d 09 5c 33 32 33 5f 09 5c 33 31 36 5c 32 34 35 09 5c 33 32 31 5c 32 34 35 5b 09 5c 33	T..-.\323_.\316\245.\321\245[.\3
2660	32 32 5c 32 34 35 5c 33 32 35 5c 32 31 31 18 5c 32 31 31 18 40 29 1b 08 5c 32 31 31 18 41 40 29	22\245\325\211.\211.@)..\211.A@)
2680	1c 08 18 5c 33 30 36 08 38 29 1a 5c 66 0b 53 5c 33 31 34 5f 5c 5c 1d 0b 5c 33 30 36 56 5c 32 30	...\306.8).\f.S\314_\\..\306V\20
26a0	33 4e 01 0d 5c 33 31 35 0b 5c 33 31 36 5f 5c 5c 5c 33 31 37 5c 32 34 35 5a 15 5c 6e 5c 32 31 31	3N..\315.\316_\\\317\245Z.\n\211
26c0	1a 5c 33 31 30 57 5c 32 30 33 31 01 5c 33 32 30 5c 6e 21 53 12 5c 6e 5c 33 31 36 5c 32 34 36 5c	.\310W\2031.\320\n!S.\n\316\246\
26e0	33 31 30 55 5c 32 30 35 47 01 5c 6e 5c 33 32 31 5c 32 34 36 5c 33 31 30 55 3f 5c 32 30 36 47 01	310U\205G.\n\321\246\310U?\206G.
2700	5c 6e 5c 33 32 32 5c 32 34 36 5c 33 31 30 55 29 5c 32 30 33 4e 01 0d 54 15 0d 2d 26 06 2b 5c 33	\n\322\246\310U)\203N..T..-&.+\3
2720	32 36 5c 33 32 37 5c 33 33 30 5c 33 33 31 5c 33 33 32 5c 33 33 33 06 06 21 5c 33 33 34 5c 22 5c	26\327\330\331\332\333..!\334\"\
2740	33 31 36 5c 33 33 35 25 5c 33 33 36 5c 33 31 30 05 53 5c 22 5c 22 5c 32 30 37 22 20 5b 64 61 74	316\335%\336\310.S\"\"\207".[dat
2760	65 20 6f 66 66 73 65 74 2d 79 65 61 72 73 20 79 65 61 72 20 6d 6f 6e 74 68 20 64 61 79 20 64 61	e.offset-years.year.month.day.da
2780	79 2d 6f 66 2d 79 65 61 72 20 32 20 6e 69 6c 20 30 20 75 73 65 72 2d 65 72 72 6f 72 20 22 54 68	y-of-year.2.nil.0.user-error."Th
27a0	65 72 65 20 77 61 73 20 6e 6f 20 79 65 61 72 20 7a 65 72 6f 22 20 2b 20 33 31 20 32 33 20 34 20	ere.was.no.year.zero".+.31.23.4.
27c0	31 30 20 61 62 73 20 31 30 30 20 34 30 30 20 33 36 35 20 2d 20 28 31 32 20 33 31 20 2d 31 29 20	10.abs.100.400.365.-.(12.31.-1).
27e0	6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31 5c	mapcar.make-byte-code.257."\301\
2800	33 30 30 02 5c 5c 21 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 63 61 6c	300.\\!\207".vconcat.vector.[cal
2820	65 6e 64 61 72 2d 67 72 65 67 6f 72 69 61 6e 2d 66 72 6f 6d 2d 61 62 73 6f 6c 75 74 65 5d 20 22	endar-gregorian-from-absolute]."
2840	5c 6e 5c 6e 28 66 6e 20 49 29 22 20 6e 75 6d 62 65 72 2d 73 65 71 75 65 6e 63 65 5d 20 31 33 20	\n\n(fn.I)".number-sequence].13.
2860	28 23 24 20 2e 20 39 31 36 37 29 5d 29 0a 23 40 34 35 32 20 52 65 74 75 72 6e 20 61 20 73 74 72	(#$...9167)]).#@452.Return.a.str
2880	69 6e 67 20 75 73 65 64 20 74 6f 20 69 6e 63 6f 72 70 6f 72 61 74 65 20 69 6e 74 6f 20 61 6e 20	ing.used.to.incorporate.into.an.
28a0	61 67 65 6e 64 61 20 61 6e 6e 69 76 65 72 73 61 72 79 20 65 6e 74 72 79 2e 0a 54 68 65 20 63 61	agenda.anniversary.entry..The.ca
28c0	6c 63 75 6c 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 61 6e 6e 69 76 65 72 73 61 72 79 20 64 65 73	lculation.of.the.anniversary.des
28e0	63 72 69 70 74 69 6f 6e 20 73 74 72 69 6e 67 20 69 73 20 62 61 73 65 64 20 6f 6e 0a 74 68 65 20	cription.string.is.based.on.the.
2900	64 69 66 66 65 72 65 6e 63 65 20 62 65 74 77 65 65 6e 20 74 68 65 20 61 6e 6e 69 76 65 72 73 61	difference.between.the.anniversa
2920	72 79 20 64 61 74 65 2c 20 67 69 76 65 6e 20 61 73 20 41 4e 4e 49 56 2d 44 41 54 45 2c 0a 61 6e	ry.date,.given.as.ANNIV-DATE,.an
2940	64 20 74 68 65 20 64 61 74 65 20 6f 6e 20 77 68 69 63 68 20 74 68 65 20 65 6e 74 72 79 20 61 70	d.the.date.on.which.the.entry.ap
2960	70 65 61 72 73 20 69 6e 20 74 68 65 20 61 67 65 6e 64 61 2c 20 67 69 76 65 6e 20 61 73 0a 41 47	pears.in.the.agenda,.given.as.AG
2980	45 4e 44 41 2d 44 41 54 45 2e 20 20 54 68 69 73 20 6d 61 6b 65 73 20 69 74 20 70 6f 73 73 69 62	ENDA-DATE...This.makes.it.possib
29a0	6c 65 20 74 6f 20 68 61 76 65 20 64 69 66 66 65 72 65 6e 74 20 65 6e 74 72 69 65 73 0a 66 6f 72	le.to.have.different.entries.for
29c0	20 74 68 65 20 73 61 6d 65 20 65 76 65 6e 74 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 69 66 20	.the.same.event.depending.on.if.
29e0	69 74 20 6f 63 63 75 72 73 20 69 6e 20 74 68 65 20 6e 65 78 74 20 66 65 77 20 64 61 79 73 0a 6f	it.occurs.in.the.next.few.days.o
2a00	72 20 66 61 72 20 61 77 61 79 20 69 6e 20 74 68 65 20 66 75 74 75 72 65 2e 0a 0a 28 66 6e 20 41	r.far.away.in.the.future...(fn.A
2a20	47 45 4e 44 41 2d 44 41 54 45 20 41 4e 4e 49 56 2d 44 41 54 45 29 1f 0a 28 64 65 66 61 6c 69 61	GENDA-DATE.ANNIV-DATE)..(defalia
2a40	73 20 27 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 65 72 73 61 72 79 2d 64 65 73 63 72 69 70 74	s.'org-bbdb-anniversary-descript
2a60	69 6f 6e 20 23 5b 35 31 34 20 22 5c 32 31 31 18 5c 32 31 31 18 5c 33 30 36 08 38 29 5c 33 30 37	ion.#[514."\211.\211.\306.8)\307
2a80	19 5c 32 31 31 1a 5c 33 31 30 55 5c 32 30 33 17 00 5c 33 31 31 5c 33 31 32 21 5c 32 30 32 52 01	.\211.\310U\203..\311\312!\202R.
2aa0	5c 6e 5c 33 31 30 56 5c 32 30 33 5c 32 31 33 00 5c 6e 53 11 5c 33 31 33 08 5c 32 31 31 18 5c 32	\n\310V\203\213.\nS.\313.\211.\2
2ac0	31 31 18 40 29 1b 08 5c 32 31 31 18 41 40 29 1c 08 18 5c 33 30 36 08 38 29 1a 5c 66 0b 53 5c 33	11.@)..\211.A@)...\306.8).\f.S\3
2ae0	31 34 5f 5c 5c 1d 0b 5c 33 30 36 56 5c 32 30 33 78 00 0d 5c 33 31 35 0b 5c 33 31 36 5f 5c 5c 5c	14_\\..\306V\203x..\315.\316_\\\
2b00	33 31 37 5c 32 34 35 5a 15 5c 6e 5c 32 31 31 1a 5c 33 31 30 57 5c 32 30 33 5b 00 5c 33 32 30 5c	317\245Z.\n\211.\310W\203[.\320\
2b20	6e 21 53 12 5c 6e 5c 33 31 36 5c 32 34 36 5c 33 31 30 55 5c 32 30 35 71 00 5c 6e 5c 33 32 31 5c	n!S.\n\316\246\310U\205q.\n\321\
2b40	32 34 36 5c 33 31 30 55 3f 5c 32 30 36 71 00 5c 6e 5c 33 32 32 5c 32 34 36 5c 33 31 30 55 29 5c	246\310U?\206q.\n\322\246\310U)\
2b60	32 30 33 78 00 0d 54 15 0d 2d 09 5c 33 32 33 5f 09 5c 33 31 36 5c 32 34 35 09 5c 33 32 31 5c 32	203x..T..-.\323_.\316\245.\321\2
2b80	34 35 5b 09 5c 33 32 32 5c 32 34 35 25 5c 32 30 32 52 01 5c 33 32 30 5c 6e 54 21 11 5c 33 32 34	45[.\322\245%\202R.\320\nT!.\324
2ba0	08 5c 32 31 31 18 5c 32 31 31 18 40 29 1b 08 5c 32 31 31 18 41 40 29 1c 08 18 5c 33 30 36 08 38	.\211.\211.@)..\211.A@)...\306.8
2bc0	29 1a 5c 66 0b 53 5c 33 31 34 5f 5c 5c 1d 0b 5c 33 30 36 56 5c 32 30 33 5c 33 35 30 00 0d 5c 33	).\f.S\314_\\..\306V\203\350..\3
2be0	31 35 0b 5c 33 31 36 5f 5c 5c 5c 33 31 37 5c 32 34 35 5a 15 5c 6e 5c 32 31 31 1a 5c 33 31 30 57	15.\316_\\\317\245Z.\n\211.\310W
2c00	5c 32 30 33 5c 33 31 33 00 5c 33 32 30 5c 6e 21 53 12 5c 6e 5c 33 31 36 5c 32 34 36 5c 33 31 30	\203\313.\320\n!S.\n\316\246\310
2c20	55 5c 32 30 35 5c 33 34 31 00 5c 6e 5c 33 32 31 5c 32 34 36 5c 33 31 30 55 3f 5c 32 30 36 5c 33	U\205\341.\n\321\246\310U?\206\3
2c40	34 31 00 5c 6e 5c 33 32 32 5c 32 34 36 5c 33 31 30 55 29 5c 32 30 33 5c 33 35 30 00 0d 54 15 0d	41.\n\322\246\310U)\203\350..T..
2c60	2d 09 5c 33 32 33 5f 09 5c 33 31 36 5c 32 34 35 09 5c 33 32 31 5c 32 34 35 5b 09 5c 33 32 32 5c	-.\323_.\316\245.\321\245[.\322\
2c80	32 34 35 5c 33 32 35 5c 32 31 31 18 5c 32 31 31 18 40 29 1b 08 5c 32 31 31 18 41 40 29 1c 08 18	245\325\211.\211.@)..\211.A@)...
2ca0	5c 33 30 36 08 38 29 1a 5c 66 0b 53 5c 33 31 34 5f 5c 5c 1d 0b 5c 33 30 36 56 5c 32 30 33 4e 01	\306.8).\f.S\314_\\..\306V\203N.
2cc0	0d 5c 33 31 35 0b 5c 33 31 36 5f 5c 5c 5c 33 31 37 5c 32 34 35 5a 15 5c 6e 5c 32 31 31 1a 5c 33	.\315.\316_\\\317\245Z.\n\211.\3
2ce0	31 30 57 5c 32 30 33 31 01 5c 33 32 30 5c 6e 21 53 12 5c 6e 5c 33 31 36 5c 32 34 36 5c 33 31 30	10W\2031.\320\n!S.\n\316\246\310
2d00	55 5c 32 30 35 47 01 5c 6e 5c 33 32 31 5c 32 34 36 5c 33 31 30 55 3f 5c 32 30 36 47 01 5c 6e 5c	U\205G.\n\321\246\310U?\206G.\n\
2d20	33 32 32 5c 32 34 36 5c 33 31 30 55 29 5c 32 30 33 4e 01 0d 54 15 0d 2d 26 06 2b 02 5c 32 31 31	322\246\310U)\203N..T..-&.+.\211
2d40	18 18 5c 33 30 36 08 38 29 5c 33 30 37 19 5c 32 31 31 1a 5c 33 31 30 55 5c 32 30 33 6a 01 5c 33	..\306.8)\307.\211.\310U\203j.\3
2d60	31 31 5c 33 31 32 21 5c 32 30 32 5c 32 34 35 02 5c 6e 5c 33 31 30 56 5c 32 30 33 5c 33 33 36 01	11\312!\202\245.\n\310V\203\336.
2d80	5c 6e 53 11 5c 33 31 33 08 5c 32 31 31 18 5c 32 31 31 18 40 29 1b 08 5c 32 31 31 18 41 40 29 1c	\nS.\313.\211.\211.@)..\211.A@).
2da0	08 18 5c 33 30 36 08 38 29 1a 5c 66 0b 53 5c 33 31 34 5f 5c 5c 1d 0b 5c 33 30 36 56 5c 32 30 33	..\306.8).\f.S\314_\\..\306V\203
2dc0	5c 33 31 33 01 0d 5c 33 31 35 0b 5c 33 31 36 5f 5c 5c 5c 33 31 37 5c 32 34 35 5a 15 5c 6e 5c 32	\313..\315.\316_\\\317\245Z.\n\2
2de0	31 31 1a 5c 33 31 30 57 5c 32 30 33 5c 32 35 36 01 5c 33 32 30 5c 6e 21 53 12 5c 6e 5c 33 31 36	11.\310W\203\256.\320\n!S.\n\316
2e00	5c 32 34 36 5c 33 31 30 55 5c 32 30 35 5c 33 30 34 01 5c 6e 5c 33 32 31 5c 32 34 36 5c 33 31 30	\246\310U\205\304.\n\321\246\310
2e20	55 3f 5c 32 30 36 5c 33 30 34 01 5c 6e 5c 33 32 32 5c 32 34 36 5c 33 31 30 55 29 5c 32 30 33 5c	U?\206\304.\n\322\246\310U)\203\
2e40	33 31 33 01 0d 54 15 0d 2d 09 5c 33 32 33 5f 09 5c 33 31 36 5c 32 34 35 09 5c 33 32 31 5c 32 34	313..T..-.\323_.\316\245.\321\24
2e60	35 5b 09 5c 33 32 32 5c 32 34 35 25 5c 32 30 32 5c 32 34 35 02 5c 33 32 30 5c 6e 54 21 11 5c 33	5[.\322\245%\202\245.\320\nT!.\3
2e80	32 34 08 5c 32 31 31 18 5c 32 31 31 18 40 29 1b 08 5c 32 31 31 18 41 40 29 1c 08 18 5c 33 30 36	24.\211.\211.@)..\211.A@)...\306
2ea0	08 38 29 1a 5c 66 0b 53 5c 33 31 34 5f 5c 5c 1d 0b 5c 33 30 36 56 5c 32 30 33 3b 02 0d 5c 33 31	.8).\f.S\314_\\..\306V\203;..\31
2ec0	35 0b 5c 33 31 36 5f 5c 5c 5c 33 31 37 5c 32 34 35 5a 15 5c 6e 5c 32 31 31 1a 5c 33 31 30 57 5c	5.\316_\\\317\245Z.\n\211.\310W\
2ee0	32 30 33 1e 02 5c 33 32 30 5c 6e 21 53 12 5c 6e 5c 33 31 36 5c 32 34 36 5c 33 31 30 55 5c 32 30	203..\320\n!S.\n\316\246\310U\20
2f00	35 34 02 5c 6e 5c 33 32 31 5c 32 34 36 5c 33 31 30 55 3f 5c 32 30 36 34 02 5c 6e 5c 33 32 32 5c	54.\n\321\246\310U?\2064.\n\322\
2f20	32 34 36 5c 33 31 30 55 29 5c 32 30 33 3b 02 0d 54 15 0d 2d 09 5c 33 32 33 5f 09 5c 33 31 36 5c	246\310U)\203;..T..-.\323_.\316\
2f40	32 34 35 09 5c 33 32 31 5c 32 34 35 5b 09 5c 33 32 32 5c 32 34 35 5c 33 32 35 5c 32 31 31 18 5c	245.\321\245[.\322\245\325\211.\
2f60	32 31 31 18 40 29 1b 08 5c 32 31 31 18 41 40 29 1c 08 18 5c 33 30 36 08 38 29 1a 5c 66 0b 53 5c	211.@)..\211.A@)...\306.8).\f.S\
2f80	33 31 34 5f 5c 5c 1d 0b 5c 33 30 36 56 5c 32 30 33 5c 32 34 31 02 0d 5c 33 31 35 0b 5c 33 31 36	314_\\..\306V\203\241..\315.\316
2fa0	5f 5c 5c 5c 33 31 37 5c 32 34 35 5a 15 5c 6e 5c 32 31 31 1a 5c 33 31 30 57 5c 32 30 33 5c 32 30	_\\\317\245Z.\n\211.\310W\203\20
2fc0	34 02 5c 33 32 30 5c 6e 21 53 12 5c 6e 5c 33 31 36 5c 32 34 36 5c 33 31 30 55 5c 32 30 35 5c 32	4.\320\n!S.\n\316\246\310U\205\2
2fe0	33 32 02 5c 6e 5c 33 32 31 5c 32 34 36 5c 33 31 30 55 3f 5c 32 30 36 5c 32 33 32 02 5c 6e 5c 33	32.\n\321\246\310U?\206\232.\n\3
3000	32 32 5c 32 34 36 5c 33 31 30 55 29 5c 32 30 33 5c 32 34 31 02 0d 54 15 0d 2d 26 06 2b 5a 5c 32	22\246\310U)\203\241..T..-&.+Z\2
3020	31 31 5c 33 31 30 55 5c 32 30 33 5c 32 36 31 02 5c 33 32 36 5c 32 30 32 5c 33 34 33 02 5c 32 31	11\310U\203\261.\326\202\343.\21
3040	31 5c 33 32 37 55 5c 32 30 33 5c 32 37 33 02 5c 33 33 30 5c 32 30 32 5c 33 34 33 02 5c 32 31 31	1\327U\203\273.\330\202\343.\211
3060	0e 1c 57 5c 32 30 33 5c 33 31 31 02 5c 33 33 31 5c 33 33 32 02 5c 22 5c 32 30 32 5c 33 34 33 02	..W\203\311.\331\332.\"\202\343.
3080	01 40 02 41 5c 32 31 31 40 01 41 5c 32 31 31 40 01 41 01 04 06 07 5c 33 33 31 5c 33 33 33 04 03	.@.A\211@.A\211@.A....\331\333..
30a0	05 24 5c 32 36 36 5c 32 30 33 5c 32 36 36 5c 32 30 36 5c 32 30 37 22 20 5b 64 61 74 65 20 6f 66	.$\266\203\266\206\207".[date.of
30c0	66 73 65 74 2d 79 65 61 72 73 20 79 65 61 72 20 6d 6f 6e 74 68 20 64 61 79 20 64 61 79 2d 6f 66	fset-years.year.month.day.day-of
30e0	2d 79 65 61 72 20 32 20 6e 69 6c 20 30 20 75 73 65 72 2d 65 72 72 6f 72 20 22 54 68 65 72 65 20	-year.2.nil.0.user-error."There.
3100	77 61 73 20 6e 6f 20 79 65 61 72 20 7a 65 72 6f 22 20 2b 20 33 31 20 32 33 20 34 20 31 30 20 61	was.no.year.zero".+.31.23.4.10.a
3120	62 73 20 31 30 30 20 34 30 30 20 33 36 35 20 2d 20 28 31 32 20 33 31 20 2d 31 29 20 22 20 2d 2d	bs.100.400.365.-.(12.31.-1).".--
3140	20 74 6f 64 61 79 5c 5c 26 22 20 31 20 22 20 2d 2d 20 74 6f 6d 6f 72 72 6f 77 5c 5c 26 22 20 66	.today\\&".1.".--.tomorrow\\&".f
3160	6f 72 6d 61 74 20 22 20 2d 2d 20 69 6e 20 25 64 20 64 61 79 73 5c 5c 26 22 20 22 20 2d 2d 20 25	ormat.".--.in.%d.days\\&".".--.%
3180	64 2d 25 30 32 64 2d 25 30 32 64 5c 5c 26 22 20 6f 72 67 2d 62 62 64 62 2d 67 65 6e 65 72 61 6c	d-%02d-%02d\\&".org-bbdb-general
31a0	2d 61 6e 6e 69 76 65 72 73 61 72 79 2d 64 65 73 63 72 69 70 74 69 6f 6e 2d 61 66 74 65 72 5d 20	-anniversary-description-after].
31c0	31 38 20 28 23 24 20 2e 20 31 30 33 35 36 29 5d 29 0a 23 40 39 35 20 52 65 74 75 72 6e 20 6c 69	18.(#$...10356)]).#@95.Return.li
31e0	73 74 20 6f 66 20 61 6e 6e 69 76 65 72 73 61 72 69 65 73 20 66 6f 72 20 74 6f 64 61 79 20 61 6e	st.of.anniversaries.for.today.an
3200	64 20 74 68 65 20 6e 65 78 74 20 6e 2d 31 20 64 61 79 73 20 28 64 65 66 61 75 6c 74 20 6e 3d 37	d.the.next.n-1.days.(default.n=7
3220	29 2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	)...(fn.&optional.N)..(defalias.
3240	27 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 65 72 73 61 72 69 65 73 2d 66 75 74 75 72 65 20 23	'org-bbdb-anniversaries-future.#
3260	5b 32 35 36 20 22 5c 32 31 31 5c 32 30 36 05 00 5c 33 30 31 5c 32 31 31 5c 33 30 32 58 5c 32 30	[256."\211\206..\301\211\302X\20
3280	33 0f 00 5c 33 30 33 5c 33 30 34 21 5c 32 31 30 5c 33 30 35 08 02 5c 22 5c 33 30 36 5c 33 30 37	3..\303\304!\210\305..\"\306\307
32a0	5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33 31 35 5c 33 31 36 06 08 21 5c	\310\311\312\313\314\315\316..!\
32c0	33 31 37 5c 22 5c 33 32 30 5c 33 32 31 25 05 5c 22 5c 22 5c 32 36 36 5c 32 30 32 5c 32 30 37 22	317\"\320\321%.\"\"\266\202\207"
32e0	20 5b 64 61 74 65 20 37 20 30 20 65 72 72 6f 72 20 22 54 68 65 20 28 6f 70 74 69 6f 6e 61 6c 29	.[date.7.0.error."The.(optional)
3300	20 61 72 67 75 6d 65 6e 74 20 6f 66 20 60 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 65 72 73 61	.argument.of.`org-bbdb-anniversa
3320	72 69 65 73 2d 66 75 74 75 72 65 27 20 6d 75 73 74 20 62 65 20 70 6f 73 69 74 69 76 65 22 20 6f	ries-future'.must.be.positive".o
3340	72 67 2d 62 62 64 62 2d 64 61 74 65 2d 6c 69 73 74 20 23 5b 37 37 31 20 22 5c 33 30 30 5c 33 30	rg-bbdb-date-list.#[771."\300\30
3360	31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 06 08 06 08 5c 22 5c 33 30 36 5c 22 5c 33 30	1\302\303\304\305....\"\306\"\30
3380	37 5c 33 31 30 25 02 5c 22 5c 32 30 37 22 20 5b 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65	7\310%.\"\207".[mapcar.make-byte
33a0	2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 32 5c 33 30 30 5c 33 30 31 5c 22 5c 33 30 33 5c 33 30	-code.257."\302\300\301\"\303\30
33c0	34 03 5c 22 5c 32 31 30 5c 33 30 35 01 5c 33 30 36 5c 32 31 31 05 24 5c 32 30 37 22 20 76 63 6f	4.\"\210\305.\306\211.$\207".vco
33e0	6e 63 61 74 20 76 65 63 74 6f 72 20 5b 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 65 72 73 61 72	ncat.vector.[org-bbdb-anniversar
3400	79 2d 64 65 73 63 72 69 70 74 69 6f 6e 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5d 5d 22 20	y-description.string-match."]]".
3420	72 65 70 6c 61 63 65 2d 6d 61 74 63 68 20 6e 69 6c 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 58 29	replace-match.nil].7."\n\n(fn.X)
3440	22 5d 20 31 31 20 22 5c 6e 5c 6e 28 66 6e 20 41 47 45 4e 44 41 2d 44 41 54 45 20 44 20 4c 29 22	"].11."\n\n(fn.AGENDA-DATE.D.L)"
3460	5d 20 61 70 70 6c 79 20 6e 63 6f 6e 63 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63	].apply.nconc.mapcar.make-byte-c
3480	6f 64 65 20 32 35 37 20 22 09 01 19 5c 33 30 30 01 03 5c 33 30 32 20 23 29 5c 32 30 37 22 20 76	ode.257."...\300..\302.#)\207".v
34a0	63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 64 61 74 65 20 6f 72 67 2d 62 62 64 62 2d 61 6e 6e	concat.vector.[date.org-bbdb-ann
34c0	69 76 65 72 73 61 72 69 65 73 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 44 29 22 5d 20 31 33 20 28	iversaries].6."\n\n(fn.D)"].13.(
34e0	23 24 20 2e 20 31 32 37 35 39 29 5d 29 0a 23 40 34 30 20 52 65 61 64 20 61 20 62 62 64 62 20 6c	#$...12759)]).#@40.Read.a.bbdb.l
3500	69 6e 6b 20 77 69 74 68 20 6e 61 6d 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 2e 1f 0a 28 64 65 66 61	ink.with.name.completion...(defa
3520	6c 69 61 73 20 27 6f 72 67 2d 62 62 64 62 2d 63 6f 6d 70 6c 65 74 65 2d 6c 69 6e 6b 20 23 5b 30	lias.'org-bbdb-complete-link.#[0
3540	20 22 5c 33 30 30 5c 33 30 31 21 5c 32 31 30 5c 33 30 32 5c 33 30 33 21 5c 33 30 34 5c 33 30 35	."\300\301!\210\302\303!\304\305
3560	02 3c 5c 32 30 33 13 00 02 40 5c 32 30 32 14 00 02 21 50 5c 32 30 37 22 20 5b 72 65 71 75 69 72	.<\203...@\202...!P\207".[requir
3580	65 20 62 62 64 62 2d 63 6f 6d 20 62 62 64 62 2d 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 2d	e.bbdb-com.bbdb-completing-read-
35a0	72 65 63 6f 72 64 20 22 4e 61 6d 65 3a 20 22 20 22 62 62 64 62 3a 22 20 62 62 64 62 2d 72 65 63	record."Name:."."bbdb:".bbdb-rec
35c0	6f 72 64 2d 6e 61 6d 65 5d 20 34 20 28 23 24 20 2e 20 31 33 35 35 35 29 5d 29 0a 23 40 37 31 20	ord-name].4.(#$...13555)]).#@71.
35e0	45 78 74 72 61 63 74 20 61 6e 6e 69 76 65 72 73 61 72 69 65 73 20 66 72 6f 6d 20 42 42 44 42 20	Extract.anniversaries.from.BBDB.
3600	61 6e 64 20 63 6f 6e 76 65 72 74 20 74 68 65 6d 20 74 6f 20 69 63 61 6c 65 6e 64 61 72 20 66 6f	and.convert.them.to.icalendar.fo
3620	72 6d 61 74 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76	rmat...(defalias.'org-bbdb-anniv
3640	2d 65 78 70 6f 72 74 2d 69 63 61 6c 20 23 5b 30 20 22 5c 33 30 32 5c 33 30 33 21 5c 32 31 30 5c	-export-ical.#[0."\302\303!\210\
3660	33 30 32 5c 33 30 34 21 5c 32 31 30 5c 33 30 35 08 21 5c 32 30 34 15 00 5c 33 30 36 5c 33 30 37	302\304!\210\305.!\204..\306\307
3680	5c 33 31 30 5c 33 31 31 5c 33 31 32 24 10 09 5c 32 30 34 21 00 5c 33 31 33 08 21 5c 33 31 34 55	\310\311\312$..\204!.\313.!\314U
36a0	5c 32 30 33 24 00 5c 33 31 35 20 5c 32 31 30 5c 33 31 36 5c 33 31 37 08 5c 22 5c 32 30 37 22 20	\203$.\315.\210\316\317.\"\207".
36c0	5b 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 2d 68 61 73 68 20 6f 72 67 2d 62 62 64 62 2d 75 70	[org-bbdb-anniv-hash.org-bbdb-up
36e0	64 61 74 65 64 2d 70 20 72 65 71 75 69 72 65 20 62 62 64 62 20 64 69 61 72 79 2d 6c 69 62 20 68	dated-p.require.bbdb.diary-lib.h
3700	61 73 68 2d 74 61 62 6c 65 2d 70 20 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73	ash-table-p.make-hash-table.:tes
3720	74 20 65 71 75 61 6c 20 3a 73 69 7a 65 20 33 36 36 20 68 61 73 68 2d 74 61 62 6c 65 2d 63 6f 75	t.equal.:size.366.hash-table-cou
3740	6e 74 20 30 20 6f 72 67 2d 62 62 64 62 2d 6d 61 6b 65 2d 61 6e 6e 69 76 2d 68 61 73 68 20 6d 61	nt.0.org-bbdb-make-anniv-hash.ma
3760	70 68 61 73 68 20 6f 72 67 2d 62 62 64 62 2d 66 6f 72 6d 61 74 2d 76 65 76 65 6e 74 5d 20 35 20	phash.org-bbdb-format-vevent].5.
3780	28 23 24 20 2e 20 31 33 37 39 32 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 62	(#$...13792)]).(defalias.'org-bb
37a0	64 62 2d 66 6f 72 6d 61 74 2d 76 65 76 65 6e 74 20 23 5b 35 31 34 20 22 5c 33 30 31 5c 32 31 31	db-format-vevent.#[514."\301\211
37c0	02 5c 32 31 31 41 5c 32 36 32 04 5c 32 34 32 5c 32 31 31 5c 32 36 32 03 5c 32 30 35 4f 00 5c 33	.\211A\262.\242\211\262.\205O.\3
37e0	30 32 02 38 5c 32 30 36 15 00 08 5c 32 36 32 01 5c 33 30 33 5c 33 30 34 5c 33 30 35 04 40 06 07	02.8\206...\262.\303\304\305.@..
3800	40 06 08 41 40 5c 33 30 36 5c 33 30 37 5c 33 31 30 06 5c 6e 41 40 5c 33 31 31 5c 22 5c 33 31 32	@..A@\306\307\310.\nA@\311\"\312
3820	23 06 08 40 06 0b 40 06 5c 66 41 40 06 0b 41 40 5c 33 31 33 06 5c 66 21 5c 33 31 34 06 0e 41 40	#..@..@.\fA@..A@\313.\f!\314..A@
3840	51 06 5c 66 26 0b 21 5c 32 31 30 5c 32 30 32 02 00 5c 32 30 37 22 20 5b 6f 72 67 2d 62 62 64 62	Q.\f&.!\210\202..\207".[org-bbdb
3860	2d 64 65 66 61 75 6c 74 2d 61 6e 6e 69 76 65 72 73 61 72 79 2d 66 6f 72 6d 61 74 20 6e 69 6c 20	-default-anniversary-format.nil.
3880	32 20 70 72 69 6e 63 20 66 6f 72 6d 61 74 20 22 42 45 47 49 4e 3a 56 45 56 45 4e 54 5c 6e 55 49	2.princ.format."BEGIN:VEVENT\nUI
38a0	44 3a 20 41 4e 4e 49 56 2d 25 34 69 25 30 32 69 25 30 32 69 2d 25 73 5c 6e 44 54 53 54 41 52 54	D:.ANNIV-%4i%02i%02i-%s\nDTSTART
38c0	3a 25 34 69 25 30 32 69 25 30 32 69 5c 6e 53 55 4d 4d 41 52 59 3a 25 73 5c 6e 44 45 53 43 52 49	:%4i%02i%02i\nSUMMARY:%s\nDESCRI
38e0	50 54 49 4f 4e 3a 25 73 5c 6e 43 41 54 45 47 4f 52 49 45 53 3a 25 73 5c 6e 52 52 55 4c 45 3a 46	PTION:%s\nCATEGORIES:%s\nRRULE:F
3900	52 45 51 3d 59 45 41 52 4c 59 5c 6e 45 4e 44 3a 56 45 56 45 4e 54 5c 6e 22 20 6d 61 70 63 6f 6e	REQ=YEARLY\nEND:VEVENT\n".mapcon
3920	63 61 74 20 69 64 65 6e 74 69 74 79 20 6f 72 67 2d 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 22 5b	cat.identity.org-split-string."[
3940	5e 61 2d 7a 41 2d 5a 30 2d 39 30 5d 2b 22 20 22 2d 22 20 63 61 70 69 74 61 6c 69 7a 65 20 22 20	^a-zA-Z0-90]+"."-".capitalize.".
3960	22 5d 20 31 38 20 22 5c 6e 5c 6e 28 66 6e 20 4b 45 59 20 52 45 43 53 29 22 5d 29 0a 28 70 72 6f	"].18."\n\n(fn.KEY.RECS)"]).(pro
3980	76 69 64 65 20 27 6f 72 67 2d 62 62 64 62 29 0a	vide.'org-bbdb).