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). |