;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310%\210\303\311\305\312#\207" [require ol org org-link-set-parameters "vm" :follow org-vm-open :store org-vm-store-link "vm-imap" org-vm-imap-open] 6) #@41 Store a link to a VM folder or message. (defalias 'org-vm-store-link #[nil "\306=\204\f\307=\205\312\310 \311\216\312 \210\n*\205\312\307=\203\"\313 \210\314 \210\212\312 \210 @\315\f!\316\f\317\"0\316\f\320\"1\321\f!2\322 \203J\323\202K\3243\316\f\325\"4\326\21156\3267\322 \203p\327p!8\3308!5)\202\220\331\n!59\203\220\332\333\3349!P5\"\203\220\335\336\337\2115$5\340\341\3422#2\343\3443\3451\3460\347 \3502\3514&\f\210\352 63\353P5\3542R7\355\3567\3576$\2107. \207" [major-mode #1=#:wconfig buffer-file-name vm-message-pointer message subject vm-summary-mode vm-presentation-mode current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] 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" nil vm-imap-find-spec-for-buffer vm-imap-folder-for-spec abbreviate-file-name string-match "^" regexp-quote replace-match "" t org-unbracket-string "<" ">" org-store-link-props :type :from :to :subject :message-id :date org-email-link-description ":" "#" org-add-link-props :link :description to from message-id link-type date folder desc link spec vm-folder-directory] 14 (#$ . 298)]) #@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 (#$ . 1570)]) #@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-link-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 (#$ . 1905)]) #@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-link-add-angle-brackets org-link-frame-setup] 8 (#$ . 2492)]) #@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 !P!\204 \313\314!\210\315 \210\316 \210\317 \210\320 )\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] 4 (#$ . 3080)]) (provide 'ol-vm)