Gecko [ 122.154.134.11 ]

Name	Size	Permission
ange-ftp.elc	116.81 KB	-rw-r--r--
browse-url.el.xdg	57.99 KB	-rw-r--r--
browse-url.elc	46.94 KB	-rw-r--r--
dbus.elc	28.38 KB	-rw-r--r--
dig.elc	5.08 KB	-rw-r--r--
dns.elc	11.33 KB	-rw-r--r--
eudc-bob.elc	9.11 KB	-rw-r--r--
eudc-export.elc	5.9 KB	-rw-r--r--
eudc-hotlist.elc	5.71 KB	-rw-r--r--
eudc-vars.elc	14.61 KB	-rw-r--r--
eudc.elc	32.17 KB	-rw-r--r--
eudcb-bbdb.elc	5.41 KB	-rw-r--r--
eudcb-ldap.elc	5.18 KB	-rw-r--r--
eudcb-mab.elc	2.88 KB	-rw-r--r--
eudcb-ph.elc	6.44 KB	-rw-r--r--
goto-addr.elc	9.28 KB	-rw-r--r--
hmac-def.elc	2.07 KB	-rw-r--r--
hmac-md5.elc	2.15 KB	-rw-r--r--
imap.elc	104.58 KB	-rw-r--r--
ldap.elc	14.29 KB	-rw-r--r--
mairix.elc	24.37 KB	-rw-r--r--
net-utils.elc	25.21 KB	-rw-r--r--
netrc.elc	4.79 KB	-rw-r--r--
newst-backend.elc	66.66 KB	-rw-r--r--
newst-plainview.elc	51.17 KB	-rw-r--r--
newst-reader.elc	28.81 KB	-rw-r--r--
newst-ticker.elc	7.82 KB	-rw-r--r--
newst-treeview.elc	67.9 KB	-rw-r--r--
newsticker.elc	1.01 KB	-rw-r--r--
ntlm.elc	12.39 KB	-rw-r--r--
quickurl.elc	16.54 KB	-rw-r--r--
rcirc.elc	89.27 KB	-rw-r--r--
rcompile.elc	3.51 KB	-rw-r--r--
rlogin.elc	10.63 KB	-rw-r--r--
sasl-cram.elc	1.25 KB	-rw-r--r--
sasl-digest.elc	3.75 KB	-rw-r--r--
sasl-ntlm.elc	1.82 KB	-rw-r--r--
sasl.elc	7.39 KB	-rw-r--r--
snmp-mode.elc	15.08 KB	-rw-r--r--
socks.elc	16.21 KB	-rw-r--r--
telnet.elc	9.03 KB	-rw-r--r--
tls.elc	8.04 KB	-rw-r--r--
tramp-cache.elc	8.96 KB	-rw-r--r--
tramp-cmds.elc	9.4 KB	-rw-r--r--
tramp-compat.elc	6 KB	-rw-r--r--
tramp-fish.elc	54.2 KB	-rw-r--r--
tramp-ftp.elc	5.33 KB	-rw-r--r--
tramp-gw.elc	13.27 KB	-rw-r--r--
tramp-smb.elc	50.78 KB	-rw-r--r--
tramp-uu.elc	1.88 KB	-rw-r--r--
tramp.elc	278.99 KB	-rw-r--r--
trampver.elc	1.06 KB	-rw-r--r--
webjump.elc	13.86 KB	-rw-r--r--
xesam.elc	24.5 KB	-rw-r--r--
zeroconf.elc	17.98 KB	-rw-r--r--

