;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313\314\315& \210\302\316\317\320\306\307\310\311\312\321\314\315& \210\322\316\323\324#\210\325\326\327\330\331\332%\207" [require ol custom-declare-variable org-notmuch-open-function 'org-notmuch-follow-link "Function used to follow notmuch links.\n\nShould accept a notmuch search string as the sole argument." :group org-notmuch :version "24.4" :package-version (Org . "8.0") :type function org-notmuch-search-open-function 'org-notmuch-search-follow-link "Function used to follow notmuch-search links.\nShould accept a notmuch search string as the sole argument." (Org . "8.0") make-obsolete-variable nil "9.3" org-link-set-parameters "notmuch" :follow org-notmuch-open :store org-notmuch-store-link] 12) #@46 Store a link to a notmuch search or message. (defalias 'org-notmuch-store-link #[nil "\306>\205W\307\310!\311 \312 \313 \314 \315\316\203\317\202 \320\321\316\322\321##\266\202\315\211 !\323\324\325\326\f\327 \330 \331\n\332 &\f\210\333  \334 P!\335\336!\337 $\210!.\207" [major-mode message-id subject to from date (notmuch-show-mode notmuch-tree-mode) notmuch-show-get-message-id t notmuch-show-get-subject notmuch-show-get-to notmuch-show-get-from notmuch-show-get-date nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" org-link-store-props :type "notmuch" :from :to :date :subject :message-id org-link-email-description "notmuch:id:" org-link-add-props :link :description desc link] 14 (#$ . 859)]) #@50 Follow a notmuch message link specified by PATH. (defalias 'org-notmuch-open #[(path _) " !\207" [org-notmuch-open-function path] 2 (#$ . 1619)]) #@109 Follow a notmuch link to SEARCH. Can link to more than one message, if so all matching messages are shown. (defalias 'org-notmuch-follow-link #[(search) "\301\302!\210\303!\207" [search require notmuch notmuch-show] 2 (#$ . 1773)]) (org-link-set-parameters "notmuch-search" :follow 'org-notmuch-search-open :store 'org-notmuch-search-store-link) #@46 Store a link to a notmuch search or message. (defalias 'org-notmuch-search-store-link #[nil "\304=\205\305 P\306 P\307\310\311\312 \313\n&\210 *\207" [major-mode notmuch-search-query-string desc link notmuch-search-mode "notmuch-search:" "Notmuch search: " org-link-store-props :type "notmuch-search" :link :description] 7 (#$ . 2127)]) #@50 Follow a notmuch message link specified by PATH. (defalias 'org-notmuch-search-open #[(path _) "\301\302\"\210\303!\207" [path message "%s" org-notmuch-search-follow-link] 3 (#$ . 2476)]) #@68 Follow a notmuch link by displaying SEARCH in notmuch-search mode. (defalias 'org-notmuch-search-follow-link #[(search) "\301\302!\210\303!\207" [search require notmuch notmuch-search] 2 (#$ . 2672)]) (org-link-set-parameters "notmuch-tree" :follow 'org-notmuch-tree-open :store 'org-notmuch-tree-store-link) #@46 Store a link to a notmuch search or message. (defalias 'org-notmuch-tree-store-link #[nil "\303=\205\304\305 P\306\305 P\307\310\311\312\n\313 &\210\n*\207" [major-mode desc link notmuch-tree-mode "notmuch-tree:" notmuch-tree-get-query "Notmuch tree: " org-link-store-props :type "notmuch-tree" :link :description] 7 (#$ . 2988)]) #@50 Follow a notmuch message link specified by PATH. (defalias 'org-notmuch-tree-open #[(path _) "\301\302\"\210\303!\207" [path message "%s" org-notmuch-tree-follow-link] 3 (#$ . 3331)]) #@66 Follow a notmuch link by displaying SEARCH in notmuch-tree mode. (defalias 'org-notmuch-tree-follow-link #[(search) "\301\302!\210\303!\207" [search require notmuch notmuch-tree] 2 (#$ . 3523)]) (provide 'ol-notmuch)