;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:08 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-vm.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\"\210\302\305\306\"\210\307\310\311\"\207" [require org org-add-link-type "vm" org-vm-open "vm-imap" org-vm-imap-open add-hook org-store-link-functions org-vm-store-link] 3)
#@41 Store a link to a VM folder or message.
(defalias 'org-vm-store-link #[nil "\306=\204\f\307=\205\367\310 \311\216\312 \210\n*\205\367\307=\203\"\313 \210\314 \210\212\312 \210@\315\f!\316\f\317\"3\316\f\320\"4\321\f!5\322 \203J\323\202K\3246\316\f\325\"\2117\205`\326\327\330!\3317!\"87\205q\326\327\330\211\"\3317!\"9\332\211:;\332<\322 \203\220\333p!=\334=!:)\202\260\335\n!:>\203\260\336\337\340>!P:\"\203\260\341\342\330\211:$:\3435!5\344\3456\3464\3473\350
\3515&\n\2107\203\332\352\3537\3548\3559&\210\356 ;6\357P:\3605R<\352\361<\362;$\210<.
\207" [major-mode #1=#:wconfig buffer-file-name vm-message-pointer message subject vm-summary-mode vm-presentation-mode current-window-configuration ((set-window-configuration #1#)) vm-select-folder-buffer vm-summarize vm-follow-summary-cursor vm-su-subject vm-get-header-contents "To" "From" vm-su-message-id vm-imap-folder-p "vm-imap" "vm" "Date" format-time-string org-time-stamp-format t date-to-time nil vm-imap-find-spec-for-buffer vm-imap-folder-for-spec abbreviate-file-name string-match "^" regexp-quote replace-match "" org-remove-angle-brackets org-store-link-props :type :from :to :subject :message-id org-add-link-props :date :date-timestamp :date-timestamp-inactive org-email-link-description ":" "#" :link :description to from message-id link-type date date-ts date-ts-ia folder desc link spec vm-folder-directory] 12 (#$ . 765)])
#@45 Follow a VM message link specified by PATH.
(defalias 'org-vm-open #[(path) "\304\211\305\306\n\"\204\307\310!\210\311\312\n\"\311\313\n\"\314	#*\207" [article folder path current-prefix-arg nil string-match "\\`\\([^#]+\\)\\(#\\(.*\\)\\)?" error "Error in VM link" match-string 1 3 org-vm-follow-link] 4 (#$ . 2227)])
#@41 Follow a VM link to FOLDER and ARTICLE.
(defalias 'org-vm-follow-link #[(&optional folder article readonly) "\306\307!\210\310!\311\312	\"\203?\313\314	\"\206\315 \313\316	\"\313\317	\"\320\321!\2033\322\323\f\n$\202>\306\324!\210\322\323\f\n$+	\205U\307
\236A	\"\210\205U\325\310!!\207" [article folder file host user org-link-frame-setup require vm org-add-angle-brackets string-match "^//\\([a-zA-Z]+@\\)?\\([^:]+\\):\\(.*\\)" match-string 1 user-login-name 2 3 featurep tramp format "/%s@%s:%s" ange-ftp org-vm-select-message readonly] 5 (#$ . 2560)])
#@37 Follow a VM link to an IMAP folder.
(defalias 'org-vm-imap-open #[(path) "\306\307!\210\310\311\"\205C\312\313\"\312\314\"\312\315\"\316\317	!!\320\321\322\323\f\324\"\n\325\f\315\"B\"\326#\307\236A
!\210\205B\327\330!!-\207" [path account-name mailbox-name message-id account-spec mailbox-spec require vm-imap string-match "\\([^:]+\\):\\([^#]+\\)#?\\(.+\\)?" match-string 1 2 3 vm-imap-parse-spec-to-list vm-imap-spec-for-account mapconcat identity append butlast 4 last ":" org-vm-select-message org-add-angle-brackets org-link-frame-setup] 8 (#$ . 3142)])
#@58 Go to the message with message-id in the current folder.
(defalias 'org-vm-select-message #[(message-id) "\302\303!\210\304\305!\210\306 \210~\210\307eb\210\310\311\312\313	!Q!\204!\314\315!\210\316 \210\317 \210\320 \210\321 )\207" [case-fold-search message-id require vm-search sit-for 0.1 vm-select-folder-buffer t re-search-forward "^" "message-id: *" regexp-quote error "Could not find the specified message in this folder" vm-isearch-update vm-isearch-narrow vm-preview-current-message vm-summarize] 5 (#$ . 3723)])
(provide 'org-vm)