Code Editor : mairix.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:32 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/net/mairix.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`mairix.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310%\207" [require widget cus-edit custom-declare-group mairix nil "Mairix interface for Emacs." :group mail] 6)
#@62 Path where output files produced by Mairix should be stored.
(custom-declare-variable 'mairix-file-path '"~/" '(#$ . 779) :type 'directory :group 'mairix)
#@107 Name of the default file for storing the searches.
Note that this will be prefixed by `mairix-file-path'.
(custom-declare-variable 'mairix-search-file '"mairixsearch.mbox" '(#$ . 941) :type 'string :group 'mairix)
#@126 Command for calling mairix.
You can add further options here if you want to, but better use
`mairix-update-options' instead.
(custom-declare-variable 'mairix-command '"mairix" '(#$ . 1162) :type 'string :group 'mairix)
#@57 Name of the buffer for the output of the mairix binary.
(custom-declare-variable 'mairix-output-buffer '"*mairix output*" '(#$ . 1387) :type 'string :group 'mairix)
#@52 Name of the buffer for customizing a search query.
(custom-declare-variable 'mairix-customize-query-buffer '"*mairix query*" '(#$ . 1558) :type 'string :group 'mairix)
#@51 Name of the buffer for displaying saved searches.
(custom-declare-variable 'mairix-saved-searches-buffer '"*mairix searches*" '(#$ . 1732) :type 'string :group 'mairix)
#@197 Options when calling mairix for updating the database.
The default is '-F' and '-Q' for making updates faster.  You
should call mairix without these options from time to
time (e.g. via cron job).
(custom-declare-variable 'mairix-update-options ''("-F" "-Q") '(#$ . 1908) :type '(repeat string) :group 'mairix)
#@93 Options when calling mairix for searching.
The default is '-Q' for making searching faster.
(custom-declare-variable 'mairix-search-options ''("-Q") '(#$ . 2224) :type '(repeat string) :group 'mairix)
#@62 Defines if Emacs should wait for the mairix database update.
(custom-declare-variable 'mairix-synchronous-update 'nil '(#$ . 2431) :type 'boolean :group 'mairix)
#@236 Saved mairix searches.
The entries are: Name of the search, Mairix query string, Name of
the file (nil: use `mairix-search-file' as default), Search whole
threads (nil or t).  Note that the file will be prefixed by
`mairix-file-path'.
(custom-declare-variable 'mairix-saved-searches 'nil '(#$ . 2600) :type '(repeat (list (string :tag "Name") (string :tag "Query") (choice :tag "File" (const :tag "default") file) (boolean :tag "Threads"))) :group 'mairix)
#@154 Mail program used to display search results.
Currently RMail, Gnus (mbox), and VM are supported.  If you use Gnus
with maildir, use nnmairix.el instead.
(custom-declare-variable 'mairix-mail-program ''rmail '(#$ . 3064) :type '(choice (const :tag "RMail" rmail) (const :tag "Gnus mbox" gnus) (const :tag "VM" vm)) :group 'mairix)
#@316 Specifies which function should be called for displaying search results.
This is an alist where each entry consists of a symbol from
`mairix-mail-program' and the corresponding function for
displaying the search results.  The function will be called with
the mailbox file produced by mairix as the single argument.
(custom-declare-variable 'mairix-display-functions ''((rmail mairix-rmail-display) (gnus mairix-gnus-ephemeral-nndoc) (vm mairix-vm-display)) '(#$ . 3401) :type '(repeat (list (symbol :tag "Mail program") (function))) :group 'mairix)
#@455 Specifies function for obtaining a header field from the current mail.
This is an alist where each entry consists of a symbol from
`mairix-mail-program' and the corresponding function for
obtaining a header field from the current displayed mail.  The
function will be called with the mail header string as single
argument.  You can use nil if you do not have such a function for
your mail program, but then searches based on the current mail
won't work.
(custom-declare-variable 'mairix-get-mail-header-functions ''((rmail mairix-rmail-fetch-field) (gnus mairix-gnus-fetch-field) (vm mairix-vm-fetch-field)) '(#$ . 3957) :type '(repeat (list (symbol :tag "Mail program") (choice :tag "Header function" (const :tag "none") function))) :group 'mairix)
#@130 Function for selecting the window for customizing the mairix query.
The default chooses the largest window in the current frame.
(custom-declare-variable 'mairix-widget-select-window-function '(lambda nil (select-window (get-largest-window))) '(#$ . 4714) :type 'function :group 'mairix)
#@359 Fields that should be editable during interactive query customization.
Header, corresponding mairix command and description for editable
fields in interactive query customization.  The header specifies
which header contents should be inserted into the editable field
when creating a Mairix query based on the current message (can be
nil for disabling this).
(defvar mairix-widget-fields-list '(("from" "f" "From") ("to" "t" "To") ("cc" "c" "Cc") ("subject" "s" "Subject") ("to" "tc" "To or Cc") ("from" "a" "Address") (nil "b" "Body") (nil "n" "Attachment") ("Message-ID" "m" "Message ID") (nil "s" "Size") (nil "d" "Date")) (#$ . 5009))
#@107 Other editable mairix commands when using customization widgets.
Currently there are 'threads and 'flags.
(defvar mairix-widget-other '(threads flags) (#$ . 5654))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\306\307\310\"\210\306\311\310\"\210\306\312\313\"\207" [current-load-list mairix-last-search default-boundp set-default nil mairix-searches-changed autoload rmail "rmail" rmail-summary-displayed rmail-summary "rmailsum"] 3)
#@38 Display mbox file FOLDER with RMail.
(defalias 'mairix-rmail-display #[(folder) "\303\304\301!\203�	\203�	q\210\305	!\203�\306\305	!!\210\307 \310\311\n!!\2035�\310\311\n!!q\210\312\303!\210\313\303!\210\314\n!\210\205?�\315 )\207" [show-summary rmail-buffer folder nil boundp get-buffer-window select-window rmail-summary-displayed get-buffer file-name-nondirectory set-buffer-modified-p kill-buffer rmail rmail-summary] 3 (#$ . 6141)])
#@56 Get mail header FIELD for current message using RMail.
(defalias 'mairix-rmail-fetch-field #[(field) "\302\300!\203\n�\204�\303\304!\210\305\306!\203�\306	!\207\212q\210\214\307 \210\310	!*\207" [rmail-buffer field boundp error "No RMail buffer available" fboundp rmail-get-header rmail-narrow-to-non-pruned-header mail-fetch-field] 2 (#$ . 6591)])
#@68 Create ephemeral nndoc group for reading mbox file FOLDER in Gnus.
(defalias 'mairix-gnus-ephemeral-nndoc #[(folder) "\301 \204	�\302\303!\210\304\305\306\307\310\311!!\"\312\313\314D\315BBB\"\207" [folder gnus-alive-p error "Gnus is not running" gnus-group-read-ephemeral-group format "mairix.%s" number-to-string random 10000 nndoc "mairix" nndoc-address ((nndoc-article-type mbox))] 6 (#$ . 6950)])
#@55 Get mail header FIELD for current message using Gnus.
(defalias 'mairix-gnus-fetch-field #[(field) "\302 \204	�\303\304!\210\212\305!\204�\303\306!\210q\210\307\310!\210\311	!)\207" [gnus-article-buffer field gnus-alive-p error "Gnus is not running" gnus-buffer-exists-p "No article buffer available" gnus-summary-toggle-header 1 message-field-value] 2 (#$ . 7359)])
#@35 Display mbox file FOLDER with VM.
(defalias 'mairix-vm-display #[(folder) "\302\303!\210\304!\211\203�	q\210\305\306!\210\306\307\310\217\210\311	!\210)\312\313\"\207" [folder buf require vm get-file-buffer set-buffer-modified-p nil (vm-quit t) ((error)) kill-buffer vm-visit-folder t] 4 (#$ . 7735)])
#@53 Get mail header FIELD for current message using VM.
(defalias 'mairix-vm-fetch-field #[(field) "\212\301 \210\302 \210\303 \210\304\305\306!@\")\207" [field vm-select-folder-buffer vm-check-for-killed-summary vm-error-if-folder-empty vm-get-header-contents vm-select-marked-or-prefixed-messages 1] 3 (#$ . 8047)])
#@140 Call Mairix with SEARCH.
If THREADS is t, also display whole threads of found
messages.  Results will be put into the default search file.
(defalias 'mairix-search #[(search threads) "\303\304!\305	#\205
�\306\n!\207" [search threads mairix-search-file mairix-call-mairix split-string nil mairix-show-folder] 4 (#$ . 8369) (list (read-string "Query: ") (y-or-n-p "Include threads? "))])
#@41 Use a saved search for querying Mairix.
(defalias 'mairix-use-saved-search #[nil "\306\307\"\310\311	\"\312\n\"\3138\211\204�
\205-�\314\315A@!\f\316!@#\210\317\f!,\207" [mairix-saved-searches completions search query folder mairix-search-file mapcar #[(el) "@C\207" [el] 1] completing-read "Name of search: " assoc 2 mairix-call-mairix split-string last mairix-show-folder] 6 (#$ . 8763) nil])
#@23 Save the last search.
(defalias 'mairix-save-search #[nil "\304\305!\306	\"\211\204�\307\301\310C\"\"\210\202&�\311\312!\203&�\306	\"\241\210*\313 \207" [name mairix-saved-searches exist mairix-last-search read-string "Name of the search: " assoc add-to-list append y-or-n-p "There is already a search with this name.  Overwrite existing entry? " mairix-select-save] 6 (#$ . 9177) nil])
#@60 Edit the list of saved searches in a customization buffer.
(defalias 'mairix-edit-saved-searches-customize #[nil "\300\301\302DC\303\304\305\306\307\"\310\305\306\307\"\311\260#\207" [custom-buffer-create mairix-saved-searches custom-variable "*Customize Mairix Query*" "\n\n" make-string 65 61 "\nYou can now customize your saved Mairix searches by modifying\nthe variable mairix-saved-searches. Don't forget to save your\nchanges in your .emacs by pressing 'Save for Future Sessions'.\n" "\n"] 9 (#$ . 9578) nil])
(autoload 'mail-strip-quoted-names "mail-utils")
#@187 Search messages from sender of the current article.
This is effectively a shortcut for calling `mairix-search' with
f:current_from.  If prefix THREADS is non-nil, include whole
threads.
(defalias 'mairix-search-from-this-article #[(threads) "	\236\211A@)\211\203�\305\306\307\310\311!!\"\f\"\202�\312\313!)\207" [mairix-mail-program mairix-get-mail-header-functions x get-mail-header threads mairix-search format "f:%s" mail-strip-quoted-names "from" error "No function for obtaining mail header specified"] 7 (#$ . 10151) "P"])
#@156 Search thread for the current article.
This is effectively a shortcut for calling `mairix-search'
with m:msgid of the current article and enabled threads.
(defalias 'mairix-search-thread-this-article #[nil "	\236\211A@)\305\211\204�\306\307!\210\f\310!\311\312\"\203(�\313\314\315\211$\202�\311\316\"\2033�\317P\311\316\"\203D�\313\320\315\211$\2023�\321\322\323\"\315\"*\207" [mairix-mail-program mairix-get-mail-header-functions x mid get-mail-header nil error "No function for obtaining mail header specified" "message-id" string-match "[<>]" replace-match "" t "\\$" "=" "=," mairix-search format "m:%s"] 6 (#$ . 10693) nil])
#@61 Create mairix query based on current article using widgets.
(defalias 'mairix-widget-search-based-on-article #[nil "\300\301 !\207" [mairix-widget-search mairix-widget-get-values] 2 (#$ . 11346) nil])
#@31 Edit current mairix searches.
(defalias 'mairix-edit-saved-searches #[nil "\302!\210\303 \210\304\305 \210\306 \210\307 \207" [mairix-saved-searches-buffer mairix-searches-changed switch-to-buffer erase-buffer nil mairix-build-search-list mairix-searches-mode hl-line-mode] 2 (#$ . 11553) nil])
#@109 Create mairix query interactively using graphical widgets.
MVALUES may contain values from current article.
(defalias 'mairix-widget-search #[(&optional mvalues) " \210\303	!\210\304\305\306\307\310$\210\311\312!\210\304\305\306\313\314$\210\311\312!\210\304\305\306\315\316$\210\317\n!\210\320 \210eb\207" [mairix-widget-select-window-function mvalues widget-keymap mairix-widget-create-query widget-create push-button :notify #[(&rest ignore) "\301!\207" [mairix-widgets mairix-widget-send-query] 2] "Send Query" widget-insert "   " #[(&rest ignore) "\301!\207" [mairix-widgets mairix-widget-save-search] 2] "Save search" #[(&rest ignore) "\301!\207" [mairix-customize-query-buffer kill-buffer] 2] "Cancel" use-local-map widget-setup] 5 (#$ . 11857) nil])
#@183 Call mairix for updating the database for SERVERS.
Mairix will be called asynchronously unless
`mairix-synchronous-update' is t.  Mairix will be called with
`mairix-update-options'.
(defalias 'mairix-update-database #[nil "\306!\307\2032�\310\n@\307\311\f!\307F!\nG\312V\203&�\310	\nA
#\202+�\310	
\"\313\314	\"\202]�\315\316!\210\310\317\311\f!\n@E!\nG\312V\203Q�\310	\nA
#\202V�\310	
\"\320\313\321	\"\322\"*\207" [mairix-command args commandsplit mairix-synchronous-update mairix-output-buffer mairix-update-options split-string nil append get-buffer-create 1 apply call-process message "Updating mairix database..." "mairixupdate" set-process-sentinel start-process mairix-sentinel-mairix-update-finished] 5 (#$ . 12626) nil])
#@92 Display mail FOLDER with mail program.
The mail program is given by `mairix-mail-program'.
(defalias 'mairix-show-folder #[(folder) "	\236\211A@)\211\203�\306\307\f!!
P!\202�\310\311!)\207" [mairix-mail-program mairix-display-functions x display-function mairix-file-path folder file-name-as-directory expand-file-name error "No mail program set"] 5 (#$ . 13373)])
#@165 Call Mairix with QUERY and output FILE.
If FILE is nil, use default.  If THREADS is non-nil, also return
whole threads.  Function returns t if messages were found.
(defalias 'mairix-call-mairix #[(query file threads) "\306!\211@\307\310\n!\311BBB\307r\nq\210\312 \210)	G\313V\203&�\314	A\"
\203/�\314\315\"!;\203;�\306!!!\316\317!\320#\"
E#\"\204P�$\"\321\322%!!\"P\"\323\324\314\325\"D!#\"\326\f!\203\203�r\nq\210eb\210\327\330!\210\331\332\333!!\210)\202\243�\f\313U\203\236�r\nq\210eb\210\334\335!)\203\236�\331\336!\210\202\243�\337\340\n\"\210\326\f!+\207" [mairix-command commandsplit mairix-output-buffer args rval threads split-string nil get-buffer-create (nil) erase-buffer 1 append ("-t") mapconcat identity " " file-name-as-directory expand-file-name apply call-process "-o" zerop re-search-forward "^Matched.*messages" message match-string 0 looking-at "^Matched 0 messages" "No messages found" error "Error running Mairix.  See buffer %s for details" query file mairix-last-search mairix-search-file mairix-file-path] 7 (#$ . 13751)])
#@56 Replace illegal characters in HEADER for mairix query.
(defalias 'mairix-replace-illegal-chars #[(header) "\205'�\301\302\"\203�\303\304\305\211$\202�\301\306\"\203&�\303\307\305\211$\202�\207" [header string-match "[^-.@/,& [:alnum:]]" replace-match "" t "[& ]" ","] 5 (#$ . 14830)])
#@54 Sentinel for mairix update process PROC with STATUS.
(defalias 'mairix-sentinel-mairix-update-finished #[(proc status) "\302\232\203\n�\303\304!\207\305\306	\"\207" [status mairix-output-buffer "finished\n" message "Updating mairix database... done" error "There was an error updating the mairix database.  See %s for details"] 3 (#$ . 15132)])
#@43 Send query from WIDGETS to mairix binary.
(defalias 'mairix-widget-send-query #[(widgets) "\303\304!\305\306\307\"\211A@)!\203�\310\202�\311\"\210\312\n!\207" [widgets x mairix-customize-query-buffer mairix-search mairix-widget-make-query-from-widgets widget-value assoc "Threads" t -1 kill-buffer] 7 (#$ . 15484)])
#@46 Save search based on WIDGETS for future use.
(defalias 'mairix-widget-save-search #[(widgets) "\304!\305\306\307\310\"\211A@)!E\311 \210\312!)\207" [widgets x mairix-last-search mairix-customize-query-buffer mairix-widget-make-query-from-widgets nil widget-value assoc "Threads" mairix-save-search kill-buffer] 7 (#$ . 15811)])
#@49 Create mairix query from widget values WIDGETS.
(defalias 'mairix-widget-make-query-from-widgets #[(widgets) "\306\211\211\306\211\203Q�
@\307\310\311\f\211AA)@P\"\211A@)!\203J�\fA@\312\313\307\310\314\f\211AA)@P\"\211A@)!!Q\nB
A\211\204�*\315\235\203l�\316\317\320\321#\322G!\204l�\323P\nB\316\324\n\325#+\207" [flag temp query mairix-widget-fields-list cur #1=#:--cl-dolist-temp-- nil widget-value assoc "c" ":" mairix-replace-illegal-chars "e" flags mapconcat #[(flag) "\304\305@	\"\211A@)!\211\306\230\203�\211A@)\207\307\230\205(�\310\211A@)P\207" [flag mairix-widgets x temp widget-value assoc "yes" "no" "-"] 5] (("seen" "s") ("replied" "r") ("flagged" "f")) "" zerop "F:" identity " " x widgets mairix-widget-other] 8 (#$ . 16150)])
#@84 Create widgets for creating mairix queries.
Fill in VALUES if based on an article.
(defalias 'mairix-widget-create-query #[(&optional values) "\305\306	!\203\f�\307	!\210\310	!\210\311 \210\312 \210\313\314!\210\313\315!\210\316\n!\317\f\235\203U�\313\320!\210\321\322\323\324\325\326\327\330&\210\313\331!\210\321\332\323\324\325\333\334\335&\210\313\336!\210\321\337\323\324\325\340\341\342&\210\343\f\235\203e�\313\344!\210\321\345\346\305#\210\313\347!)\207" [allwidgets mairix-customize-query-buffer values mairix-widgets mairix-widget-other nil get-buffer kill-buffer switch-to-buffer kill-all-local-variables erase-buffer widget-insert "Specify your query for Mairix (check boxes for activating fields):\n\n" "(Whitespaces will be converted to ',' (i.e. AND). Use '/' for OR.)\n\n" mairix-widget-build-editable-fields flags "\nFlags:\n      Seen:     " mairix-widget-add "seen" menu-choice :value "ignore" (item "yes") (item "no") (item "ignore") "      Replied:  " "replied" (item "yes") (item "no") (item "ignore") "      Ticked:   " "flagged" (item "yes") (item "no") (item "ignore") threads "\n" "Threads" checkbox " Show full threads\n\n"] 8 (#$ . 16934)])
#@132 Build editable field widgets in `nnmairix-widget-fields-list'.
VALUES may contain values for editable fields from current article.
(defalias 'mairix-widget-build-editable-fields #[(values) "\302\303\304	\"\210)\207" [ret mairix-widget-fields-list nil mapc #[(field) "\211AA)@\304P\305\306\307\310\311\312&DC\313P\305\314\315\316\317\320\321\322\323GZ\324\"\325\260\326\327\n\"\211A@)\2069�\330&DC\244\244\331\332!\210\333A@\211A@)\334\"\207" [field x values ret "c" widget-create checkbox :tag :notify #[(widget &rest ignore) "\301!\207" [widget mairix-widget-toggle-activate] 2] nil "e" editable-field :size 60 :format " " ":" make-string 11 32 "%v" :value assoc "" widget-insert "\n" widget-apply :deactivate] 14]] 3 (#$ . 18115)])
#@39 Add a widget NAME with optional ARGS.
(defalias 'mairix-widget-add #[(name &rest args) "\303\304	\"D\nB\211\207" [name args mairix-widgets apply widget-create] 4 (#$ . 18875)])
#@65 Toggle activation status of WIDGET depending on checkbox value.
(defalias 'mairix-widget-toggle-activate #[(widget) "\304\305\"\306!\203�\307\310\311	P\n\"\211A@)\312\"\210\202,�\307\310\311	P\n\"\211A@)\313\"\210)\314 \207" [widget field mairix-widgets x widget-get :tag widget-value widget-apply assoc "e" :activate :deactivate widget-setup] 5 (#$ . 19060)])
#@32 'mairix-searches-mode' keymap.
(defvar mairix-searches-mode-map nil (#$ . 19433))
(byte-code "\204L�\302 \303	\304\305#\210\303	\306\307#\210\303	\310\311#\210\303	\312\307#\210\303	\313\311#\210\303	\314\311#\210\303	\315\307#\210\303	\316\317#\210\303	\320\321#\210\303	\322\323#\210\303	\324\325#\210	)\302\207" [mairix-searches-mode-map map make-keymap define-key [(return)] mairix-select-search [(down)] mairix-next-search [(up)] mairix-previous-search [(right)] [(left)] "" "" [(q)] mairix-select-quit [(e)] mairix-select-edit [(d)] mairix-select-delete [(s)] mairix-select-save] 4)
#@41 Major mode for editing mairix searches.
(defalias 'mairix-searches-mode #[nil "\306 \210\307\310\311\n!\210\312!\210\313\305!\210\314\315D\316\317\320E\321\322\323E\324\325\326E\327\330D\331\332\333E\257\334\211\207" [major-mode mode-name text-mode-syntax-table mairix-searches-mode-map mairix-searches-mode-font-lock-keywords font-lock-defaults kill-all-local-variables mairix-searches-mode "mairix-searches" set-syntax-table use-local-map make-local-variable "^\$[0-9]+\$" (1 font-lock-constant-face) "^[0-9 ]+\$Name:\$ \$.*\$" (1 font-lock-keyword-face) (2 font-lock-string-face) "^[ ]+\$Query:\$ \$.*\$ , " (1 font-lock-keyword-face) (2 font-lock-string-face) ", \$Threads:\$ \$.*\$" (1 font-lock-keyword-face) (2 font-lock-constant-face) "^\$[A-Z].*\$$" (1 font-lock-comment-face) "^[ ]+\$Folder:\$ \$.*\$" (1 font-lock-keyword-face) (2 font-lock-string-face) (mairix-searches-mode-font-lock-keywords)] 8 (#$ . 20033) nil])
#@43 Display saved searches in current buffer.
(defalias 'mairix-build-search-list #[nil "\304c\210\305`\306\nGW\203\"�\n8\nT\307\n\"\210\310c\210\202	�	b+\207" [current beg num mairix-saved-searches "These are your current saved mairix searches.\nYou may use the following keys in this buffer: \nReturn: execute search, e: edit, d: delete, s: save, q: quit\nUse cursor keys or C-n,C-p to select next/previous search.\n\n" 0 nil mairix-insert-search-line "\n"] 3 (#$ . 20994)])
#@65 Insert new mairix query with NUMBER and values FIELD in buffer.
(defalias 'mairix-insert-search-line #[(number field) "\302\303	@	A@\304	8\203�\305\202�\306\307	8\203�\307	8\202 �\310&c\207" [number field format "%d Name: %s\n   Query: %s , Threads: %s\n   Folder: %s\n" 3 "Yes" "No" 2 "Default"] 8 (#$ . 21481)])
#@45 Call mairix with currently selected search.
(defalias 'mairix-select-search #[nil "\304 \210\305\306!\204�\307 \210\310\311!\207\312p!S8\313	8\211\204!�\314\315	A@!\n\316	!@#\210\317 \210\320\n!*\207" [mairix-saved-searches query folder mairix-search-file beginning-of-line looking-at "[0-9]+ Name" ding message "Put cursor on a line with a search name first" read 2 mairix-call-mairix split-string last mairix-select-quit mairix-show-folder] 6 (#$ . 21806) nil])
#@22 Jump to next search.
(defalias 'mairix-next-search #[nil "\300\301d\302\303$\203\f�\304 \207\305 \207" [search-forward-regexp "^[0-9]+" t 2 beginning-of-line ding] 5 (#$ . 22282) nil])
#@26 Jump to previous search.
(defalias 'mairix-previous-search #[nil "\300\301e\302#\203�\303 \207\304 \207" [search-backward-regexp "^[0-9]+" t beginning-of-line ding] 4 (#$ . 22473) nil])
#@26 Quit mairix search mode.
(defalias 'mairix-select-quit #[nil "\203�\301 \210\302\303!\207" [mairix-searches-changed mairix-select-save kill-buffer nil] 2 (#$ . 22666) nil])
#@31 Save current mairix searches.
(defalias 'mairix-select-save #[nil "\301\302!\205\n�\303\300\"\207" [mairix-saved-searches y-or-n-p "Save mairix searches permanently in your .emacs? " customize-save-variable] 3 (#$ . 22847) nil])
#@40 Edit currently selected mairix search.
(defalias 'mairix-select-edit #[nil "\306 \210\307\310!\204
�\311\312!\207\313p!S\211	8\314\n8\315\211\315\211\316u\210\317\320\n@\"\321\f\322	8	\"\"\203=�\311\323!\210\317\324\nA@\"\325\326!\317\327\"\330G!\203Z�\315	8\f\240\210	8
E\241\210\331`\332y\210\315\210`|\210\333T	8\"\210b.\207" [number mairix-saved-searches query folder newname newquery beginning-of-line looking-at "[0-9]+ Name" error "Put cursor on a line with a search name first" read 2 nil -1 read-string "Name of the search: " assoc remq "This name does already exist" "Query: " y-or-n-p "Include whole threads? " "Mail folder (use empty string for default): " zerop t 3 mairix-insert-search-line newfolder threads mairix-searches-changed beg] 6 (#$ . 23083) nil])
#@42 Delete currently selected mairix search.
(defalias 'mairix-select-delete #[nil "\305\306!\204\n�\307\310!\207\311p!S\211	8\312\313u\210\314\315\316\n@\"!\203J�\317\n	\"\320`\321y\210\322 \210`|\210\323\324d\320\325$\203J�\326\327T\211!!\210\2025�+\322 \207" [number mairix-saved-searches query beg mairix-searches-changed looking-at "[0-9]+ Name" error "Put cursor on a line with a search name first" read nil -1 y-or-n-p format "Delete search %s ? " delq t 4 beginning-of-line search-forward-regexp "^[0-9]+" 1 replace-match number-to-string] 6 (#$ . 23901) nil])
#@57 Create values for editable fields from current article.
(defalias 'mairix-widget-get-values #[nil "	\236\211A@)\211\203�\212\214\305\306\f\"*\202�\307\310!)\207" [mairix-mail-program mairix-get-mail-header-functions x get-mail-header mairix-widget-fields-list mapcar #[(field) "\211AA)@@\205�\303\n@!!D\207" [field x get-mail-header mairix-replace-illegal-chars] 5] error "No function for obtaining mail header specified"] 4 (#$ . 24481)])
(provide 'mairix)

${this.title}

Code Editor : mairix.elc