;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:07:42 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-mac-message.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\310\303\316\317&\210\320\321\322\"\210\323\324!\204*\325\324\326\"\210\304\207" [require org custom-declare-group org-mac-flagged-mail nil "Options concerning linking to flagged Mail.app messages." :tag "Org Mail.app" :group org-link custom-declare-variable org-mac-mail-account "customize" "The Mail.app account in which to search for flagged messages." :type string org-add-link-type "message" org-mac-message-open fboundp do-applescript defalias #[(script) "\304\211\211\305\306\"\203\307\310\311\211$\202\305\312\n#\203.\313\314\224\\\307\315\311\211$\202\316\312Q\317	!\320\321!\320Q+\207" [return cmd start script nil string-match "\n" replace-match "
" t "'" 2 0 "\\'" "osascript -e '" shell-command-to-string "\"" org-trim] 5]] 8)
#@101 Visit the message with the given MESSAGE-ID.
This will use the command `open' with the message URL.
(defalias 'org-mac-message-open #[(message-id) "\301\302P\303\304\305\306\303O\307Q$\207" [message-id start-process "open message:" nil "open" "message://<" 2 ">"] 8 (#$ . 1405)])
#@63 AppleScript to create links to selected messages in Mail.app.
(defalias 'as-get-selected-mail #[nil "\300\301!\207" [do-applescript "tell application \"Mail\"\nset theLinkList to {}\nset theSelection to selection\nrepeat with theMessage in theSelection\nset theID to message id of theMessage\nset theSubject to subject of theMessage\nset theLink to \"message://\" & theID & \"::split::\" & theSubject & \"\n\"\ncopy theLink to end of theLinkList\nend repeat\nreturn theLinkList as string\nend tell"] 2 (#$ . 1693)])
#@62 AppleScript to create links to flagged messages in Mail.app.
(defalias 'as-get-flagged-mail #[nil "\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\311\211\310\334\211\335\336\260\"!\207" [org-mac-mail-account do-applescript "tell application \"System Events\"\n" "set growlHelpers to the name of every process whose creator type contains \"GRRR\"\n" "if (count of growlHelpers) > 0 then\n" "set growlHelperApp to item 1 of growlHelpers\n" "else\n" "set growlHelperApp to \"\"\n" "end if\n" "end tell\n" "tell application \"Mail\"\n" "set theMailboxes to every mailbox of account \"" "\"\n" "set theLinkList to {}\n" "repeat with aMailbox in theMailboxes\n" "set theSelection to (every message in aMailbox whose flagged status = true)\n" "repeat with theMessage in theSelection\n" "set theID to message id of theMessage\n" "set theSubject to subject of theMessage\n" "set theLink to \"message://\" & theID & \"::split::\" & theSubject & \"\n\"\n" "copy theLink to end of theLinkList\n" "if growlHelperApp is not \"\" then\n" "tell application \"GrowlHelperApp\"\n" "tell application growlHelperApp\n" "set the allNotificationsList to {\"FlaggedMail\"}\n" "set the enabledNotificationsList to allNotificationsList\n" "register as application \"FlaggedMail\" all notifications allNotificationsList default notifications enabledNotificationsList icon of application \"Mail\"\n" "notify with name \"FlaggedMail\" title \"Importing flagged message\" description theSubject application name \"FlaggedMail\"\n" "end repeat\n" "return theLinkList as string\n" "end tell"] 35 (#$ . 2215)])
#@401 Create links to the messages currently selected or flagged in Mail.app.
This will use AppleScript to get the message-id and the subject of the
messages in Mail.app and make a link out of it.
When SELECT-OR-FLAG is "s", get the selected messages (this is also
the default).  When SELECT-OR-FLAG is "f", get the flagged messages.
The Org-syntax text will be pushed to the kill ring, and also returned.
(defalias 'org-mac-message-get-links #[(&optional select-or-flag) "\206\306\307\310!\210\306\230\203\311 \202#\312\230\203 \313 \202#\314\315!\316\317\320	\321\"\"\322\211\322\211\322\211\322\n\203k\320\n\211A@\323\"\211@\211A@)\f\324\230\204>\325\f
\"\211B\202>\326\327\330#\331!\210.	\207" [select-or-flag as-link-list link-list split-link URL description "s" message "AppleScript: searching mailboxes..." as-get-selected-mail "f" as-get-flagged-mail error "Please select \"s\" or \"f\"" mapcar #[(x) "\301\302\"\203\f\303\304\"\207" [x string-match "\\`\"\\(.*\\)\"\\'" match-string 1] 3] split-string "[
\n]+" nil "::split::" "" org-make-link-string mapconcat identity "\n" kill-new orglink orglink-insert rtn orglink-list x] 6 (#$ . 3864) "sLink to (s)elected or (f)lagged messages: "])
#@185 Insert a link to the messages currently selected in Mail.app.
This will use AppleScript to get the message-id and the subject of the
active mail in Mail.app and make a link out of it.
(defalias 'org-mac-message-insert-selected #[nil "\300\301!c\207" [org-mac-message-get-links "s"] 2 (#$ . 5116) nil])
(defalias 'org-mac-message-insert-link 'org-mac-message-insert-selected)
#@268 Asks for an org buffer and a heading within it, and replace message links.
If heading exists, delete all message:// links within heading's first
level.  If heading doesn't exist, create it at point-max.  Insert
list of message:// links to flagged mail after heading.
(defalias 'org-mac-message-insert-flagged #[(org-buffer org-heading) "rq\210eb\210\304\305\306\307\304#\203Fm\204=\212\310	\212\311 )\304#\203,\312\224\312\225|\210\202\313\314\315!\261\210)\316\317`\311 #\202X\313\314\315!\261\202Xdb\210\313c\210\320\307\304\"\210\313\314\315!\261+\207" [org-buffer message-re isearch-forward org-heading t "\\[\\[\\(message:\\)\\([^]]+\\)\\]\\(\\[\\([^]]+\\)\\]\\)?\\]" org-goto-local-search-headings nil re-search-forward outline-next-heading 0 "\n" org-mac-message-get-links "f" flush-lines "^$" org-insert-heading] 4 (#$ . 5498) "bBuffer in which to insert links: \nsHeading after which to insert links: "])
(provide 'org-mac-message)