| Current Path : /usr/share/emacs/24.3/lisp/org/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/org/org-mew.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:07:44 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-mew.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\320\321\322\"\210\323\324\325\"\207" [require org custom-declare-group org-mew nil "Options concerning the Mew link." :tag "Org Startup" :group org-link custom-declare-variable org-mew-link-to-refile-destination t "Create a link to the refile destination if the message is marked as refile." :type boolean org-add-link-type "mew" org-mew-open add-hook org-store-link-functions org-mew-store-link] 8) #@42 Store a link to a Mew folder or message. (defalias 'org-mew-store-link #[nil "\306>\205\322 \307 \310 \203\" \n\311=\203\" \312\313 \314 !A@\"\202$ \315 \316\211 /\316\211 0 1\316\211 2 3\316\211 4 5\316 6\317 7\320\216\321\322!\203S \322\f \"\210\202Z \323\f \324#q\210\325\326!\325\327!/\325\330!0\325\331!\2114\205z \332\333\324!\3344!\"54\205\213 \332\333\324\211\"\3344!\"6\325\335!1*\336\337\340\341/\3420\3431\344 &\n\2104\203\266 \345\3464\3475\3506&\210\351 !\352 2\353\f\354 R3\345\3553\3562$\2103.\f\207" [major-mode msgnum mark-info org-mew-link-to-refile-destination folder-name message-id (mew-summary-mode mew-virtual-mode) mew-summary-message-number2 mew-summary-get-mark 111 mew-case-folder mew-sinfo-get-case mew-refile-get mew-summary-folder-name nil current-window-configuration ((set-window-configuration #1=#:wconfig)) fboundp mew-summary-set-message-buffer mew-cache-hit t mew-header-get-value "Message-Id:" "From:" "To:" "Date:" format-time-string org-time-stamp-format date-to-time "Subject:" org-store-link-props :type "mew" :from :to :subject :message-id org-add-link-props :date :date-timestamp :date-timestamp-inactive org-remove-angle-brackets org-email-link-description "mew:" "#" :link :description from to subject desc link date date-ts date-ts-ia #1#] 12 (#$ . 1056)]) #@48 Follow the Mew message link specified by PATH. (defalias 'org-mew-open #[(path) "\306\211\307\310\n\"\203 \311\312\n\"\311\313\n\"\2020 \307\314\n\"\203, \311\312\n\"\311\315\n\"\2020 \316\317!\210\320\321!\210\322 \210 \204> \323 \210\324 !\210\205n \307\325\"\204[ \326P \327\f \306#\211 @*\330!\203k \205n \331 \202n \316\332!*\207" [msgnum folder path mew-init-p pattern msgs nil string-match "\\`\\(+.*\\)+\\+\\([0-9]+\\)\\'" match-string 1 2 "\\`\\(\\(%#\\)?[^#]+\\)\\(#\\(.*\\)\\)?" 4 error "Error in Mew link" require mew mew-window-push mew-init mew-summary-visit-folder "\\`[0-9]+\\'" "message-id=" mew-summary-pick-with-mewl mew-summary-search-msg mew-summary-display "Message not found" mew-summary-goto-line-then-display] 5 (#$ . 2396)]) (provide 'org-mew)