;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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\300\302!\210\303\304\305\306\307DD\310\311\312\313\314&\210\315\316\317\320\321\322%\207" [require org-macs ol custom-declare-variable org-mhe-search-all-folders funcall function #[0 "\300\207" [nil] 1] "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-link-set-parameters "mhe" :follow org-mhe-open :store org-mhe-store-link] 8) #@44 Store a link to an MH-E folder or message. (defalias 'org-mhe-store-link #[0 "\301=\204\f\302=\205^\303 \304\305\306\307\310!\311\"\312$\216\313\314!\313\315!\313\316!\313\317!\313\320!\321\211\322\323\324\325\n\326 \327\n\330 \331&\f\210\332 \262\333\334 \335\336\337\340\n#R\262\341\342\343$\210\266\207)\262\207" [major-mode mh-folder-mode mh-show-mode current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 org-mhe-get-header "From:" "To:" "Message-Id:" "Subject:" "Date:" nil org-link-store-props :type "mh" :from :to :date :subject :message-id org-link-email-description "mhe:" org-mhe-get-message-real-folder "#" org-unbracket-string "<" ">" org-link-add-props :link :description] 21 (#$ . 1108)]) #@61 Follow an MH-E message link specified by PATH. (fn PATH _) (defalias 'org-mhe-open #[514 "\300\211\301\302\"\204 \303\304!\210\305\306\"\262\305\307\"\262\310\"\207" [nil string-match "\\`\\([^#]+\\)\\(#\\(.*\\)\\)?" error "Error in MH-E link" match-string 1 3 org-mhe-follow-link] 7 (#$ . 1888)]) #@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 #[0 "\212\305=\203 \202\f\n\306\303!\205 GG^\306\303!\203U \307O\230\203U\310=\203P\311 \312\307\313\314\315!\316\"\317$\216\320\321\322!!\205J\323!\210\324 *\262\202V\324 \202V\266\202)\207" [major-mode mh-current-folder mh-show-folder-buffer mh-index-folder pop-up-frames mh-folder-mode boundp 0 mh-show-mode current-window-configuration make-byte-code "\301\300!\207" vconcat vector [set-window-configuration] 2 nil buffer-live-p get-buffer pop-to-buffer org-mhe-get-message-folder-from-index] 9 (#$ . 2202)]) #@66 Return the name of the message folder in an index folder buffer. (defalias 'org-mhe-get-message-folder-from-index #[0 "\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 (#$ . 2889)]) #@81 Return the name of the current message folder. Be careful if you use sequences. (defalias 'org-mhe-get-message-folder #[0 "\212\303=\203 \202\f\n)\207" [major-mode mh-current-folder mh-show-folder-buffer mh-folder-mode] 2 (#$ . 3187)]) #@76 Return the number of the current message. Be careful if you use sequences. (defalias 'org-mhe-get-message-num #[0 "\212\301=\203 \302\303!\202\304 )\207" [major-mode mh-folder-mode mh-get-msg-num nil mh-show-buffer-message-number] 2 (#$ . 3433)]) #@205 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. (fn HEADER) (defalias 'org-mhe-get-header #[257 "\301 \302 \303\304P!\305rq\210\306\"\210\307=\203\310 \210\202\"\311 \210q\210\312!\262\307=\2036\313 \210\2029\314 \210\211\305\315\203D\316\202E\317\320\315\321\320##\266\202)\207" [major-mode 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 replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'"] 14 (#$ . 3691)]) #@329 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. (fn FOLDER ARTICLE) (defalias 'org-mhe-follow-link #[514 "\303\304!\210\303\305!\210\303\306!\210\307 \210\211\204\310\311!!\207\312 \210\313=\203D\314!\262\305\315D\"\210 \203Z\316 \204Z\317 \210\305\320\315D\"\210\202Z\n\203U\305\320\n\321BC!\"\210\202Z\305\320\"\210\316 \203c\322\323!\207\317 \210\324\325!\207" [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-link-add-angle-brackets "--message-id" org-mhe-get-message-real-folder kill-buffer "+" message-id mh-show-msg 1 error "Message not found"] 7 (#$ . 4440)]) (provide 'ol-mhe)