;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:11 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-wl.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\305\306\307\310\311&\210\312\313\314\315\310\303\316\317&\210\312\320\304\321\310\303\322\323\316\317&	\210\312\324\304\325\310\303\322\323\316\317&	\210\312\326\304\327\316\317\322\323\310\303&	\210\312\330\314\331\316\317\322\323\310\303&	\210\312\332\304\333\316\334\322\323\310\303&	\207" [require 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." :version "24.1" 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." directory] 10)
#@63 List of folder indicators.  See Wanderlust manual, section 3.
(defconst org-wl-folder-types '(("%" . imap) ("-" . nntp) ("+" . mh) ("=" . spool) ("$" . archive) ("&" . pop) ("@" . shimbun) ("[" . search) ("*" . multi) ("/" . filter) ("|" . pipe) ("'" . internal)) (#$ . 1656))
(byte-code "\300\301\302\"\210\303\304\305\"\207" [org-add-link-type "wl" org-wl-open add-hook org-store-link-functions org-wl-store-link] 3)
#@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 (#$ . 2082)])
#@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 (#$ . 2533)])
#@41 Store a link to a WL message or folder.
(defalias 'org-wl-store-link #[nil "m?\205\301>\203\302 \207\303=\203\304 \207\305\207" [major-mode (wl-summary-mode mime-view-mode) org-wl-store-link-message wl-folder-mode org-wl-store-link-folder nil] 2 (#$ . 2817)])
#@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 (#$ . 3091)])
#@31 Store a link to a WL message.
(defalias 'org-wl-store-link-message #[nil "\212\306=\203p\202\307\301!\205	\211\205\213
r\nq\210\310 \311!
\2038\f\2038\fA@\312\232\2038\313\f8\202:>?\314?!@\315\316!\203P\316A\"\202U\317\320 \"B\321\322B\"\323!C\321\324B\"\321\325B\"\321\326B\"\321\327B\"\321\330B\"\211\205\224\331\332\333!\334!\"D\205\245\331\332\333\211\"\334!\"E\335\211FG\336\337G\335$\210@\340=\203\327H\203\327\314?!\340=\203\327\341\342\343?#?\202\303@\344=\203
I\203
\203
\345\346\347\350\351\352\353\354\355C\356&\210\202p
@\357=\203E
J\203E
\360\361\362?\"\203
\363\202 
\364\365!\"G\345\346\347\350G\351\352\353\354\355C\356&\210\202p
\345\346\366\352\353\356\354\355C&\f\210\367 F\370?\371CRG\372\350G\351F$\210\203\202
\372\373\374D\375E&\210G\206\211
.*\207" [major-mode wl-message-buffer-cur-summary-buffer buf msgnum mark-info org-wl-link-to-refile-destination wl-summary-mode boundp wl-summary-message-number wl-summary-registered-temp-mark "o" 2 org-wl-folder-type fboundp elmo-message-entity elmo-msgdb-overview-get-entity wl-summary-buffer-msgdb org-wl-message-field message-id org-remove-angle-brackets from to xref subject date format-time-string org-time-stamp-format t date-to-time 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 string-match "gmane\\." "http://mid.gmane.org/%s" "http://groups.google.com/groups/search?as_umsgid=%s" org-fixup-message-id-for-http "wl" org-email-link-description "wl:" "#" org-add-link-props :date :date-timestamp :date-timestamp-inactive wl-summary-buffer-folder-name folder-name folder-type wl-summary-buffer-elmo-folder wl-message-entity message-id-no-brackets date-ts date-ts-ia desc link org-wl-link-remove-filter org-wl-shimbun-prefer-web-links org-wl-nntp-prefer-web-links] 18 (#$ . 3491)])
#@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 (#$ . 5542)])
#@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) "\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\236\332\f\333'()\334*\311)('#,\203\217\335\336\f!!\210\202\234\337\340\f!!\204\234\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-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 start string regexp inhibit-changing-match-data] 5 (#$ . 5927)])
(provide 'org-wl)