Gecko [ 122.154.134.11 ]

Name	Size	Permission
auth-source.elc	5.49 KB	-rw-r--r--
canlock.elc	6.03 KB	-rw-r--r--
compface.elc	1.35 KB	-rw-r--r--
deuglify.elc	8.31 KB	-rw-r--r--
earcon.elc	5.67 KB	-rw-r--r--
ecomplete.elc	4.45 KB	-rw-r--r--
flow-fill.elc	4.57 KB	-rw-r--r--
gmm-utils.elc	7.68 KB	-rw-r--r--
gnus-agent.elc	122.37 KB	-rw-r--r--
gnus-art.elc	258.37 KB	-rw-r--r--
gnus-async.elc	12.09 KB	-rw-r--r--
gnus-audio.elc	2.48 KB	-rw-r--r--
gnus-bcklg.elc	3.67 KB	-rw-r--r--
gnus-bookmark.elc	24.54 KB	-rw-r--r--
gnus-cache.elc	26.11 KB	-rw-r--r--
gnus-cite.elc	27.6 KB	-rw-r--r--
gnus-cus.elc	38.4 KB	-rw-r--r--
gnus-delay.elc	4.98 KB	-rw-r--r--
gnus-demon.elc	8.65 KB	-rw-r--r--
gnus-diary.elc	9 KB	-rw-r--r--
gnus-dired.elc	6.56 KB	-rw-r--r--
gnus-draft.elc	10.7 KB	-rw-r--r--
gnus-dup.elc	4.77 KB	-rw-r--r--
gnus-eform.elc	3.68 KB	-rw-r--r--
gnus-ems.elc	7.21 KB	-rw-r--r--
gnus-fun.elc	8.91 KB	-rw-r--r--
gnus-group.elc	155.85 KB	-rw-r--r--
gnus-int.elc	51.53 KB	-rw-r--r--
gnus-kill.elc	18.37 KB	-rw-r--r--
gnus-logic.elc	5.2 KB	-rw-r--r--
gnus-mh.elc	2.89 KB	-rw-r--r--
gnus-ml.elc	5.22 KB	-rw-r--r--
gnus-mlspl.elc	6.37 KB	-rw-r--r--
gnus-move.elc	3.63 KB	-rw-r--r--
gnus-msg.elc	84.07 KB	-rw-r--r--
gnus-nocem.elc	12.08 KB	-rw-r--r--
gnus-picon.elc	8.63 KB	-rw-r--r--
gnus-range.elc	11.92 KB	-rw-r--r--
gnus-registry.elc	32.46 KB	-rw-r--r--
gnus-salt.elc	29.77 KB	-rw-r--r--
gnus-score.elc	76.25 KB	-rw-r--r--
gnus-setup.elc	5.01 KB	-rw-r--r--
gnus-sieve.elc	8.54 KB	-rw-r--r--
gnus-soup.elc	16.29 KB	-rw-r--r--
gnus-spec.elc	17 KB	-rw-r--r--
gnus-srvr.elc	43.88 KB	-rw-r--r--
gnus-start.elc	142.13 KB	-rw-r--r--
gnus-sum.elc	406.63 KB	-rw-r--r--
gnus-topic.elc	46.81 KB	-rw-r--r--
gnus-undo.elc	4.07 KB	-rw-r--r--
gnus-util.elc	48.22 KB	-rw-r--r--
gnus-uu.elc	57.87 KB	-rw-r--r--
gnus-vm.elc	2.63 KB	-rw-r--r--
gnus-win.elc	12.56 KB	-rw-r--r--
gnus.elc	158.49 KB	-rw-r--r--
html2text.elc	10.59 KB	-rw-r--r--
ietf-drums.elc	7.85 KB	-rw-r--r--
legacy-gnus-agent.elc	6.67 KB	-rw-r--r--
mail-parse.elc	2.44 KB	-rw-r--r--
mail-prsvr.elc	1.29 KB	-rw-r--r--
mail-source.elc	30.28 KB	-rw-r--r--
mailcap.elc	25.11 KB	-rw-r--r--
message.elc	223.29 KB	-rw-r--r--
messcompat.elc	2.83 KB	-rw-r--r--
mm-bodies.elc	6.06 KB	-rw-r--r--
mm-decode.elc	46.1 KB	-rw-r--r--
mm-encode.elc	5.96 KB	-rw-r--r--
mm-extern.elc	4.65 KB	-rw-r--r--
mm-partial.elc	3.44 KB	-rw-r--r--
mm-url.elc	9.94 KB	-rw-r--r--
mm-util.elc	39.83 KB	-rw-r--r--
mm-uu.elc	18.57 KB	-rw-r--r--
mm-view.elc	17.58 KB	-rw-r--r--
mml-sec.elc	12.58 KB	-rw-r--r--
mml-smime.elc	14.58 KB	-rw-r--r--
mml.elc	40.35 KB	-rw-r--r--
mml1991.elc	14.71 KB	-rw-r--r--
mml2015.elc	41.93 KB	-rw-r--r--
nnagent.elc	10.86 KB	-rw-r--r--
nnbabyl.elc	17.45 KB	-rw-r--r--
nndb.elc	29.58 KB	-rw-r--r--
nndiary.elc	39.38 KB	-rw-r--r--
nndir.elc	3.2 KB	-rw-r--r--
nndoc.elc	28.12 KB	-rw-r--r--
nndraft.elc	9.95 KB	-rw-r--r--
nneething.elc	11.98 KB	-rw-r--r--
nnfolder.elc	38.93 KB	-rw-r--r--
nngateway.elc	3.1 KB	-rw-r--r--
nnheader.elc	30.94 KB	-rw-r--r--
nnimap.elc	61.12 KB	-rw-r--r--
nnir.elc	45.26 KB	-rw-r--r--
nnkiboze.elc	11.79 KB	-rw-r--r--
nnlistserv.elc	4.42 KB	-rw-r--r--
nnmail.elc	52.92 KB	-rw-r--r--
nnmaildir.elc	98.94 KB	-rw-r--r--
nnmairix.elc	72.84 KB	-rw-r--r--
nnmbox.elc	19.03 KB	-rw-r--r--
nnmh.elc	15.64 KB	-rw-r--r--
nnml.elc	45.05 KB	-rw-r--r--
nnnil.elc	1.94 KB	-rw-r--r--
nnoo.elc	8.95 KB	-rw-r--r--
nnrss.elc	33.15 KB	-rw-r--r--
nnslashdot.elc	16.43 KB	-rw-r--r--
nnsoup.elc	21.22 KB	-rw-r--r--
nnspool.elc	15.55 KB	-rw-r--r--
nntp.elc	135.97 KB	-rw-r--r--
nnultimate.elc	13.85 KB	-rw-r--r--
nnvirtual.elc	18.99 KB	-rw-r--r--
nnwarchive.elc	21.92 KB	-rw-r--r--
nnweb.elc	18.3 KB	-rw-r--r--
nnwfm.elc	12.56 KB	-rw-r--r--
pop3.elc	13.01 KB	-rw-r--r--
qp.elc	4.12 KB	-rw-r--r--
rfc1843.elc	5.74 KB	-rw-r--r--
rfc2045.elc	1.01 KB	-rw-r--r--
rfc2047.elc	25.24 KB	-rw-r--r--
rfc2104.elc	1.71 KB	-rw-r--r--
rfc2231.elc	6.9 KB	-rw-r--r--
score-mode.elc	3.56 KB	-rw-r--r--
sieve-manage.elc	19.88 KB	-rw-r--r--
sieve-mode.elc	7.1 KB	-rw-r--r--
sieve.elc	10.77 KB	-rw-r--r--
smiley.elc	5.37 KB	-rw-r--r--
smime.elc	18.81 KB	-rw-r--r--
spam-report.elc	11.77 KB	-rw-r--r--
spam-stat.elc	19.88 KB	-rw-r--r--
spam-wash.elc	1.43 KB	-rw-r--r--
spam.elc	87.54 KB	-rw-r--r--
starttls.elc	6.63 KB	-rw-r--r--
utf7.elc	6.08 KB	-rw-r--r--
webmail.elc	28.79 KB	-rw-r--r--
yenc.elc	3.85 KB	-rw-r--r--

