blob: 75bda17975ccd4f507b93875a42bd5de2f4c0ed6 (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 20 62 79 20 6c 75 6b 65 40 48 50	;ELC.....;;;.Compiled.by.luke@HP
0020	2d 64 76 36 34 32 36 75 73 2d 75 31 30 31 30 20 6f 6e 20 53 75 6e 20 46 65 62 20 32 37 20 31 32	-dv6426us-u1010.on.Sun.Feb.27.12
0040	3a 35 37 3a 31 35 20 32 30 31 31 0a 3b 3b 3b 20 66 72 6f 6d 20 66 69 6c 65 20 2f 68 6f 6d 65 2f	:57:15.2011.;;;.from.file./home/
0060	6c 75 6b 65 2f 2e 65 6d 61 63 73 2e 64 2f 6f 72 67 2d 37 2e 34 2f 6c 69 73 70 2f 6f 72 67 2d 6d	luke/.emacs.d/org-7.4/lisp/org-m
0080	61 63 2d 6d 65 73 73 61 67 65 2e 65 6c 0a 3b 3b 3b 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69	ac-message.el.;;;.in.Emacs.versi
00a0	6f 6e 20 32 33 2e 31 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74 69 6d 69 7a 61 74	on.23.1.1.;;;.with.all.optimizat
00c0	69 6f 6e 73 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 75 73 65 73 20 64 79 6e 61 6d 69	ions...;;;.This.file.uses.dynami
00e0	63 20 64 6f 63 73 74 72 69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65 64 20 69 6e 20 45 6d 61	c.docstrings,.first.added.in.Ema
0100	63 73 20 31 39 2e 32 39 2e 0a 28 69 66 20 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 27 65 6d 61 63	cs.19.29..(if.(and.(boundp.'emac
0120	73 2d 76 65 72 73 69 6f 6e 29 0a 09 20 28 3c 20 28 61 72 65 66 20 65 6d 61 63 73 2d 76 65 72 73	s-version)...(<.(aref.emacs-vers
0140	69 6f 6e 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 29 29 29	ion.(1-.(length.emacs-version)))
0160	20 3f 41 29 0a 09 20 28 6f 72 20 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 27 65 70 6f 63 68 3a 3a	.?A)...(or.(and.(boundp.'epoch::
0180	76 65 72 73 69 6f 6e 29 20 65 70 6f 63 68 3a 3a 76 65 72 73 69 6f 6e 29 0a 09 20 20 20 20 20 28	version).epoch::version).......(
01a0	73 74 72 69 6e 67 2d 6c 65 73 73 70 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 20 22 31 39 2e 32	string-lessp.emacs-version."19.2
01c0	39 22 29 29 29 0a 20 20 20 20 28 65 72 72 6f 72 20 22 60 6f 72 67 2d 6d 61 63 2d 6d 65 73 73 61	9"))).....(error."`org-mac-messa
01e0	67 65 2e 65 6c 27 20 77 61 73 20 63 6f 6d 70 69 6c 65 64 20 66 6f 72 20 45 6d 61 63 73 20 31 39	ge.el'.was.compiled.for.Emacs.19
0200	2e 32 39 20 6f 72 20 6c 61 74 65 72 22 29 29 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	.29.or.later"))..;;;;;;;;;;;;;;;
0220	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	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0240	3b 3b 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	;;;;;;;;;;;;;;;;;;;;...(byte-cod
0260	65 20 22 5c 33 30 30 5c 33 30 31 21 5c 32 31 30 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35	e."\300\301!\210\302\303\304\305
0280	5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 26 07 5c 32 30 37 22 20 5b 72 65 71 75 69 72 65	\306\307\310\311&.\207".[require
02a0	20 6f 72 67 20 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 67 72 6f 75 70 20 6f 72 67 2d 6d 61	.org.custom-declare-group.org-ma
02c0	63 2d 66 6c 61 67 67 65 64 2d 6d 61 69 6c 20 6e 69 6c 20 22 4f 70 74 69 6f 6e 73 20 63 6f 6e 63	c-flagged-mail.nil."Options.conc
02e0	65 72 6e 69 6e 67 20 6c 69 6e 6b 69 6e 67 20 74 6f 20 66 6c 61 67 67 65 64 20 4d 61 69 6c 2e 61	erning.linking.to.flagged.Mail.a
0300	70 70 20 6d 65 73 73 61 67 65 73 22 20 3a 74 61 67 20 22 4f 72 67 20 4d 61 69 6c 2e 61 70 70 22	pp.messages".:tag."Org.Mail.app"
0320	20 3a 67 72 6f 75 70 20 6f 72 67 2d 6c 69 6e 6b 5d 20 38 29 0a 23 40 36 33 20 54 68 65 20 4d 61	.:group.org-link].8).#@63.The.Ma
0340	69 6c 2e 61 70 70 20 61 63 63 6f 75 6e 74 20 69 6e 20 77 68 69 63 68 20 74 6f 20 73 65 61 72 63	il.app.account.in.which.to.searc
0360	68 20 66 6f 72 20 66 6c 61 67 67 65 64 20 6d 65 73 73 61 67 65 73 2e 1f 0a 28 63 75 73 74 6f 6d	h.for.flagged.messages...(custom
0380	2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61 62 6c 65 20 27 6f 72 67 2d 6d 61 63 2d 6d 61 69 6c 2d	-declare-variable.'org-mac-mail-
03a0	61 63 63 6f 75 6e 74 20 27 22 63 75 73 74 6f 6d 69 7a 65 22 20 27 28 23 24 20 2e 20 38 32 36 29	account.'"customize".'(#$...826)
03c0	20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 6d 61 63 2d 66 6c 61 67 67 65 64 2d 6d 61 69 6c 20 3a 74	.:group.'org-mac-flagged-mail.:t
03e0	79 70 65 20 27 73 74 72 69 6e 67 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	ype.'string).(byte-code."\300\30
0400	31 5c 33 30 32 5c 22 5c 32 31 30 5c 33 30 33 5c 33 30 34 21 5c 32 30 34 10 00 5c 33 30 35 5c 33	1\302\"\210\303\304!\204..\305\3
0420	30 34 5c 33 30 36 5c 22 5c 32 31 30 5c 33 30 30 5c 32 30 37 22 20 5b 6f 72 67 2d 61 64 64 2d 6c	04\306\"\210\300\207".[org-add-l
0440	69 6e 6b 2d 74 79 70 65 20 22 6d 65 73 73 61 67 65 22 20 6f 72 67 2d 6d 61 63 2d 6d 65 73 73 61	ink-type."message".org-mac-messa
0460	67 65 2d 6f 70 65 6e 20 66 62 6f 75 6e 64 70 20 64 6f 2d 61 70 70 6c 65 73 63 72 69 70 74 20 64	ge-open.fboundp.do-applescript.d
0480	65 66 61 6c 69 61 73 20 23 5b 28 73 63 72 69 70 74 29 20 22 5c 33 30 34 5c 32 31 31 5c 32 31 31	efalias.#[(script)."\304\211\211
04a0	18 19 1a 5c 33 30 35 5c 33 30 36 0b 5c 22 5c 32 30 33 17 00 5c 33 30 37 5c 33 31 30 5c 33 31 31	...\305\306.\"\203..\307\310\311
04c0	5c 32 31 31 0b 24 13 5c 32 30 32 06 00 5c 33 30 35 5c 33 31 32 0b 5c 6e 23 5c 32 30 33 2e 00 5c	\211.$.\202..\305\312.\n#\203..\
04e0	33 31 33 5c 33 31 34 5c 32 32 34 5c 5c 12 5c 33 30 37 5c 33 31 35 5c 33 31 31 5c 32 31 31 0b 24	313\314\224\\.\307\315\311\211.$
0500	13 5c 32 30 32 17 00 5c 33 31 36 0b 5c 33 31 32 51 11 5c 33 31 37 09 21 10 5c 33 32 30 5c 33 32	.\202..\316.\312Q.\317.!.\320\32
0520	31 08 21 5c 33 32 30 51 2b 5c 32 30 37 22 20 5b 72 65 74 75 72 6e 20 63 6d 64 20 73 74 61 72 74	1.!\320Q+\207".[return.cmd.start
0540	20 73 63 72 69 70 74 20 6e 69 6c 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 6e 22 20 72 65	.script.nil.string-match."\n".re
0560	70 6c 61 63 65 2d 6d 61 74 63 68 20 22 0d 22 20 74 20 22 27 22 20 32 20 30 20 22 5c 5c 27 22 20	place-match.".".t."'".2.0."\\'".
0580	22 6f 73 61 73 63 72 69 70 74 20 2d 65 20 27 22 20 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74	"osascript.-e.'".shell-command-t
05a0	6f 2d 73 74 72 69 6e 67 20 22 5c 22 22 20 6f 72 67 2d 74 72 69 6d 5d 20 35 5d 5d 20 33 29 0a 23	o-string."\"".org-trim].5]].3).#
05c0	40 31 30 31 20 56 69 73 69 74 20 74 68 65 20 6d 65 73 73 61 67 65 20 77 69 74 68 20 74 68 65 20	@101.Visit.the.message.with.the.
05e0	67 69 76 65 6e 20 4d 45 53 53 41 47 45 2d 49 44 2e 0a 54 68 69 73 20 77 69 6c 6c 20 75 73 65 20	given.MESSAGE-ID..This.will.use.
0600	74 68 65 20 63 6f 6d 6d 61 6e 64 20 60 6f 70 65 6e 27 20 77 69 74 68 20 74 68 65 20 6d 65 73 73	the.command.`open'.with.the.mess
0620	61 67 65 20 55 52 4c 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 6d 61 63 2d 6d 65 73	age.URL...(defalias.'org-mac-mes
0640	73 61 67 65 2d 6f 70 65 6e 20 23 5b 28 6d 65 73 73 61 67 65 2d 69 64 29 20 22 5c 33 30 31 5c 33	sage-open.#[(message-id)."\301\3
0660	30 32 08 50 5c 33 30 33 5c 33 30 34 5c 33 30 35 08 5c 33 30 36 5c 33 30 33 4f 5c 33 30 37 51 24	02.P\303\304\305.\306\303O\307Q$
0680	5c 32 30 37 22 20 5b 6d 65 73 73 61 67 65 2d 69 64 20 73 74 61 72 74 2d 70 72 6f 63 65 73 73 20	\207".[message-id.start-process.
06a0	22 6f 70 65 6e 20 6d 65 73 73 61 67 65 3a 22 20 6e 69 6c 20 22 6f 70 65 6e 22 20 22 6d 65 73 73	"open.message:".nil."open"."mess
06c0	61 67 65 3a 2f 2f 3c 22 20 32 20 22 3e 22 5d 20 38 20 28 23 24 20 2e 20 31 34 37 37 29 5d 29 0a	age://<".2.">"].8.(#$...1477)]).
06e0	23 40 36 33 20 41 70 70 6c 65 53 63 72 69 70 74 20 74 6f 20 63 72 65 61 74 65 20 6c 69 6e 6b 73	#@63.AppleScript.to.create.links
0700	20 74 6f 20 73 65 6c 65 63 74 65 64 20 6d 65 73 73 61 67 65 73 20 69 6e 20 4d 61 69 6c 2e 61 70	.to.selected.messages.in.Mail.ap
0720	70 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 61 73 2d 67 65 74 2d 73 65 6c 65 63 74 65 64 2d 6d	p...(defalias.'as-get-selected-m
0740	61 69 6c 20 23 5b 6e 69 6c 20 22 5c 33 30 30 5c 33 30 31 21 5c 32 30 37 22 20 5b 64 6f 2d 61 70	ail.#[nil."\300\301!\207".[do-ap
0760	70 6c 65 73 63 72 69 70 74 20 22 74 65 6c 6c 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 5c 22 4d 61	plescript."tell.application.\"Ma
0780	69 6c 5c 22 5c 6e 73 65 74 20 74 68 65 4c 69 6e 6b 4c 69 73 74 20 74 6f 20 7b 7d 5c 6e 73 65 74	il\"\nset.theLinkList.to.{}\nset
07a0	20 74 68 65 53 65 6c 65 63 74 69 6f 6e 20 74 6f 20 73 65 6c 65 63 74 69 6f 6e 5c 6e 72 65 70 65	.theSelection.to.selection\nrepe
07c0	61 74 20 77 69 74 68 20 74 68 65 4d 65 73 73 61 67 65 20 69 6e 20 74 68 65 53 65 6c 65 63 74 69	at.with.theMessage.in.theSelecti
07e0	6f 6e 5c 6e 73 65 74 20 74 68 65 49 44 20 74 6f 20 6d 65 73 73 61 67 65 20 69 64 20 6f 66 20 74	on\nset.theID.to.message.id.of.t
0800	68 65 4d 65 73 73 61 67 65 5c 6e 73 65 74 20 74 68 65 53 75 62 6a 65 63 74 20 74 6f 20 73 75 62	heMessage\nset.theSubject.to.sub
0820	6a 65 63 74 20 6f 66 20 74 68 65 4d 65 73 73 61 67 65 5c 6e 73 65 74 20 74 68 65 4c 69 6e 6b 20	ject.of.theMessage\nset.theLink.
0840	74 6f 20 5c 22 6d 65 73 73 61 67 65 3a 2f 2f 5c 22 20 26 20 74 68 65 49 44 20 26 20 5c 22 3a 3a	to.\"message://\".&.theID.&.\"::
0860	73 70 6c 69 74 3a 3a 5c 22 20 26 20 74 68 65 53 75 62 6a 65 63 74 20 26 20 5c 22 5c 6e 5c 22 5c	split::\".&.theSubject.&.\"\n\"\
0880	6e 63 6f 70 79 20 74 68 65 4c 69 6e 6b 20 74 6f 20 65 6e 64 20 6f 66 20 74 68 65 4c 69 6e 6b 4c	ncopy.theLink.to.end.of.theLinkL
08a0	69 73 74 5c 6e 65 6e 64 20 72 65 70 65 61 74 5c 6e 72 65 74 75 72 6e 20 74 68 65 4c 69 6e 6b 4c	ist\nend.repeat\nreturn.theLinkL
08c0	69 73 74 20 61 73 20 73 74 72 69 6e 67 5c 6e 65 6e 64 20 74 65 6c 6c 22 5d 20 32 20 28 23 24 20	ist.as.string\nend.tell"].2.(#$.
08e0	2e 20 31 37 36 35 29 5d 29 0a 23 40 36 32 20 41 70 70 6c 65 53 63 72 69 70 74 20 74 6f 20 63 72	..1765)]).#@62.AppleScript.to.cr
0900	65 61 74 65 20 6c 69 6e 6b 73 20 74 6f 20 66 6c 61 67 67 65 64 20 6d 65 73 73 61 67 65 73 20 69	eate.links.to.flagged.messages.i
0920	6e 20 4d 61 69 6c 2e 61 70 70 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 61 73 2d 67 65 74 2d 66	n.Mail.app...(defalias.'as-get-f
0940	6c 61 67 67 65 64 2d 6d 61 69 6c 20 23 5b 6e 69 6c 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c	lagged-mail.#[nil."\301\302\303\
0960	33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 08	304\305\306\307\310\311\312\313.
0980	5c 33 31 34 5c 33 31 35 5c 33 31 36 5c 33 31 37 5c 33 32 30 5c 33 32 31 5c 33 32 32 5c 33 32 33	\314\315\316\317\320\321\322\323
09a0	5c 33 32 34 5c 33 32 35 5c 33 32 36 5c 33 32 37 5c 33 33 30 5c 33 33 31 5c 33 33 32 5c 33 33 33	\324\325\326\327\330\331\332\333
09c0	5c 33 31 31 5c 32 31 31 5c 33 31 30 5c 33 33 34 5c 32 31 31 5c 33 33 35 5c 33 33 36 5c 32 36 30	\311\211\310\334\211\335\336\260
09e0	5c 22 21 5c 32 30 37 22 20 5b 6f 72 67 2d 6d 61 63 2d 6d 61 69 6c 2d 61 63 63 6f 75 6e 74 20 64	\"!\207".[org-mac-mail-account.d
0a00	6f 2d 61 70 70 6c 65 73 63 72 69 70 74 20 22 74 65 6c 6c 20 61 70 70 6c 69 63 61 74 69 6f 6e 20	o-applescript."tell.application.
0a20	5c 22 53 79 73 74 65 6d 20 45 76 65 6e 74 73 5c 22 5c 6e 22 20 22 73 65 74 20 67 72 6f 77 6c 48	\"System.Events\"\n"."set.growlH
0a40	65 6c 70 65 72 73 20 74 6f 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 65 76 65 72 79 20 70 72 6f 63	elpers.to.the.name.of.every.proc
0a60	65 73 73 20 77 68 6f 73 65 20 63 72 65 61 74 6f 72 20 74 79 70 65 20 63 6f 6e 74 61 69 6e 73 20	ess.whose.creator.type.contains.
0a80	5c 22 47 52 52 52 5c 22 5c 6e 22 20 22 69 66 20 28 63 6f 75 6e 74 20 6f 66 20 67 72 6f 77 6c 48	\"GRRR\"\n"."if.(count.of.growlH
0aa0	65 6c 70 65 72 73 29 20 3e 20 30 20 74 68 65 6e 5c 6e 22 20 22 73 65 74 20 67 72 6f 77 6c 48 65	elpers).>.0.then\n"."set.growlHe
0ac0	6c 70 65 72 41 70 70 20 74 6f 20 69 74 65 6d 20 31 20 6f 66 20 67 72 6f 77 6c 48 65 6c 70 65 72	lperApp.to.item.1.of.growlHelper
0ae0	73 5c 6e 22 20 22 65 6c 73 65 5c 6e 22 20 22 73 65 74 20 67 72 6f 77 6c 48 65 6c 70 65 72 41 70	s\n"."else\n"."set.growlHelperAp
0b00	70 20 74 6f 20 5c 22 5c 22 5c 6e 22 20 22 65 6e 64 20 69 66 5c 6e 22 20 22 65 6e 64 20 74 65 6c	p.to.\"\"\n"."end.if\n"."end.tel
0b20	6c 5c 6e 22 20 22 74 65 6c 6c 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 5c 22 4d 61 69 6c 5c 22 5c	l\n"."tell.application.\"Mail\"\
0b40	6e 22 20 22 73 65 74 20 74 68 65 4d 61 69 6c 62 6f 78 65 73 20 74 6f 20 65 76 65 72 79 20 6d 61	n"."set.theMailboxes.to.every.ma
0b60	69 6c 62 6f 78 20 6f 66 20 61 63 63 6f 75 6e 74 20 5c 22 22 20 22 5c 22 5c 6e 22 20 22 73 65 74	ilbox.of.account.\""."\"\n"."set
0b80	20 74 68 65 4c 69 6e 6b 4c 69 73 74 20 74 6f 20 7b 7d 5c 6e 22 20 22 72 65 70 65 61 74 20 77 69	.theLinkList.to.{}\n"."repeat.wi
0ba0	74 68 20 61 4d 61 69 6c 62 6f 78 20 69 6e 20 74 68 65 4d 61 69 6c 62 6f 78 65 73 5c 6e 22 20 22	th.aMailbox.in.theMailboxes\n"."
0bc0	73 65 74 20 74 68 65 53 65 6c 65 63 74 69 6f 6e 20 74 6f 20 28 65 76 65 72 79 20 6d 65 73 73 61	set.theSelection.to.(every.messa
0be0	67 65 20 69 6e 20 61 4d 61 69 6c 62 6f 78 20 77 68 6f 73 65 20 66 6c 61 67 67 65 64 20 73 74 61	ge.in.aMailbox.whose.flagged.sta
0c00	74 75 73 20 3d 20 74 72 75 65 29 5c 6e 22 20 22 72 65 70 65 61 74 20 77 69 74 68 20 74 68 65 4d	tus.=.true)\n"."repeat.with.theM
0c20	65 73 73 61 67 65 20 69 6e 20 74 68 65 53 65 6c 65 63 74 69 6f 6e 5c 6e 22 20 22 73 65 74 20 74	essage.in.theSelection\n"."set.t
0c40	68 65 49 44 20 74 6f 20 6d 65 73 73 61 67 65 20 69 64 20 6f 66 20 74 68 65 4d 65 73 73 61 67 65	heID.to.message.id.of.theMessage
0c60	5c 6e 22 20 22 73 65 74 20 74 68 65 53 75 62 6a 65 63 74 20 74 6f 20 73 75 62 6a 65 63 74 20 6f	\n"."set.theSubject.to.subject.o
0c80	66 20 74 68 65 4d 65 73 73 61 67 65 5c 6e 22 20 22 73 65 74 20 74 68 65 4c 69 6e 6b 20 74 6f 20	f.theMessage\n"."set.theLink.to.
0ca0	5c 22 6d 65 73 73 61 67 65 3a 2f 2f 5c 22 20 26 20 74 68 65 49 44 20 26 20 5c 22 3a 3a 73 70 6c	\"message://\".&.theID.&.\"::spl
0cc0	69 74 3a 3a 5c 22 20 26 20 74 68 65 53 75 62 6a 65 63 74 20 26 20 5c 22 5c 6e 5c 22 5c 6e 22 20	it::\".&.theSubject.&.\"\n\"\n".
0ce0	22 63 6f 70 79 20 74 68 65 4c 69 6e 6b 20 74 6f 20 65 6e 64 20 6f 66 20 74 68 65 4c 69 6e 6b 4c	"copy.theLink.to.end.of.theLinkL
0d00	69 73 74 5c 6e 22 20 22 69 66 20 67 72 6f 77 6c 48 65 6c 70 65 72 41 70 70 20 69 73 20 6e 6f 74	ist\n"."if.growlHelperApp.is.not
0d20	20 5c 22 5c 22 20 74 68 65 6e 5c 6e 22 20 22 74 65 6c 6c 20 61 70 70 6c 69 63 61 74 69 6f 6e 20	.\"\".then\n"."tell.application.
0d40	5c 22 47 72 6f 77 6c 48 65 6c 70 65 72 41 70 70 5c 22 5c 6e 22 20 22 74 65 6c 6c 20 61 70 70 6c	\"GrowlHelperApp\"\n"."tell.appl
0d60	69 63 61 74 69 6f 6e 20 67 72 6f 77 6c 48 65 6c 70 65 72 41 70 70 5c 6e 22 20 22 73 65 74 20 74	ication.growlHelperApp\n"."set.t
0d80	68 65 20 61 6c 6c 4e 6f 74 69 66 69 63 61 74 69 6f 6e 73 4c 69 73 74 20 74 6f 20 7b 5c 22 46 6c	he.allNotificationsList.to.{\"Fl
0da0	61 67 67 65 64 4d 61 69 6c 5c 22 7d 5c 6e 22 20 22 73 65 74 20 74 68 65 20 65 6e 61 62 6c 65 64	aggedMail\"}\n"."set.the.enabled
0dc0	4e 6f 74 69 66 69 63 61 74 69 6f 6e 73 4c 69 73 74 20 74 6f 20 61 6c 6c 4e 6f 74 69 66 69 63 61	NotificationsList.to.allNotifica
0de0	74 69 6f 6e 73 4c 69 73 74 5c 6e 22 20 22 72 65 67 69 73 74 65 72 20 61 73 20 61 70 70 6c 69 63	tionsList\n"."register.as.applic
0e00	61 74 69 6f 6e 20 5c 22 46 6c 61 67 67 65 64 4d 61 69 6c 5c 22 20 61 6c 6c 20 6e 6f 74 69 66 69	ation.\"FlaggedMail\".all.notifi
0e20	63 61 74 69 6f 6e 73 20 61 6c 6c 4e 6f 74 69 66 69 63 61 74 69 6f 6e 73 4c 69 73 74 20 64 65 66	cations.allNotificationsList.def
0e40	61 75 6c 74 20 6e 6f 74 69 66 69 63 61 74 69 6f 6e 73 20 65 6e 61 62 6c 65 64 4e 6f 74 69 66 69	ault.notifications.enabledNotifi
0e60	63 61 74 69 6f 6e 73 4c 69 73 74 20 69 63 6f 6e 20 6f 66 20 61 70 70 6c 69 63 61 74 69 6f 6e 20	cationsList.icon.of.application.
0e80	5c 22 4d 61 69 6c 5c 22 5c 6e 22 20 22 6e 6f 74 69 66 79 20 77 69 74 68 20 6e 61 6d 65 20 5c 22	\"Mail\"\n"."notify.with.name.\"
0ea0	46 6c 61 67 67 65 64 4d 61 69 6c 5c 22 20 74 69 74 6c 65 20 5c 22 49 6d 70 6f 72 74 69 6e 67 20	FlaggedMail\".title.\"Importing.
0ec0	66 6c 61 67 67 65 64 20 6d 65 73 73 61 67 65 5c 22 20 64 65 73 63 72 69 70 74 69 6f 6e 20 74 68	flagged.message\".description.th
0ee0	65 53 75 62 6a 65 63 74 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 6e 61 6d 65 20 5c 22 46 6c 61 67	eSubject.application.name.\"Flag
0f00	67 65 64 4d 61 69 6c 5c 22 5c 6e 22 20 22 65 6e 64 20 72 65 70 65 61 74 5c 6e 22 20 22 72 65 74	gedMail\"\n"."end.repeat\n"."ret
0f20	75 72 6e 20 74 68 65 4c 69 6e 6b 4c 69 73 74 20 61 73 20 73 74 72 69 6e 67 5c 6e 22 20 22 65 6e	urn.theLinkList.as.string\n"."en
0f40	64 20 74 65 6c 6c 22 5d 20 33 35 20 28 23 24 20 2e 20 32 32 38 37 29 5d 29 0a 23 40 34 30 31 20	d.tell"].35.(#$...2287)]).#@401.
0f60	43 72 65 61 74 65 20 6c 69 6e 6b 73 20 74 6f 20 74 68 65 20 6d 65 73 73 61 67 65 73 20 63 75 72	Create.links.to.the.messages.cur
0f80	72 65 6e 74 6c 79 20 73 65 6c 65 63 74 65 64 20 6f 72 20 66 6c 61 67 67 65 64 20 69 6e 20 4d 61	rently.selected.or.flagged.in.Ma
0fa0	69 6c 2e 61 70 70 2e 0a 54 68 69 73 20 77 69 6c 6c 20 75 73 65 20 41 70 70 6c 65 53 63 72 69 70	il.app..This.will.use.AppleScrip
0fc0	74 20 74 6f 20 67 65 74 20 74 68 65 20 6d 65 73 73 61 67 65 2d 69 64 20 61 6e 64 20 74 68 65 20	t.to.get.the.message-id.and.the.
0fe0	73 75 62 6a 65 63 74 20 6f 66 20 74 68 65 0a 6d 65 73 73 61 67 65 73 20 69 6e 20 4d 61 69 6c 2e	subject.of.the.messages.in.Mail.
1000	61 70 70 20 61 6e 64 20 6d 61 6b 65 20 61 20 6c 69 6e 6b 20 6f 75 74 20 6f 66 20 69 74 2e 0a 57	app.and.make.a.link.out.of.it..W
1020	68 65 6e 20 53 45 4c 45 43 54 2d 4f 52 2d 46 4c 41 47 20 69 73 20 22 73 22 2c 20 67 65 74 20 74	hen.SELECT-OR-FLAG.is."s",.get.t
1040	68 65 20 73 65 6c 65 63 74 65 64 20 6d 65 73 73 61 67 65 73 20 28 74 68 69 73 20 69 73 20 61 6c	he.selected.messages.(this.is.al
1060	73 6f 0a 74 68 65 20 64 65 66 61 75 6c 74 29 2e 20 20 57 68 65 6e 20 53 45 4c 45 43 54 2d 4f 52	so.the.default)...When.SELECT-OR
1080	2d 46 4c 41 47 20 69 73 20 22 66 22 2c 20 67 65 74 20 74 68 65 20 66 6c 61 67 67 65 64 20 6d 65	-FLAG.is."f",.get.the.flagged.me
10a0	73 73 61 67 65 73 2e 0a 54 68 65 20 4f 72 67 2d 73 79 6e 74 61 78 20 74 65 78 74 20 77 69 6c 6c	ssages..The.Org-syntax.text.will
10c0	20 62 65 20 70 75 73 68 65 64 20 74 6f 20 74 68 65 20 6b 69 6c 6c 20 72 69 6e 67 2c 20 61 6e 64	.be.pushed.to.the.kill.ring,.and
10e0	20 61 6c 73 6f 20 72 65 74 75 72 6e 65 64 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d	.also.returned...(defalias.'org-
1100	6d 61 63 2d 6d 65 73 73 61 67 65 2d 67 65 74 2d 6c 69 6e 6b 73 20 23 5b 28 26 6f 70 74 69 6f 6e	mac-message-get-links.#[(&option
1120	61 6c 20 73 65 6c 65 63 74 2d 6f 72 2d 66 6c 61 67 29 20 22 08 5c 32 30 36 05 00 5c 33 30 36 10	al.select-or-flag).".\206..\306.
1140	5c 33 30 37 5c 33 31 30 21 5c 32 31 30 08 5c 33 30 36 5c 32 33 30 5c 32 30 33 15 00 5c 33 31 31	\307\310!\210.\306\230\203..\311
1160	20 5c 32 30 32 23 00 08 5c 33 31 32 5c 32 33 30 5c 32 30 33 20 00 5c 33 31 33 20 5c 32 30 32 23	.\202#..\312\230\203..\313.\202#
1180	00 5c 33 31 34 5c 33 31 35 21 19 5c 33 31 36 5c 33 31 37 5c 33 32 30 09 5c 33 32 31 5c 22 5c 22	.\314\315!.\316\317\320.\321\"\"
11a0	1a 5c 33 32 32 5c 32 31 31 1b 1c 5c 33 32 32 5c 32 31 31 1d 1e 1a 5c 33 32 32 5c 32 31 31 1e 1b	.\322\211..\322\211...\322\211..
11c0	1e 1c 5c 33 32 32 1e 1d 5c 6e 5c 32 30 33 6b 00 5c 33 32 30 5c 6e 5c 32 31 31 41 12 40 5c 33 32	..\322..\n\203k.\320\n\211A.@\32
11e0	33 5c 22 5c 32 31 31 13 40 14 0b 5c 32 31 31 1e 1e 41 40 29 15 5c 66 5c 33 32 34 5c 32 33 30 5c	3\"\211.@..\211..A@).\f\324\230\
1200	32 30 34 3e 00 5c 33 32 35 5c 66 0d 5c 22 5c 32 31 31 16 1a 0e 1d 42 16 1d 5c 32 30 32 3e 00 5c	204>.\325\f.\"\211....B..\202>.\
1220	33 32 36 5c 33 32 37 0e 1d 5c 33 33 30 23 16 1c 5c 33 33 31 0e 1c 21 5c 32 31 30 0e 1c 2e 09 5c	326\327..\330#..\331..!\210....\
1240	32 30 37 22 20 5b 73 65 6c 65 63 74 2d 6f 72 2d 66 6c 61 67 20 61 73 2d 6c 69 6e 6b 2d 6c 69 73	207".[select-or-flag.as-link-lis
1260	74 20 6c 69 6e 6b 2d 6c 69 73 74 20 73 70 6c 69 74 2d 6c 69 6e 6b 20 55 52 4c 20 64 65 73 63 72	t.link-list.split-link.URL.descr
1280	69 70 74 69 6f 6e 20 22 73 22 20 6d 65 73 73 61 67 65 20 22 41 70 70 6c 65 53 63 72 69 70 74 3a	iption."s".message."AppleScript:
12a0	20 73 65 61 72 63 68 69 6e 67 20 6d 61 69 6c 62 6f 78 65 73 2e 2e 2e 22 20 61 73 2d 67 65 74 2d	.searching.mailboxes...".as-get-
12c0	73 65 6c 65 63 74 65 64 2d 6d 61 69 6c 20 22 66 22 20 61 73 2d 67 65 74 2d 66 6c 61 67 67 65 64	selected-mail."f".as-get-flagged
12e0	2d 6d 61 69 6c 20 65 72 72 6f 72 20 22 50 6c 65 61 73 65 20 73 65 6c 65 63 74 20 5c 22 73 5c 22	-mail.error."Please.select.\"s\"
1300	20 6f 72 20 5c 22 66 5c 22 22 20 6d 61 70 63 61 72 20 23 5b 28 78 29 20 22 5c 33 30 31 5c 33 30	.or.\"f\"".mapcar.#[(x)."\301\30
1320	32 08 5c 22 5c 32 30 33 5c 66 00 5c 33 30 33 5c 33 30 34 08 5c 22 10 08 5c 32 30 37 22 20 5b 78	2.\"\203\f.\303\304.\"..\207".[x
1340	20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 5c 22 5c 5c 28 2e 2a 5c 5c 29 5c 22 5c 5c	.string-match."\\`\"\\(.*\\)\"\\
1360	27 22 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 5d 20 33 5d 20 73 70 6c 69 74 2d 73 74 72 69	'".match-string.1].3].split-stri
1380	6e 67 20 22 5b 0d 5c 6e 5d 2b 22 20 6e 69 6c 20 22 3a 3a 73 70 6c 69 74 3a 3a 22 20 22 22 20 6f	ng."[.\n]+".nil."::split::"."".o
13a0	72 67 2d 6d 61 6b 65 2d 6c 69 6e 6b 2d 73 74 72 69 6e 67 20 6d 61 70 63 6f 6e 63 61 74 20 69 64	rg-make-link-string.mapconcat.id
13c0	65 6e 74 69 74 79 20 22 5c 6e 22 20 6b 69 6c 6c 2d 6e 65 77 20 6f 72 67 6c 69 6e 6b 20 6f 72 67	entity."\n".kill-new.orglink.org
13e0	6c 69 6e 6b 2d 69 6e 73 65 72 74 20 72 74 6e 20 6f 72 67 6c 69 6e 6b 2d 6c 69 73 74 20 78 5d 20	link-insert.rtn.orglink-list.x].
1400	36 20 28 23 24 20 2e 20 33 39 33 36 29 20 22 73 4c 69 6e 6b 20 74 6f 20 28 73 29 65 6c 65 63 74	6.(#$...3936)."sLink.to.(s)elect
1420	65 64 20 6f 72 20 28 66 29 6c 61 67 67 65 64 20 6d 65 73 73 61 67 65 73 3a 20 22 5d 29 0a 23 40	ed.or.(f)lagged.messages:."]).#@
1440	31 38 35 20 49 6e 73 65 72 74 20 61 20 6c 69 6e 6b 20 74 6f 20 74 68 65 20 6d 65 73 73 61 67 65	185.Insert.a.link.to.the.message
1460	73 20 63 75 72 72 65 6e 74 6c 79 20 73 65 6c 65 63 74 65 64 20 69 6e 20 4d 61 69 6c 2e 61 70 70	s.currently.selected.in.Mail.app
1480	2e 0a 54 68 69 73 20 77 69 6c 6c 20 75 73 65 20 41 70 70 6c 65 53 63 72 69 70 74 20 74 6f 20 67	..This.will.use.AppleScript.to.g
14a0	65 74 20 74 68 65 20 6d 65 73 73 61 67 65 2d 69 64 20 61 6e 64 20 74 68 65 20 73 75 62 6a 65 63	et.the.message-id.and.the.subjec
14c0	74 20 6f 66 20 74 68 65 0a 61 63 74 69 76 65 20 6d 61 69 6c 20 69 6e 20 4d 61 69 6c 2e 61 70 70	t.of.the.active.mail.in.Mail.app
14e0	20 61 6e 64 20 6d 61 6b 65 20 61 20 6c 69 6e 6b 20 6f 75 74 20 6f 66 20 69 74 2e 1f 0a 28 64 65	.and.make.a.link.out.of.it...(de
1500	66 61 6c 69 61 73 20 27 6f 72 67 2d 6d 61 63 2d 6d 65 73 73 61 67 65 2d 69 6e 73 65 72 74 2d 73	falias.'org-mac-message-insert-s
1520	65 6c 65 63 74 65 64 20 23 5b 6e 69 6c 20 22 5c 33 30 30 5c 33 30 31 21 63 5c 32 30 37 22 20 5b	elected.#[nil."\300\301!c\207".[
1540	6f 72 67 2d 6d 61 63 2d 6d 65 73 73 61 67 65 2d 67 65 74 2d 6c 69 6e 6b 73 20 22 73 22 5d 20 32	org-mac-message-get-links."s"].2
1560	20 28 23 24 20 2e 20 35 31 38 38 29 20 6e 69 6c 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72	.(#$...5188).nil]).(defalias.'or
1580	67 2d 6d 61 63 2d 6d 65 73 73 61 67 65 2d 69 6e 73 65 72 74 2d 6c 69 6e 6b 20 27 6f 72 67 2d 6d	g-mac-message-insert-link.'org-m
15a0	61 63 2d 6d 65 73 73 61 67 65 2d 69 6e 73 65 72 74 2d 73 65 6c 65 63 74 65 64 29 0a 23 40 32 36	ac-message-insert-selected).#@26
15c0	38 20 41 73 6b 73 20 66 6f 72 20 61 6e 20 6f 72 67 20 62 75 66 66 65 72 20 61 6e 64 20 61 20 68	8.Asks.for.an.org.buffer.and.a.h
15e0	65 61 64 69 6e 67 20 77 69 74 68 69 6e 20 69 74 2c 20 61 6e 64 20 72 65 70 6c 61 63 65 20 6d 65	eading.within.it,.and.replace.me
1600	73 73 61 67 65 20 6c 69 6e 6b 73 2e 0a 49 66 20 68 65 61 64 69 6e 67 20 65 78 69 73 74 73 2c 20	ssage.links..If.heading.exists,.
1620	64 65 6c 65 74 65 20 61 6c 6c 20 6d 65 73 73 61 67 65 3a 2f 2f 20 6c 69 6e 6b 73 20 77 69 74 68	delete.all.message://.links.with
1640	69 6e 20 68 65 61 64 69 6e 67 27 73 20 66 69 72 73 74 0a 6c 65 76 65 6c 2e 20 20 49 66 20 68 65	in.heading's.first.level...If.he
1660	61 64 69 6e 67 20 64 6f 65 73 6e 27 74 20 65 78 69 73 74 2c 20 63 72 65 61 74 65 20 69 74 20 61	ading.doesn't.exist,.create.it.a
1680	74 20 70 6f 69 6e 74 2d 6d 61 78 2e 20 20 49 6e 73 65 72 74 0a 6c 69 73 74 20 6f 66 20 6d 65 73	t.point-max...Insert.list.of.mes
16a0	73 61 67 65 3a 2f 2f 20 6c 69 6e 6b 73 20 74 6f 20 66 6c 61 67 67 65 64 20 6d 61 69 6c 20 61 66	sage://.links.to.flagged.mail.af
16c0	74 65 72 20 68 65 61 64 69 6e 67 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 6d 61 63	ter.heading...(defalias.'org-mac
16e0	2d 6d 65 73 73 61 67 65 2d 69 6e 73 65 72 74 2d 66 6c 61 67 67 65 64 20 23 5b 28 6f 72 67 2d 62	-message-insert-flagged.#[(org-b
1700	75 66 66 65 72 20 6f 72 67 2d 68 65 61 64 69 6e 67 29 20 22 72 08 71 5c 32 31 30 65 62 5c 32 31	uffer.org-heading)."r.q\210eb\21
1720	30 5c 33 30 34 5c 33 30 35 19 1a 5c 33 30 36 0b 5c 33 30 37 5c 33 30 34 23 5c 32 30 33 46 00 6d	0\304\305..\306.\307\304#\203F.m
1740	5c 32 30 34 3d 00 5c 32 31 32 5c 33 31 30 09 5c 32 31 32 5c 33 31 31 20 29 5c 33 30 34 23 5c 32	\204=.\212\310.\212\311.)\304#\2
1760	30 33 2c 00 5c 33 31 32 5c 32 32 34 5c 33 31 32 5c 32 32 35 7c 5c 32 31 30 5c 32 30 32 18 00 5c	03,.\312\224\312\225|\210\202..\
1780	33 31 33 5c 33 31 34 5c 33 31 35 21 5c 32 36 31 02 5c 32 31 30 29 5c 33 31 36 5c 33 31 37 60 5c	313\314\315!\261.\210)\316\317`\
17a0	33 31 31 20 23 5c 32 30 32 58 00 5c 33 31 33 5c 33 31 34 5c 33 31 35 21 5c 32 36 31 02 5c 32 30	311.#\202X.\313\314\315!\261.\20
17c0	32 58 00 64 62 5c 32 31 30 5c 33 31 33 63 5c 32 31 30 5c 33 32 30 5c 33 30 37 5c 33 30 34 5c 22	2X.db\210\313c\210\320\307\304\"
17e0	5c 32 31 30 0b 5c 33 31 33 5c 33 31 34 5c 33 31 35 21 5c 32 36 31 03 2b 5c 32 30 37 22 20 5b 6f	\210.\313\314\315!\261.+\207".[o
1800	72 67 2d 62 75 66 66 65 72 20 6d 65 73 73 61 67 65 2d 72 65 20 69 73 65 61 72 63 68 2d 66 6f 72	rg-buffer.message-re.isearch-for
1820	77 61 72 64 20 6f 72 67 2d 68 65 61 64 69 6e 67 20 74 20 22 5c 5c 5b 5c 5c 5b 5c 5c 28 6d 65 73	ward.org-heading.t."\\[\\[\\(mes
1840	73 61 67 65 3a 5c 5c 29 5c 5c 28 5b 5e 5d 5d 2b 5c 5c 29 5c 5c 5d 5c 5c 28 5c 5c 5b 5c 5c 28 5b	sage:\\)\\([^]]+\\)\\]\\(\\[\\([
1860	5e 5d 5d 2b 5c 5c 29 5c 5c 5d 5c 5c 29 3f 5c 5c 5d 22 20 6f 72 67 2d 67 6f 74 6f 2d 6c 6f 63 61	^]]+\\)\\]\\)?\\]".org-goto-loca
1880	6c 2d 73 65 61 72 63 68 2d 68 65 61 64 69 6e 67 73 20 6e 69 6c 20 72 65 2d 73 65 61 72 63 68 2d	l-search-headings.nil.re-search-
18a0	66 6f 72 77 61 72 64 20 6f 75 74 6c 69 6e 65 2d 6e 65 78 74 2d 68 65 61 64 69 6e 67 20 30 20 22	forward.outline-next-heading.0."
18c0	5c 6e 22 20 6f 72 67 2d 6d 61 63 2d 6d 65 73 73 61 67 65 2d 67 65 74 2d 6c 69 6e 6b 73 20 22 66	\n".org-mac-message-get-links."f
18e0	22 20 66 6c 75 73 68 2d 6c 69 6e 65 73 20 22 5e 24 22 20 6f 72 67 2d 69 6e 73 65 72 74 2d 68 65	".flush-lines."^$".org-insert-he
1900	61 64 69 6e 67 5d 20 34 20 28 23 24 20 2e 20 35 35 37 30 29 20 22 62 42 75 66 66 65 72 20 69 6e	ading].4.(#$...5570)."bBuffer.in
1920	20 77 68 69 63 68 20 74 6f 20 69 6e 73 65 72 74 20 6c 69 6e 6b 73 3a 20 5c 6e 73 48 65 61 64 69	.which.to.insert.links:.\nsHeadi
1940	6e 67 20 61 66 74 65 72 20 77 68 69 63 68 20 74 6f 20 69 6e 73 65 72 74 20 6c 69 6e 6b 73 3a 20	ng.after.which.to.insert.links:.
1960	22 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 6f 72 67 2d 6d 61 63 2d 6d 65 73 73 61 67 65 29 0a	"]).(provide.'org-mac-message).