JezK
Edit File: org-vm.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:53:42 2026 ;;; 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 \324 6\316\f\325\"\211 7\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)