| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\302\303\304\305\306\307%\207" [require org org-link-set-parameters "rmail" :follow org-rmail-open :store org-rmail-store-link] 6) | |
| 16 | #@45 Store a link to an Rmail folder or message. | |
| 17 | (defalias 'org-rmail-store-link #[0 "\304=\204\f \305=\205\204 \306 \307\310\311\312\313!\314\"\315$\216\214\305=\203% \316 !\210\317\320!\203. \320 \210\n\321=\2038 \322\323!\210 \324\325!\324\326!\324\327!\324\330!\324\331!\332\211\333\334\335\336 \337\n\340\n\341 \342&\f\210\343\344\345 #\262\346 \262\347\350 R\262\351\352\353$\210\316 !\210\266\207*\262\207" [major-mode rmail-current-message rmail-header-style buffer-file-name rmail-mode rmail-summary-mode current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 rmail-show-message fboundp rmail-narrow-to-non-pruned-header normal rmail-toggle-header -1 mail-fetch-field "message-id" "from" "to" "subject" "date" nil org-store-link-props :type "rmail" :from :to :date :subject :message-id org-unbracket-string "<" ">" org-email-link-description "rmail:" "#" org-add-link-props :link :description] 22 (#$ . 564)]) | |
| 18 | #@64 Follow an Rmail message link to the specified PATH. | |
| 19 | ||
| 20 | (fn PATH) | |
| 21 | (defalias 'org-rmail-open #[257 "\300\211\301\302\"\204 \303\304!\210\305\306\"\262\305\307\"\262\310\"\207" [nil string-match "\\`\\([^#]+\\)\\(#\\(.*\\)\\)?" error "Error in Rmail link" match-string 1 3 org-rmail-follow-link] 6 (#$ . 1555)]) | |
| 22 | #@66 Follow an Rmail link to FOLDER and ARTICLE. | |
| 23 | ||
| 24 | (fn FOLDER ARTICLE) | |
| 25 | (defalias 'org-rmail-follow-link #[514 "\301\302!\210\211\204 \303\262\202 \211;\203 \304!\262\202 \305\306!\210\307\212\310 \311\312\313\314\315!\316\"\317$\216\302\320\230\203: \202; !\210\214\321 \210db\210\322\323\324!P\307\325#\205R \326 )\262)\210)\211\203r \302\320\230\203g \202h !\210\327!\210\211\202u \330\331!\207" [rmail-file-name require rmail "" org-add-angle-brackets user-error "Wrong RMAIL link format" nil current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 "RMAIL" rmail-widen re-search-backward "^Message-ID:\\s-+" regexp-quote t rmail-what-message rmail-show-message error "Message not found"] 10 (#$ . 1876)]) | |
| 26 | (provide 'org-rmail) | |
