Gecko [ goons4good.org ]

Name	Size	Permission	Date
.dir-locals.el	105 B	-rw-r--r--	2012-04-13 21:33
auth-source.elc	51.28 KB	-rw-r--r--	2023-06-07 04:09
canlock.elc	5.89 KB	-rw-r--r--	2023-06-07 04:09
compface.elc	1.34 KB	-rw-r--r--	2023-06-07 04:09
deuglify.elc	8.04 KB	-rw-r--r--	2023-06-07 04:09
ecomplete.elc	4.59 KB	-rw-r--r--	2023-06-07 04:09
flow-fill.elc	4.74 KB	-rw-r--r--	2023-06-07 04:09
gmm-utils.elc	7.46 KB	-rw-r--r--	2023-06-07 04:09
gnus-agent.elc	121.05 KB	-rw-r--r--	2023-06-07 04:09
gnus-art.elc	256.06 KB	-rw-r--r--	2023-06-07 04:09
gnus-async.elc	12.05 KB	-rw-r--r--	2023-06-07 04:09
gnus-bcklg.elc	3.42 KB	-rw-r--r--	2023-06-07 04:09
gnus-bookmark.elc	24.2 KB	-rw-r--r--	2023-06-07 04:09
gnus-cache.elc	25.68 KB	-rw-r--r--	2023-06-07 04:09
gnus-cite.elc	27.02 KB	-rw-r--r--	2023-06-07 04:09
gnus-cus.elc	38.53 KB	-rw-r--r--	2023-06-07 04:09
gnus-delay.elc	4.79 KB	-rw-r--r--	2023-06-07 04:09
gnus-demon.elc	7.77 KB	-rw-r--r--	2023-06-07 04:09
gnus-diary.elc	8.86 KB	-rw-r--r--	2023-06-07 04:09
gnus-dired.elc	7.65 KB	-rw-r--r--	2023-06-07 04:09
gnus-draft.elc	11.72 KB	-rw-r--r--	2023-06-07 04:09
gnus-dup.elc	4.45 KB	-rw-r--r--	2023-06-07 04:09
gnus-eform.elc	3.43 KB	-rw-r--r--	2023-06-07 04:09
gnus-ems.elc	5.94 KB	-rw-r--r--	2023-06-07 04:09
gnus-fun.elc	8.5 KB	-rw-r--r--	2023-06-07 04:09
gnus-gravatar.elc	4.09 KB	-rw-r--r--	2023-06-07 04:09
gnus-group.elc	151.52 KB	-rw-r--r--	2023-06-07 04:09
gnus-html.elc	14.29 KB	-rw-r--r--	2023-06-07 04:09
gnus-int.elc	63.73 KB	-rw-r--r--	2023-06-07 04:10
gnus-kill.elc	17.78 KB	-rw-r--r--	2023-06-07 04:10
gnus-logic.elc	5.07 KB	-rw-r--r--	2023-06-07 04:10
gnus-mh.elc	2.83 KB	-rw-r--r--	2023-06-07 04:10
gnus-ml.elc	5.57 KB	-rw-r--r--	2023-06-07 04:10
gnus-mlspl.elc	6.3 KB	-rw-r--r--	2023-06-07 04:10
gnus-msg.elc	85.35 KB	-rw-r--r--	2023-06-07 04:10
gnus-notifications.elc	5.29 KB	-rw-r--r--	2023-06-07 04:10
gnus-picon.elc	8.41 KB	-rw-r--r--	2023-06-07 04:10
gnus-range.elc	12.41 KB	-rw-r--r--	2023-06-07 04:10
gnus-registry.elc	31.31 KB	-rw-r--r--	2023-06-07 04:10
gnus-salt.elc	24.04 KB	-rw-r--r--	2023-06-07 04:10
gnus-score.elc	73.99 KB	-rw-r--r--	2023-06-07 04:10
gnus-setup.elc	4.95 KB	-rw-r--r--	2023-06-07 04:10
gnus-sieve.elc	8.35 KB	-rw-r--r--	2023-06-07 04:10
gnus-spec.elc	14.81 KB	-rw-r--r--	2023-06-07 04:10
gnus-srvr.elc	48.21 KB	-rw-r--r--	2023-06-07 04:10
gnus-start.elc	144.43 KB	-rw-r--r--	2023-06-07 04:10
gnus-sum.elc	414.15 KB	-rw-r--r--	2023-06-07 04:10
gnus-sync.elc	21.49 KB	-rw-r--r--	2023-06-07 04:10
gnus-topic.elc	46.05 KB	-rw-r--r--	2023-06-07 04:10
gnus-undo.elc	4.29 KB	-rw-r--r--	2023-06-07 04:10
gnus-util.elc	52.93 KB	-rw-r--r--	2023-06-07 04:10
gnus-uu.elc	55.72 KB	-rw-r--r--	2023-06-07 04:10
gnus-vm.elc	2.57 KB	-rw-r--r--	2023-06-07 04:10
gnus-win.elc	10.58 KB	-rw-r--r--	2023-06-07 04:10
gnus.elc	156.43 KB	-rw-r--r--	2023-06-07 04:10
gravatar.elc	4.26 KB	-rw-r--r--	2023-06-07 04:10
gssapi.elc	2.41 KB	-rw-r--r--	2023-06-07 04:10
html2text.elc	10.47 KB	-rw-r--r--	2023-06-07 04:10
ietf-drums.elc	7.64 KB	-rw-r--r--	2023-06-07 04:10
legacy-gnus-agent.elc	6.54 KB	-rw-r--r--	2023-06-07 04:10
mail-parse.elc	2.39 KB	-rw-r--r--	2023-06-07 04:10
mail-prsvr.elc	1.23 KB	-rw-r--r--	2023-06-07 04:10
mail-source.elc	28.49 KB	-rw-r--r--	2023-06-07 04:10
mailcap.elc	24.93 KB	-rw-r--r--	2023-06-07 04:10
message.elc	227.03 KB	-rw-r--r--	2023-06-07 04:10
messcompat.elc	2.69 KB	-rw-r--r--	2023-06-07 04:10
mm-archive.elc	2.85 KB	-rw-r--r--	2023-06-07 04:10
mm-bodies.elc	5.99 KB	-rw-r--r--	2023-06-07 04:10
mm-decode.elc	50.6 KB	-rw-r--r--	2023-06-07 04:10
mm-encode.elc	6.2 KB	-rw-r--r--	2023-06-07 04:10
mm-extern.elc	4.28 KB	-rw-r--r--	2023-06-07 04:10
mm-partial.elc	3.37 KB	-rw-r--r--	2023-06-07 04:10
mm-url.elc	8.73 KB	-rw-r--r--	2023-06-07 04:10
mm-util.elc	39.65 KB	-rw-r--r--	2023-06-07 04:10
mm-uu.elc	18.9 KB	-rw-r--r--	2023-06-07 04:10
mm-view.elc	18.51 KB	-rw-r--r--	2023-06-07 04:10
mml-sec.elc	12.41 KB	-rw-r--r--	2023-06-07 04:10
mml-smime.elc	14.44 KB	-rw-r--r--	2023-06-07 04:10
mml.elc	42.01 KB	-rw-r--r--	2023-06-07 04:10
mml1991.elc	11.5 KB	-rw-r--r--	2023-06-07 04:10
mml2015.elc	33.95 KB	-rw-r--r--	2023-06-07 04:10
nnagent.elc	10.93 KB	-rw-r--r--	2023-06-07 04:10
nnbabyl.elc	17.15 KB	-rw-r--r--	2023-06-07 04:10
nndiary.elc	39.54 KB	-rw-r--r--	2023-06-07 04:10
nndir.elc	2.95 KB	-rw-r--r--	2023-06-07 04:11
nndoc.elc	30.11 KB	-rw-r--r--	2023-06-07 04:11
nndraft.elc	10.94 KB	-rw-r--r--	2023-06-07 04:11
nneething.elc	11.83 KB	-rw-r--r--	2023-06-07 04:11
nnfolder.elc	32.19 KB	-rw-r--r--	2023-06-07 04:11
nngateway.elc	3.04 KB	-rw-r--r--	2023-06-07 04:11
nnheader.elc	31.94 KB	-rw-r--r--	2023-06-07 04:11
nnimap.elc	68.59 KB	-rw-r--r--	2023-06-07 04:11
nnir.elc	56.96 KB	-rw-r--r--	2023-06-07 04:11
nnmail.elc	53.02 KB	-rw-r--r--	2023-06-07 04:11
nnmaildir.elc	97.58 KB	-rw-r--r--	2023-06-07 04:11
nnmairix.elc	72.67 KB	-rw-r--r--	2023-06-07 04:11
nnmbox.elc	18.82 KB	-rw-r--r--	2023-06-07 04:11
nnmh.elc	15.52 KB	-rw-r--r--	2023-06-07 04:11
nnml.elc	39.81 KB	-rw-r--r--	2023-06-07 04:11
nnnil.elc	1.77 KB	-rw-r--r--	2023-06-07 04:11
nnoo.elc	8.72 KB	-rw-r--r--	2023-06-07 04:11
nnregistry.elc	1.85 KB	-rw-r--r--	2023-06-07 04:11
nnrss.elc	30.01 KB	-rw-r--r--	2023-06-07 04:11
nnspool.elc	15.88 KB	-rw-r--r--	2023-06-07 04:11
nntp.elc	121.29 KB	-rw-r--r--	2023-06-07 04:11
nnvirtual.elc	18.42 KB	-rw-r--r--	2023-06-07 04:11
nnweb.elc	17.61 KB	-rw-r--r--	2023-06-07 04:11
plstore.elc	14.75 KB	-rw-r--r--	2023-06-07 04:11
pop3.elc	14.53 KB	-rw-r--r--	2023-06-07 04:11
qp.elc	4.35 KB	-rw-r--r--	2023-06-07 04:11
registry.elc	9.3 KB	-rw-r--r--	2023-06-07 04:11
rfc1843.elc	5.35 KB	-rw-r--r--	2023-06-07 04:11
rfc2045.elc	971 B	-rw-r--r--	2023-06-07 04:11
rfc2047.elc	24.75 KB	-rw-r--r--	2023-06-07 04:11
rfc2104.elc	1.43 KB	-rw-r--r--	2023-06-07 04:11
rfc2231.elc	6.84 KB	-rw-r--r--	2023-06-07 04:11
rtree.elc	4.3 KB	-rw-r--r--	2023-06-07 04:11
score-mode.elc	3.32 KB	-rw-r--r--	2023-06-07 04:11
shr-color.elc	9.11 KB	-rw-r--r--	2023-06-07 04:11
shr.elc	33.2 KB	-rw-r--r--	2023-06-07 04:11
sieve-manage.elc	17.1 KB	-rw-r--r--	2023-06-07 04:11
sieve-mode.elc	7.73 KB	-rw-r--r--	2023-06-07 04:11
sieve.elc	11.08 KB	-rw-r--r--	2023-06-07 04:11
smiley.elc	5.39 KB	-rw-r--r--	2023-06-07 04:11
smime.elc	19.61 KB	-rw-r--r--	2023-06-07 04:11
spam-report.elc	11.53 KB	-rw-r--r--	2023-06-07 04:11
spam-stat.elc	19.64 KB	-rw-r--r--	2023-06-07 04:11
spam-wash.elc	1.37 KB	-rw-r--r--	2023-06-07 04:11
spam.elc	83.9 KB	-rw-r--r--	2023-06-07 04:11
starttls.elc	6.42 KB	-rw-r--r--	2023-06-07 04:11
utf7.elc	5.83 KB	-rw-r--r--	2023-06-07 04:11
yenc.elc	3.62 KB	-rw-r--r--	2023-06-07 04:11

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:10:26 2023
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-sieve.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\300\302!\210\300\303!\210\304\305\306\"\210\307\310\311\312\313\301%\210\314\315\316\317\320\321\313\310&\210\314\322\323\324\320\325\313\310&\210\314\326\327\330\320\325\313\310&\210\314\331\311\332\313\310%\210\314\333\334\335\320\336\313\310&\210\314\337\340\341\320\325\313\310&\207" [require gnus gnus-sum format-spec autoload sieve-mode "sieve-mode" custom-declare-group gnus-sieve nil "Manage sieve scripts in Gnus." :group custom-declare-variable gnus-sieve-file "~/.sieve" "Path to your Sieve script." :type file gnus-sieve-region-start "\n## Begin Gnus Sieve Script\n" "Line indicating the start of the autogenerated region in\nyour Sieve script." string gnus-sieve-region-end "\n## End Gnus Sieve Script\n" "Line indicating the end of the autogenerated region in\nyour Sieve script." gnus-sieve-select-method "Which select method we generate the Sieve script for.\n\nFor example: \"nnimap:mailbox\"" gnus-sieve-crosspost t "Whether the generated Sieve script should do crossposting." boolean gnus-sieve-update-shell-command "echo put %f | sieveshell %s" "Shell command to execute after updating your Sieve script.  The following\nformatting characters are recognized:\n\n%f    Script's file name (gnus-sieve-file)\n%s    Server name (from gnus-sieve-select-method)"] 8)
#@314 Update the Sieve script in gnus-sieve-file, by replacing the region
between gnus-sieve-region-start and gnus-sieve-region-end with
(gnus-sieve-script gnus-sieve-select-method gnus-sieve-crosspost), then
execute gnus-sieve-update-shell-command.
See the documentation for these variables and functions for details.
(defalias 'gnus-sieve-update #[nil "\306 \210\307 \210\310\311\312\313	\314\315\n;\203\211\203%�
<\203%�
\206\316
\"A\206
\317\232\2039�\206\351�\316
 \"A\206\351�\316
!\"A\206\351�\"##\203r�
\320\321#@@@#@@A@#\232\204r�#\211A#@\210\202O�#\211$@@*\206\351�%&&\203\246�
\320\321&\211$@@)&@A@#\232\204\246�&\211A&@\210\202\201�&@)\206\351�'A\315\211())\203\346�\322)\211A)@8\211;\204\267�
\315\323*+\324\325\215+\232\203\267�(\315\211)\204\274�(+\211,\203�\316
\"\204�
,BB,))\202w\232\203\202w@;\203$\f\203$\326\f\"\202w\203<\f\204<\211$A@)\327\232\203<\202w\330@!-\331\316-.\">\203u\332-\333P!\236\204u\334@.\236>\203u\335\332-\333P!A@DC\"\202v**\211$A@)\206\202\327$\"!\207" [gnus-sieve-update-shell-command gnus-sieve-file gnus-sieve-select-method method group server gnus-sieve-generate save-buffer shell-command format-spec format-spec-make 102 115 nil assoc "native" format "%s:%s" 4 t server-name (byte-code "\206�	\n\204�\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*�\312\313@\"\2026�\312\314@\211A@)#\211B\211\235\204V�\204V�\315@\"\204V�B*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f�\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205�\n\235\204�\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1="") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-server-extend-method #1# symbol-name address intern "-address" physical-address append gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match alist no-enter-cache nocache result method-name gnus-valid-select-methods] 13 (#$ . 1867) nil])
#@270 Generate the Sieve script in gnus-sieve-file, by replacing the region
between gnus-sieve-region-start and gnus-sieve-region-end with
(gnus-sieve-script gnus-sieve-select-method gnus-sieve-crosspost).
See the documentation for these variables and functions for details.
(defalias 'gnus-sieve-generate #[nil "\306\307!\210\310!\210eb\210\311\312	!\313\314#\203'�\315\224\311\312\n!\313\314#\206\"�`|\210\202*�c\210	\316\f
\"\n\261\207" [gnus-sieve-file gnus-sieve-region-start gnus-sieve-region-end sieve-template gnus-sieve-select-method gnus-sieve-crosspost require sieve find-file re-search-forward regexp-quote nil t 0 gnus-sieve-script] 5 (#$ . 4245) nil])
#@95 Guess a sieve rule based on RFC822 article in buffer.
Return nil if no rule could be guessed.
(defalias 'gnus-sieve-guess-rule-for-article #[nil "\300\301!\205
�\302\303\301\300\301!F\207" [message-fetch-field "sender" sieve address] 5 (#$ . 4914)])
(defalias 'gnus-sieve-article-add-rule #[nil "\305\306\307\"\210rq\210\310 \311\312	\n\"J8\211\204�\313\314!\202-�\315\233\f\3158B\240\210\316\317	\f#+\207" [gnus-original-article-buffer gnus-newsgroup-name gnus-newsrc-hashtb info rule gnus-summary-select-article nil force gnus-sieve-guess-rule-for-article 2 intern-soft error "Could not guess rule for article" 5 message "Added rule in group %s for article: %s"] 6 nil nil])
#@131 Convert an elisp string list to a Sieve string list.

For example:
(gnus-sieve-string-list '("to" "cc"))
  => "[\"to\", \"cc\"]"

(defalias 'gnus-sieve-string-list #[(list) "\301\302\303\304#\305Q\207" [list "[\"" mapconcat identity "\", \"" "\"]"] 5 (#$ . 5604)])
#@208 Convert an elisp test list to a Sieve test list.

For example:
(gnus-sieve-test-list '((address "sender" "boss@company.com") (size :over 4K)))
  => "(address \"sender\" \"boss@company.com\", size :over 4K)"
(defalias 'gnus-sieve-test-list #[(list) "\301\302\303\304#\305Q\207" [list "(" mapconcat gnus-sieve-test ", " ")"] 5 (#$ . 5877)])
#@228 Convert an elisp test token to a Sieve test token.

For example:
(gnus-sieve-test-token 'address)
  => "address"

(gnus-sieve-test-token "sender")
  => "\"sender\""

(gnus-sieve-test-token '("to" "cc"))
  => "[\"to\", \"cc\"]"
(defalias 'gnus-sieve-test-token #[(token) "9\203	�\301!\207;\203�\302\302Q\207<\203\"�@;\203\"�\303!\207<\2050�@<\2050�\304!\207" [token symbol-name "\"" gnus-sieve-string-list gnus-sieve-test-list] 3 (#$ . 6224)])
#@364 Convert an elisp test to a Sieve test.

For example:
(gnus-sieve-test '(address "sender" "sieve-admin@extundo.com"))
  => "address \"sender\" \"sieve-admin@extundo.com\""

(gnus-sieve-test '(anyof ((header :contains ("to" "cc") "my@address.com")
			  (size :over 100K))))
  => "anyof (header :contains [\"to\", \"cc\"] \"my@address.com\",
	     size :over 100K)"
(defalias 'gnus-sieve-test #[(test) "\301\302\303#\207" [test mapconcat gnus-sieve-test-token " "] 4 (#$ . 6685)])
#@787 Generate a Sieve script based on groups with select method METHOD
(or all groups if nil).  Only groups having a `sieve' parameter are
considered.  This parameter should contain an elisp test
(see the documentation of gnus-sieve-test for details).  For each
such group, a Sieve IF control structure is generated, having the
test as the condition and { fileinto "group.name"; } as the body.

If CROSSPOST is nil, each conditional body contains a "stop" command
which stops execution after a match is found.

For example: If the INBOX.list.sieve group has the

(sieve address "sender" "sieve-admin@extundo.com")

group parameter, (gnus-sieve-script) results in:

if address "sender" "sieve-admin@extundo.com" {
          fileinto "INBOX.list.sieve";
  }

This is returned as a string.
(defalias 'gnus-sieve-script #[(&optional method crosspost) "A\306	\306\211\203e�\f@
\203�\307
\3108\"\203^�@\311\312\313#\211\203]�\314\315!\316\317\320\321\"\203I�\322\225\306O\202K�)\323\203V�\324\202W�\325\326\260\nB*\fA\211\204
�*\327\330\n\331#*\207" [gnus-newsrc-alist newsrc script info --dolist-tail-- method nil gnus-server-equal 4 gnus-group-find-parameter sieve t "if " gnus-sieve-test " {\n" "	fileinto \"" string-match "^[^:]+:" 0 "\";\n" "" "	stop;\n" "}" mapconcat identity "\n" group spec gname crosspost] 9 (#$ . 7171)])
(provide 'gnus-sieve)