;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\311\312&\210\313\314\315\316\311\304\317\320&\210\313\321\305\322\311\304\317\320&\210\313\323\305\324\311\304\317\320&\210\313\325\305\326\317\320\311\304&\210\313\327\315\330\317\320\311\304&\210\313\331\305\332\317\333\311\304&\207" [require ol org custom-declare-group org-wl nil "Options concerning the Wanderlust link." :tag "Org Startup" :group org-link custom-declare-variable org-wl-link-to-refile-destination t "Create a link to the refile destination if the message is marked as refile." :type boolean org-wl-link-remove-filter "Remove filter condition if message is filter folder." org-wl-shimbun-prefer-web-links "If non-nil create web links for shimbun messages." org-wl-nntp-prefer-web-links "If non-nil create web links for nntp messages.\nWhen folder name contains string \"gmane\" link to gmane,\ngooglegroups otherwise." org-wl-disable-folder-check "Disable check for new messages when open a link." org-wl-namazu-default-index "Default namazu search index." (choice (const nil) (directory))] 8) #@63 List of folder indicators. See Wanderlust manual, section 3. (defconst org-wl-folder-types '(("%" . imap) ("-" . nntp) ("+" . mh) ("." . maildir) ("=" . spool) ("$" . archive) ("&" . pop) ("@" . shimbun) ("rss" . rss) ("[" . search) ("*" . multi) ("/" . filter) ("|" . pipe) ("'" . internal)) (#$ . 1172)) (org-link-set-parameters "wl" :follow 'org-wl-open :store 'org-wl-store-link) #@156 Return symbol that indicates the type of FOLDER. FOLDER is the wanderlust folder name. The first character of the folder name determines the folder type. (defalias 'org-wl-folder-type #[(folder) "\304\305O\306 \n\"A\211\2049G\307Y\203#\304\307O\310\230\203#\311\2028G\312Y\2037\304\312O\313\230\2037\314\2028\315 *\207" [folder indicator org-wl-folder-types type 0 1 assoc 5 "file:" file 7 "access:" access nil] 4 (#$ . 1564)]) #@116 Return content of FIELD in ENTITY. FIELD is a symbol of a rfc822 message header field. ENTITY is a message entity. (defalias 'org-wl-message-field #[(field entity) "\303 \304#\211<\203\n@\202\n)\207" [entity field content elmo-message-entity-field string] 5 (#$ . 2015)]) #@41 Store a link to a WL message or folder. (defalias 'org-wl-store-link #[nil "m?\205\301\267\202\302 \207\303 \207\304\207" [major-mode #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (wl-summary-mode 11 mime-view-mode 11 wl-folder-mode 14)) org-wl-store-link-message org-wl-store-link-folder nil] 2 (#$ . 2299)]) #@30 Store a link to a WL folder. (defalias 'org-wl-store-link-folder #[nil "\304 \305!\306P\212\307 \210\310 \205\311 !?\205&\312\313\314\315 \316\n&\210\n,\207" [folder petname link wl-folder-group-regexp wl-folder-get-entity-from-buffer wl-folder-get-petname "wl:" beginning-of-line wl-folder-buffer-group-p looking-at org-store-link-props :type "wl" :description :link] 7 (#$ . 2659)]) #@31 Store a link to a WL message. (defalias 'org-wl-store-link-message #[nil "\212\306=\203 p\202\307\301!\205 \211\205kr\nq\210\310 \311 ! \2038\f\2038\fA@\312\232\2038\313\f8\202:;<\314 \"\202U\317 \320 \"?\321\322?\"\323\324\325#@\321\326?\"\321\327?\"\321\330?\"\321\331?\"\321\332?\"\333\211AB\334\335G\333$\210=\336=\203\271C\203\271\314" from to xref subject date nil set-text-properties 0 filter replace-regexp-in-string "^/[^/]+/" "" shimbun org-store-link-props :type "http" :link :description :from :to :message-id :message-id-no-brackets :subject nntp format "gmane\\." t string-match "http://mid.gmane.org/%s" "https://groups.google.com/groups/search?as_umsgid=%s" url-encode-url "wl" org-email-link-description "wl:" "#" org-add-link-props :date wl-summary-buffer-folder-name folder-name folder-type wl-summary-buffer-elmo-folder wl-message-entity message-id-no-brackets desc link org-wl-link-remove-filter org-wl-shimbun-prefer-web-links org-wl-nntp-prefer-web-links inhibit-changing-match-data] 18 (#$ . 3059)]) #@42 Follow the nntp: link specified by PATH. (defalias 'org-wl-open-nntp #[(path) "\306\307\"\306\310 8\311\"\312 8\313 8\314\315 \316\nA\203&\306\n@\316\"@\202'\317 \310 8\230\2033\317\202<\311\nA\206;\n@P\f\203F\320\fP\202G\317\260!,\207" [path spec server group article elmo-nntp-default-server split-string "/" 2 "@" 3 4 org-wl-open "-" ":" "" "#"] 8 (#$ . 4948)]) #@259 Follow the WL message link specified by PATH. When called with one prefix, open message in namazu search folder with `org-wl-namazu-default-index' as search index. When called with two prefixes or `org-wl-namazu-default-index' is nil, ask for namazu index. (defalias 'org-wl-open #[(path &rest _) "\306\307!\210\203\f\310\202 \n\204\307 \210\311\312 \"\204 \313\314!\210\315\316 \"\315\317 \"#\203H\320\f\321#\322\232\203C$\203C$\202F\323\324!R\325\326 !!\204U\313\327 \"\210p\330 %&\331 !\210r&q\210%b\210)\f\205\227\332\f\333\334'\311#)\266\203\203\210\335\336\f!!\210\202\225\337\340\f!!\204\225\313\341\f\"\210\342 -\207" [org-wl-disable-folder-check wl-auto-check-folder-name wl-init path article folder require wl none string-match "\\`\\(\\(?:%#\\)?[^#]+\\)\\(#\\(.*\\)\\)?" error "Error in Wanderlust link" match-string 1 3 "[" "]" (4) read-directory-name "Namazu index: " elmo-folder-exists-p wl-folder-get-elmo-folder "No such folder: %s" point-marker wl-folder-goto-folder-subr "@" nil t wl-summary-jump-to-msg-by-message-id org-link-add-angle-brackets wl-summary-jump-to-msg string-to-number "No such message: %s" wl-summary-redisplay current-prefix-arg org-wl-namazu-default-index old-point old-buf inhibit-changing-match-data] 7 (#$ . 5333)]) (provide 'ol-wl)