;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\210\310\311\312\313\314DD\315\316\317%\210\310\320\312\313\321DD\322\316\323%\210\310\324\312\313\325DD\326\316\323%\210\310\327\312\313\330DD\331\316\332%\210\310\333\312\313\334DD\335\316\336%\210\310\337\312\313\340DD\341\316\323%\207" [require gnus gnus-sum custom-declare-group gnus-sieve nil "Manage sieve scripts in Gnus." :group custom-declare-variable gnus-sieve-file funcall function #[0 "\300\207" ["~/.sieve"] 1 #1=""] "Path to your Sieve script." :type file gnus-sieve-region-start #[0 "\300\207" ["\n## Begin Gnus Sieve Script\n"] 1 #1#] "Line indicating the start of the autogenerated region in your Sieve script." string gnus-sieve-region-end #[0 "\300\207" ["\n## End Gnus Sieve Script\n"] 1 #1#] "Line indicating the end of the autogenerated region in your Sieve script." gnus-sieve-select-method #[0 "\300\207" [nil] 1 #1#] "Which select method we generate the Sieve script for.\nFor example: \"nnimap:mailbox\"" (choice (const nil) string) gnus-sieve-crosspost #[0 "\300\207" [t] 1 #1#] "Whether the generated Sieve script should do crossposting." boolean gnus-sieve-update-shell-command #[0 "\300\207" ["echo put %f | sieveshell %s"] 1 #1#] "Shell command to execute after updating your Sieve script.\n\nThe following formatting characters are recognized:\n\n%f    Script's file name (gnus-sieve-file)\n%s    Server name (from gnus-sieve-select-method)"] 6)
#@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 #[0 "\306 \210\307 \210\310\311\312	B\313\314\n\211;\203F
\211\211\203\"\211<\203\"\211\206A
\315
\"A\206A
\211\316\232\2034\f\206-
\315

\"A\206-
\315
\"\"A\206-
#\211\203c
\317\320@@@@@A@#\232\204c\211A\262
\202G\211@@\262
\206-
$\211\203\207
\317\320@@@A@#\232\204\207\211A\262
\202m\211@\262
\206-
%A\314\211\203+
\211A\262\242\321
8\262
\262
;\204\223\314\322C\3232
\211
\242\206\272\f\240\210\204\310\324\325\326\"\"\210
\"D\211\203\341\211@\324\325\327\"\"\210
A\266\202\202\314\210\211\242A@\330\235\203\364\317\331\242@\"\202\376\317\320\242@\242A@#\211\242B\204
\211\235\204
\315
@\"\204
\211B
\266\2020\266\204\232\203\223
\262
\314\262\202\223\266\202\211\203>
\315\"\204>


BB\211\262
\266\203\202\262
\211\f\232\203R
\f\266\202\202\262

\203e
\211@;\203e
\332\"\266\202\202\262
\211\203z

\204z
\211A@\333\232\203z
\262
\202\262
\211\334
@!\335\315&\">\203\257
\336
\337P!\236\204\257
\340@&\236>\203\257
\341\336\337P!A@DC\"\266\204\202\262

\266\204A@\206\270
\333BD\"!\207" [gnus-sieve-update-shell-command gnus-sieve-file gnus-sieve-select-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-sieve-generate save-buffer shell-command format-spec 102 115 nil assoc "native" format "%s:%s" 4 t server-name mapc make-closure #[257 "\211A\300\242\232\205
\301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil #1="") "%s" gnus-server-extend-method #1# symbol-name address intern "-address" physical-address append gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist gnus-valid-select-methods] 22 (#$ . 1528) 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 #[0 "\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 (#$ . 3722) 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 #[0 "\300\301!\205
\302\303\301\300\301!F\207" [message-fetch-field "sender" sieve address] 5 (#$ . 4389)])
(defalias 'gnus-sieve-article-add-rule #[0 "\303\304\305\"\210rq\210\306 	\307
\n\"A@\262

\204 \310\311!\266\202\2022\312
\233\211@B\240\266\313\314	#\266\202)\207" [gnus-original-article-buffer gnus-newsgroup-name gnus-newsrc-hashtb gnus-summary-select-article nil force gnus-sieve-guess-rule-for-article gethash error "Could not guess rule for article" 5 message "Added rule in group %s for article: %s"] 6 nil [nil (gnus-article-mode gnus-summary-mode)]])
#@143 Convert an elisp string list to a Sieve string list.

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

(fn LIST)
(defalias 'gnus-sieve-string-list #[257 "\300\301\302\303#\304Q\207" ["[\"" mapconcat identity "\", \"" "\"]"] 6 (#$ . 5111)])
#@221 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)"

(fn LIST)
(defalias 'gnus-sieve-test-list #[257 "\300\301\302\303#\304Q\207" ["(" mapconcat gnus-sieve-test ", " ")"] 6 (#$ . 5388)])
#@244 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\"]"

(fn TOKEN)
(defalias 'gnus-sieve-test-token #[257 "\2119\203	\300
!\207\211;\203\301
\301Q\207\211<\203\"\211@;\203\"\302
!\207\211<\2050\211@<\2050\303
!\207" [symbol-name "\"" gnus-sieve-string-list gnus-sieve-test-list] 4 (#$ . 5740)])
#@379 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)"

(fn TEST)
(defalias 'gnus-sieve-test #[257 "\300\301\302#\207" [mapconcat gnus-sieve-test-token " "] 5 (#$ . 6225)])
#@820 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.

(fn &optional METHOD CROSSPOST)
(defalias 'gnus-sieve-script #[512 "A\301
\211\203T\211@\203\302\3038\"\203M\211@\304
\305\306#\211\203K\307\310!\311\312\313\"\2038\314\225\301O\2029\315\203C\316\202D\317\320\260B\262\266
A\266\202\202\210\321\322\323#\207" [gnus-newsrc-alist 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"] 15 (#$ . 6718)])
(provide 'gnus-sieve)