WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/org
Viewing File: /usr/share/emacs/24.3/lisp/org/org-mhe.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:50:08 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-mhe.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\"\210\315\316\317\"\207" [require org custom-declare-variable org-mhe-search-all-folders nil "Non-nil means the search for the mh-message may extend to all folders.\nWhen non-nil, the search for a message will extend to all other\nfolders if it cannot be found in the folder given in the link.\nSearching all folders may be slow with the default pick based\nsearch but is very efficient with one of the other search engines\nsupported by MH-E." :group org-link-follow :type boolean org-add-link-type "mhe" org-mhe-open add-hook org-store-link-functions org-mhe-store-link] 8)
#@44 Store a link to an MH-E folder or message.
(defalias 'org-mhe-store-link #[nil "\306\232\204\f\307\232\205\207\310 \311\216\312\313!\312\314!\312\315!\312\316!\312\317!\211'\2053\320\321\322!\323'!\"('\205D\320\321\322\211\"\323'!\")\324\211*+\325\326\327\330\n\331\332
\333\f&\n\210'\203l\334\335'\336(\337)&\210\340 +\341\342 \343\344\f!R*\334\345*\346+$\210*.\207" [major-mode #1=#:wconfig from to message-id subject mh-folder-mode mh-show-mode current-window-configuration ((set-window-configuration #1#)) org-mhe-get-header "From:" "To:" "Message-Id:" "Subject:" "Date:" format-time-string org-time-stamp-format t date-to-time nil org-store-link-props :type "mh" :from :to :subject :message-id org-add-link-props :date :date-timestamp :date-timestamp-inactive org-email-link-description "mhe:" org-mhe-get-message-real-folder "#" org-remove-angle-brackets :link :description date date-ts date-ts-ia link desc] 12 (#$ . 1206)])
#@48 Follow an MH-E message link specified by PATH.
(defalias 'org-mhe-open #[(path) "\303\211\304\305\n\"\204\306\307!\210\310\311\n\"\310\312\n\"\313	\"*\207" [article folder path nil string-match "\\`\\([^#]+\\)\\(#\\(.*\\)\\)?" error "Error in MH-E link" match-string 1 3 org-mhe-follow-link] 3 (#$ . 2176)])
#@104 Return the name of the real folder for the current message.
So if you use sequences, it will now work.
(defalias 'org-mhe-get-message-real-folder #[nil "\212\306\232\203	\202\f\n\307\304!\205\fGG^\307\304!\203N\f\310
O\230\203N\311\232\203I\312 \313\216\314\315\316!!\205E\317!\210\320 +\202O\320 \202O+\207" [major-mode mh-current-folder mh-show-folder-buffer folder mh-index-folder end-index mh-folder-mode boundp 0 mh-show-mode current-window-configuration ((set-window-configuration #1=#:wconfig)) nil buffer-live-p get-buffer pop-to-buffer org-mhe-get-message-folder-from-index #1# pop-up-frames] 4 (#$ . 2498)])
#@66 Return the name of the message folder in an index folder buffer.
(defalias 'org-mhe-get-message-folder-from-index #[nil "\212\300 \210\301\302\303\304#\205\305\306\307\310!\")\207" [mh-index-previous-folder re-search-forward "^\\(+.*\\)$" nil t message "%s" match-string 1] 4 (#$ . 3146)])
#@81 Return the name of the current message folder.
Be careful if you use sequences.
(defalias 'org-mhe-get-message-folder #[nil "\212\303\232\203	\202\f\n)\207" [major-mode mh-current-folder mh-show-folder-buffer mh-folder-mode] 2 (#$ . 3444)])
#@76 Return the number of the current message.
Be careful if you use sequences.
(defalias 'org-mhe-get-message-num #[nil "\212\301\232\203
\302\303!\202\304 )\207" [major-mode mh-folder-mode mh-get-msg-num nil mh-show-buffer-message-number] 2 (#$ . 3695)])
#@192 Return the field for HEADER of the message in folder mode.
This will create a show buffer for the corresponding message.  If
you have a better idea of how to do this then please let us know.
(defalias 'org-mhe-get-header #[(header) "\306 \307 \310\311P!\312r\nq\210\313	\"\210\f\314\232\203#\315 \210\202&\316 \210\nq\210\317
!\f\314\232\2039\320 \210\202<\321 \210\322!-\207" [folder num buffer header-field major-mode header org-mhe-get-message-folder org-mhe-get-message-num get-buffer-create "show-" nil mh-display-msg mh-folder-mode mh-header-display mh-show-header-display mh-get-header-field mh-show mh-show-show org-trim] 3 (#$ . 3958)])
#@308 Follow an MH-E link to FOLDER and ARTICLE.
If ARTICLE is nil FOLDER is shown.  If the configuration variable
`org-mhe-search-all-folders' is t and `mh-searcher' is pick,
ARTICLE is searched in all folders.  Indexed searches (swish++,
namazu, and others supported by MH-E) will always search in all
folders.
(defalias 'org-mhe-follow-link #[(folder article) "\305\306!\210\305\307!\210\305\310!\210\311 \210\204\312\313	!!\207\314 \210\n\315\232\203C\316!\307	\317D\"\210\203Y\320 \204Y\321 \210\307\322\317D\"\210\202Y\f\203T\307\322\f\323BC!\"\210\202Y\307\322\"\210\320 \203b\324\325!\207\321 \210\326\327!\207" [article folder mh-searcher org-mhe-search-all-folders mh-search-regexp-builder require mh-e mh-search mh-utils mh-find-path mh-visit-folder mh-normalize-folder-name mh-search-choose pick org-add-angle-brackets "--message-id" org-mhe-get-message-real-folder kill-this-buffer "+" message-id mh-show-msg 1 error "Message not found"] 5 (#$ . 4623)])
(provide 'org-mhe)
F1l3 Manager