Code Editor : sieve.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:08 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/gnus/sieve.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 "`sieve.el' was compiled for Emacs 19.29 or later"))

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

(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\207" [require sieve-manage sieve-mode custom-declare-group sieve nil "Manage sieve scripts." :version "22.1" :group tools] 8)
#@32 Name of name script indicator.
(custom-declare-variable 'sieve-new-script '"<new script>" '(#$ . 805) :type 'string :group 'sieve)
#@34 Name of sieve management buffer.
(custom-declare-variable 'sieve-buffer '"*sieve*" '(#$ . 942) :type 'string :group 'sieve)
#@24 Template sieve script.
(custom-declare-variable 'sieve-template '"require \"fileinto\";\n\n# Example script (remove comment character '#' to make it effective!):\n#\n# if header :contains \"from\" \"coyote\" {\n#   discard;\n# } elsif header :contains [\"subject\"] [\"$$$\"] {\n#   discard;\n# } else {\n#  fileinto \"INBOX\";\n# }\n" '(#$ . 1072) :type 'string :group 'sieve)
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\304\207" [current-load-list sieve-manage-buffer default-boundp set-default nil sieve-buffer-header-end] 3)
#@33 Keymap for `sieve-manage-mode'.
(defvar sieve-manage-mode-map nil (#$ . 1656))
(byte-code "\204}�\301 \302!\210\303\304\305#\210\303\306\305#\210\303\307\310#\210\303\311\312#\210\303\313\314#\210\303\315\316#\210\303\317\320#\210\303\321\320#\210\303\322\323#\210\303\324\323#\210\303\325\323#\210\303\326\323#\210\303\327\320#\210\303\330\331#\210\303\332\331#\210\303\333\334#\210\303\335\336#\210\303\337\331#\210\303\340\341#\210\301\207" [sieve-manage-mode-map make-sparse-keymap suppress-keymap define-key "?" sieve-help "h" "q" sieve-bury-buffer "m" sieve-activate "u" sieve-deactivate "\377" sieve-deactivate-all "" sieve-prev-line [up] "" sieve-next-line [down] " " "n" "p" "
" sieve-edit-script "f" "o" sieve-edit-script-other-window "r" sieve-remove [(down-mouse-2)] [(down-mouse-3)] sieve-manage-mode-menu] 4)
#@13 Sieve Menu.
(defvar sieve-manage-mode-menu nil (#$ . 2509))
(byte-code "\303\304\305\306$\210\307\310N\204�\311\307\310\312#\210\313\300!\204�\311\300\314\315#\210\300	B\316\300!\204/�\317\300\320 \"\210\313\321!\204;�\311\321\314\315#\210\321	B\316\321!\204K�\317\321\322 \"\210\311\302\314\315#\210\302	B\316\302!\204e�\317\302\323\302\324\"\210\n\"\210\311\315\325\324#\207" [sieve-manage-mode-map current-load-list sieve-manage-mode-abbrev-table easy-menu-do-define sieve-manage-mode-menu "Sieve Menu." ("Manage Sieve" ["Edit script" sieve-edit-script t] ["Activate script" sieve-activate t] ["Deactivate script" sieve-deactivate t]) sieve-manage-mode-hook variable-documentation put "Hook run when entering SIEVE mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp definition-name sieve-manage-mode default-boundp set-default make-sparse-keymap sieve-manage-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent] 5)
#@158 Mode used for sieve script management.

This mode runs the hook `sieve-manage-mode-hook', as the final step
during initialization.

\{sieve-manage-mode-map}
(defalias 'sieve-manage-mode #[nil "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
\312\315p!\210\307\316\"\210)\317\320!\207" [delay-mode-hooks major-mode mode-name sieve-manage-mode-map sieve-manage-mode-syntax-table sieve-manage-mode-abbrev-table make-local-variable t kill-all-local-variables sieve-manage-mode "SIEVE" use-local-map set-syntax-table buffer-disable-undo easy-menu-add run-mode-hooks sieve-manage-mode-hook local-abbrev-table truncate-lines sieve-manage-mode-menu] 3 (#$ . 3558) nil])
(put 'sieve-manage-mode 'mode-class 'special)
(defalias 'sieve-activate #[(&optional pos) "\304 \305\211\203�	\n\230\203�\306\307!\210\310\311	\"\210\312	\"\313 \210\314!\203-�\310\315	\"\2024�\310\316	\3178#*\207" [err name sieve-new-script sieve-manage-buffer sieve-script-at-point nil error "No sieve script at point" message "Activating script %s..." sieve-manage-setactive sieve-refresh-scriptlist sieve-manage-ok-p "Activating script %s...done" "Activating script %s...failed: %s" 2] 6 nil "d"])
(defalias 'sieve-deactivate-all #[(&optional pos) "\303 \304\305\306!\210\307\310\n\"\311 \210\312!\203�\305\313!\202#�\305\314\3158\"*\207" [err name sieve-manage-buffer sieve-script-at-point nil message "Deactivating scripts..." sieve-manage-setactive "" sieve-refresh-scriptlist sieve-manage-ok-p "Deactivating scripts...done" "Deactivating scripts...failed: %s" 2] 4 nil "d"])
(defalias 'sieve-deactivate 'sieve-deactivate-all)
(defalias 'sieve-remove #[(&optional pos) "\304 \305\211\203�	\n\230\203�\306\307!\210\310\311	\"\210\312	\"\313!\204(�\306\314\"\210\315 \210\310\316	\"*\207" [err name sieve-new-script sieve-manage-buffer sieve-script-at-point nil error "No sieve script at point" message "Removing sieve script %s..." sieve-manage-deletescript sieve-manage-ok-p "Removing sieve script %s...failed: " sieve-refresh-scriptlist "Removing sieve script %s...done"] 4 nil "d"])
(defalias 'sieve-edit-script #[(&optional pos) "\306 \211\204�\307\310!\210	\230\2040�\311!\312\313\f#\314!\210\315\n!\204,�\307\316\n\"\210*\2029�\314\317\320!!\210
c\210\321 \210\322\323!)\207" [name sieve-new-script err newbuf sieve-manage-buffer sieve-template sieve-script-at-point error "No sieve script at point" generate-new-buffer nil sieve-manage-getscript switch-to-buffer sieve-manage-ok-p "Sieve download failed: %s" get-buffer-create "template.siv" sieve-mode message "Press C-c C-l to upload script to server."] 5 nil "d"])
#@138 Turns off sieve-region before executing BODY, then re-enables it after.
Used to bracket operations which move point in the sieve-buffer.
(defalias 'sieve-change-region '(macro . #[(&rest body) "\301\302\303\304\"BB\207" [body progn (sieve-highlight nil) append ((sieve-highlight t))] 5 (#$ . 6209)]))
(put 'sieve-change-region 'lisp-indent-function 0)
(defalias 'sieve-next-line #[(&optional arg) "\204�\301\212y\210\302 )\203�\303\304!\210y\210\303\305!\207\306\307!\207" [arg 1 sieve-script-at-point sieve-highlight nil t message "End of list"] 2 nil nil])
(defalias 'sieve-prev-line #[(&optional arg) "\204�\301\212y\210\302 )\203�\303\304!\210y\210\303\305!\207\306\307!\207" [arg -1 sieve-script-at-point sieve-highlight nil t message "Beginning of list"] 2 nil nil])
#@42 Display help for various sieve commands.
(defalias 'sieve-help #[nil "\301=\203\n�\302\303!\207\304\305\306\307!\"\207" [last-command sieve-help describe-function sieve-mode message "%s" substitute-command-keys "`\\[sieve-edit-script]':edit `\\[sieve-activate]':activate `\\[sieve-deactivate]':deactivate `\\[sieve-remove]':remove"] 4 (#$ . 7001) nil])
#@123 Hide the buffer BUF that was temporarily popped up.
BUF is assumed to be a temporary buffer used from the buffer MAINBUF.
(defalias 'sieve-bury-buffer #[(buf &optional mainbuf) "r\304\305 !=\203�\305 \202�\306\307\"\211\2034�\310	!\203&�\311\312\313\217\210\2024�\n\2034�\306\n!\2034�\314	!\210)rq\210\315\304\305 !=\205H�\310\305 !??\205M�!\210)\n\205g�\306\n!\206^�\306\n\316\"\211\205f�\317!))\207" [buf win mainbuf mainwin window-buffer selected-window get-buffer-window t window-dedicated-p nil (delete-window win) ((error (byte-code "\301\302!!\207" [win iconify-frame window-frame] 3))) delete-window bury-buffer visible select-window] 5 (#$ . 7362) (list (current-buffer))])
(defalias 'sieve-setup-buffer #[(server port) "\304\305 \210\306 \210\307	\310\n\206�\311\312\261\210\313\303!\210d\211\207" [buffer-read-only server port sieve-buffer-header-end nil erase-buffer buffer-disable-undo "Server  : " ":" "2000" "\n\n" make-local-variable] 5])
#@51 Return name of sieve script at point POS, or nil.
(defalias 'sieve-script-at-point #[(&optional pos) "\301\206�`\302\"\207" [pos get-char-property script-name] 3 (#$ . 8338) "d"])
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\207" [defalias sieve-make-overlay make-overlay sieve-overlay-put overlay-put sieve-overlays-at overlays-at] 3)
#@62 Turn ON or off highlighting on the current language overlay.
(defalias 'sieve-highlight #[(on) "\301\302`!@\303\203�\304\202�\305#\207" [on sieve-overlay-put sieve-overlays-at face highlight default] 4 (#$ . 8700)])
#@71 Format and insert LANGUAGE-LIST strings into current buffer at point.
(defalias 'sieve-insert-scripts #[(scripts) "\205E�`\304\211A@	:\203�\305\306	A\"c\210\202#�\305\307	\"c\210\310`\"\311\n\312\313#\210\311\n\314	:\203;�	A\202<�	#\210\315c\210+\202��\207" [scripts script ext p nil format " ACTIVE %s" "        %s" sieve-make-overlay sieve-overlay-put mouse-face highlight script-name "\n"] 4 (#$ . 8925)])
(defalias 'sieve-open-server #[(server &optional port) "\302\301!\210\303!\304\305\211	#\207" [server sieve-manage-buffer make-local-variable sieve-manage-open sieve-manage-authenticate nil] 4])
(defalias 'sieve-refresh-scriptlist #[nil "rq\210\306\n\206�dd|\210db\210\307!\211\204\"�\310\311
\"c\210\2026�\310\312\fG\fG\313=\2031�\314\2022�\315
$c\210\212\316
C!\210\316\f!\210*\317\320!\210\320\211)\207" [sieve-buffer buffer-read-only sieve-buffer-header-end sieve-manage-buffer scripts sieve-new-script nil sieve-manage-listscripts format "No scripts on server, press RET on %s to create a new script.\n" "%d script%s on server, press RET on a script name edits it, or\npress RET on %s to create a new script.\n" 1 "" "s" sieve-insert-scripts sieve-highlight t] 6 nil nil])
(defalias 'sieve-manage #[(server &optional port) "\303\304!!\210\305 \210\306	\n\"\210\307	\n\"\203�\310 \207\311\312	\"\207" [sieve-buffer server port switch-to-buffer get-buffer-create sieve-manage-mode sieve-setup-buffer sieve-open-server sieve-refresh-scriptlist message "Could not open server %s"] 3 nil "sServer: "])
(defalias 'sieve-upload #[(&optional name) "\204�\305 \306	!\204�\307\310!\2057�\311 \312r\306	!q\210\313\f#\314\n!\2030�\315\316!\2026�\315\317\320\n8\"+\207" [name sieve-buffer err script sieve-manage-buffer buffer-name get-buffer call-interactively sieve-manage buffer-string nil sieve-manage-putscript sieve-manage-ok-p message "Sieve upload done.  Use `C-c RET' to manage scripts." "Sieve upload failed: %s" 2] 4 nil nil])
(defalias 'sieve-upload-and-bury #[(&optional name) "\301!\210\302 \207" [name sieve-upload bury-buffer] 2 nil nil])
(provide 'sieve)

${this.title}

Code Editor : sieve.elc