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



(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310DD\311\312\313\312\314\315\316&	\210\304\317\306\307\320DD\321\312\313\315\322&\207" [require gnus gnus-art gnus-range custom-declare-variable gnus-kill-expiry-days funcall function #[0 "\300\207" [7] 1 #1=""] "Number of days before expiring unused kill file entries." :group gnus-score-kill gnus-score-expire :type integer gnus-kill-save-kill-file #[0 "\300\207" [nil] 1 #1#] "If non-nil, will save kill files after processing them." boolean] 10)
#@45 What does this do, Lars?
I don't know, Per.
(defvar gnus-winconf-kill-file nil (#$ . 604))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable gnus-kill-killed funcall function #[0 "\300\207" [t] 1 ""] "If non-nil, Gnus will apply kill files to already killed articles.\nIf it is nil, Gnus will never apply kill files to articles that have\nalready been through the scoring process, which might very well save lots\nof time." :group gnus-score-kill :type boolean] 8)
#@31 

(fn FIELD EXPRESSION LEVEL)
(defalias 'gnus-raise '(macro . #[771 "\300\301\302DD\303BBBB\207" [gnus-kill function gnus-summary-raise-score (t)] 9 (#$ . 1112)]))
#@31 

(fn FIELD EXPRESSION LEVEL)
(defalias 'gnus-lower '(macro . #[771 "\300\301\302\303DDD\304BBBB\207" [gnus-kill function gnus-summary-raise-score - (t)] 10 (#$ . 1285)]))
(defvar gnus-kill-file-mode-map (byte-code "\301 \302
\"\210\303
\304\"\210\207" [emacs-lisp-mode-map make-sparse-keymap set-keymap-parent gnus-define-keys-1 ("" gnus-kill-file-kill-by-subject "
" gnus-kill-file-kill-by-author "" gnus-kill-file-kill-by-thread "" gnus-kill-file-kill-by-xref "
" gnus-kill-file-apply-buffer "" gnus-kill-file-apply-last-sexp "" gnus-kill-file-exit)] 4))
(defvar gnus-kill-file-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [gnus-kill-file-mode-hook variable-documentation put "Hook run after entering Kill mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp gnus-kill-file-mode-map definition-name gnus-kill-file-mode] 4)
(defvar gnus-kill-file-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [gnus-kill-file-mode-abbrev-table gnus-kill-file-mode-map variable-documentation put purecopy "Keymap for `gnus-kill-file-mode'." boundp gnus-kill-file-mode-syntax-table definition-name gnus-kill-file-mode (lambda (#1=#:def-tmp-var) (defvar gnus-kill-file-mode-syntax-table #1#)) make-syntax-table "Syntax table for `gnus-kill-file-mode'." (lambda (#1#) (defvar gnus-kill-file-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `gnus-kill-file-mode'." derived-mode-parent emacs-lisp-mode] 5)
#@2809 Major mode for editing kill files.

If you are using this mode - you probably shouldn't.  Kill files
perform badly and paint with a pretty broad brush.  Score files, on
the other hand, are vastly faster (40x speedup) and give you more
control over what to do.

In addition to Emacs-Lisp Mode, the following commands are available:

\{gnus-kill-file-mode-map}

  A kill file contains Lisp expressions to be applied to a selected
newsgroup.  The purpose is to mark articles as read on the basis of
some set of regexps.  A global kill file is applied to every newsgroup,
and a local kill file is applied to a specified newsgroup.  Since a
global kill file is applied to every newsgroup, for better performance
use a local one.

  A kill file can contain any kind of Emacs Lisp expressions expected
to be evaluated in the Summary buffer.  Writing Lisp programs for this
purpose is not so easy because the internal working of Gnus must be
well-known.  For this reason, Gnus provides a general function which
does this easily for non-Lisp programmers.

  The `gnus-kill' function executes commands available in Summary Mode
by their key sequences.  `gnus-kill' should be called with FIELD,
REGEXP and optional COMMAND and ALL.  FIELD is a string representing
the header field or an empty string.  If FIELD is an empty string, the
entire article body is searched for.  REGEXP is a string which is
compared with FIELD value.  COMMAND is a string representing a valid
key sequence in Summary mode or Lisp expression.  COMMAND defaults to
(gnus-summary-mark-as-read nil "X").  Make sure that COMMAND is
executed in the Summary buffer.  If the second optional argument ALL
is non-nil, the COMMAND is applied to articles which are already
marked as read or unread.  Articles which are marked are skipped over
by default.

  For example, if you want to mark articles of which subjects contain
the string `AI' as read, a possible kill file may look like:

	(gnus-kill "Subject" "AI")

  If you want to mark articles with `D' instead of `X', you can use
the following expression:

	(gnus-kill "Subject" "AI" "d")

In this example it is assumed that the command
`gnus-summary-mark-as-read-forward' is assigned to `d' in Summary Mode.

  It is possible to delete unnecessary headers which are marked with
`X' in a kill file as follows:

	(gnus-expunge "X")

  If the Summary buffer is empty after applying kill files, Gnus will
exit the selected newsgroup normally.  If headers which are marked
with `D' are deleted in a kill file, it is impossible to read articles
which are marked as read in the previous Gnus sessions.  Marks other
than `D' should be used for articles which should really be deleted.

Entry to this mode calls emacs-lisp-mode-hook and
gnus-kill-file-mode-hook with no arguments, if that value is non-nil.
(defalias 'gnus-kill-file-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
=\204R\326
\325C#\210\327!\210\330\f!\210
)\331\332!\207" [delay-mode-hooks major-mode mode-name gnus-kill-file-mode-map gnus-kill-file-mode-syntax-table gnus-kill-file-mode-abbrev-table make-local-variable t emacs-lisp-mode gnus-kill-file-mode "Kill" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table run-mode-hooks gnus-kill-file-mode-hook local-abbrev-table] 5 (#$ . 3126) nil])
#@113 Begin editing a kill file for NEWSGROUP.
If NEWSGROUP is nil, the global kill file is selected.

(fn NEWSGROUP)
(defalias 'gnus-kill-file-edit-file #[257 "\302
!\303\304!!\210\305
!\203\306\305!!\204\307 \310
!\306
!\203+\311
!\266\202\\\312\313!\203=\314\315!\210\311
!\266\202\\\312\316!\203W\314\317!\210\311	!\210\320	!\210\321
!\266\202\\\322!\266\323 \207" [gnus-winconf-kill-file gnus-article-buffer gnus-newsgroup-kill-file gnus-make-directory file-name-directory get-file-buffer get-buffer-window current-window-configuration find-file-noselect pop-to-buffer derived-mode-p gnus-group-mode gnus-configure-windows group gnus-summary-mode article bury-buffer switch-to-buffer find-file-other-window gnus-kill-file-mode] 5 (#$ . 6709) "sNewsgroup: "])
(defalias 'gnus-kill-set-kill-buffer #[0 "\301!\302
!\211q\210\303 \210\304
!\207" [gnus-newsgroup-name gnus-newsgroup-kill-file find-file-noselect gnus-kill-file-mode bury-buffer] 4])
#@41 

(fn FIELD REGEXP &optional DONT-MOVE)
(defalias 'gnus-kill-file-enter-kill #[770 "\212\300\301\302!\204\303 \210
\204db\210\304\305#\211\262c\210\306
!\262
)\207" [nil derived-mode-p gnus-kill-file-mode gnus-kill-set-kill-buffer format "(gnus-kill %S %S)\n" gnus-kill-file-apply-string] 8 (#$ . 7677)])
#@18 Kill by subject.
(defalias 'gnus-kill-file-kill-by-subject #[0 "\301\302\303!\203\304\305\306H!!\202\307\310#\207" [gnus-current-headers gnus-kill-file-enter-kill "Subject" vectorp regexp-quote gnus-simplify-subject 1 "" t] 6 (#$ . 7995) nil])
#@17 Kill by author.
(defalias 'gnus-kill-file-kill-by-author #[0 "\301\302\303!\203\304\305H!\202\306\307#\207" [gnus-current-headers gnus-kill-file-enter-kill "From" vectorp regexp-quote 2 "" t] 5 (#$ . 8251) nil])
#@17 Kill by author.
(defalias 'gnus-kill-file-kill-by-thread #[0 "\301\302\303!\203\304\305H!\202\306\"\207" [gnus-current-headers gnus-kill-file-enter-kill "References" vectorp regexp-quote 4 ""] 5 (#$ . 8475) nil])
#@15 Kill by Xref.
(defalias 'gnus-kill-file-kill-by-xref #[0 "\302!\205	\303H\304\305\2037\306\307#\205<\304\225\262\310\224\310\225O\211\262	\230\204\311\312\313\314!\315Q\316#\210\202\311\312\317\316#\207" [gnus-current-headers gnus-newsgroup-name vectorp 8 0 nil string-match " \\([^ 	]+\\):" 1 gnus-kill-file-enter-kill "Xref" " " regexp-quote ":" t ""] 8 (#$ . 8700) nil])
#@66 Raise score for all followups to the current author.

(fn LEVEL)
(defalias 'gnus-kill-file-raise-followups-to-author #[257 "\301H\302\212\303 \210eb\210\304\305\306Q\307!\"\262\310\311\312$\262
\211c\210\313
!\210)\314\315\316#\207" [gnus-current-headers 2 nil gnus-kill-set-kill-buffer read-string "Add " " to followup articles to: " regexp-quote format "(gnus-kill %S %S '(gnus-summary-temporarily-raise-by-thread %S))\n" "From" gnus-kill-file-apply-string gnus-message 6 "Added temporary score file entry for followups to %s."] 8 (#$ . 9096) "p"])
#@44 Apply current buffer to current newsgroup.
(defalias 'gnus-kill-file-apply-buffer #[0 "\203\302	!\203\303\304 !\207\305 \210\306\307\310\"\207" [gnus-current-kill-article gnus-summary-buffer get-buffer gnus-kill-file-apply-string buffer-string ding gnus-message 2 "No newsgroup is selected."] 3 (#$ . 9661) nil])
#@49 Apply STRING to current newsgroup.

(fn STRING)
(defalias 'gnus-kill-file-apply-string #[257 "\301
\302Q\212\303 \304\305\"\216\306!\210\307\310!@\311\")\262
)\207" [gnus-summary-buffer "(progn \n" "\n)" current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] pop-to-buffer eval read-from-string t] 6 (#$ . 9985) nil])
#@65 Apply sexp before point in current buffer to current newsgroup.
(defalias 'gnus-kill-file-apply-last-sexp #[0 "\203+\302	!\203+\212\303\304!\210`)`{\212\305 \306\307\"\216\310	!\210\311\312!@\313\")\262
)\207\314 \210\315\316\317\"\207" [gnus-current-kill-article gnus-summary-buffer get-buffer forward-sexp -1 current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] pop-to-buffer eval read-from-string t ding gnus-message 2 "No newsgroup is selected."] 5 (#$ . 10352) nil])
#@55 Save a kill file, then return to the previous buffer.
(defalias 'gnus-kill-file-exit #[0 "\302 \210p\303!\203\304!\210\305
!\210	\203\306	!\210\307\310
!\207" [gnus-article-buffer gnus-winconf-kill-file save-buffer get-buffer bury-buffer delete-windows-on set-window-configuration nil kill-buffer] 3 (#$ . 10877) nil])
#@45 Remove lines marked with MARKS.

(fn MARKS)
(defalias 'gnus-expunge #[257 "rq\210\301
\302\")\207" [gnus-summary-buffer gnus-summary-limit-to-marks reverse] 4 (#$ . 11209)])
#@71 Apply .KILL file, unless a .SCORE file for the same newsgroup exists.
(defalias 'gnus-apply-kill-file-unless-scored #[0 "\301\302!!\203\301\303!!\203\304\305\306#\210\307\207\301\303\310!!\204(\301\303!!\203+\311 \207\307\207" [gnus-newsgroup-name file-exists-p gnus-score-file-name gnus-newsgroup-kill-file gnus-message 3 "Note: Ignoring %s.KILL; preferring .SCORE" 0 nil gnus-apply-kill-file-internal] 4 (#$ . 11390)])
#@92 Apply a kill file to the current newsgroup.
Returns the number of articles marked as read.
(defalias 'gnus-apply-kill-file-internal #[0 "\306\307!\306!D	G\310\307
\211\203R\311
@!\203K\f
\203(\312\313\"\266\202G\211\203E\314
@\315H\"\204>\211@\315HB\211A\262
\202(\266\307\202\211A\262
\202\210\205\250\316 \317\320\"\216\212\203\241\311@!\203\232\321\322\323@#\210\324@!\210eb\210\3251\204\326p!0\202\206\210\307:\203\220\327 \210\202\223\330 \210\321\322\331@#\210A\262\202_*\210\332\333!\210\315)\207" [gnus-newsgroup-name gnus-newsgroup-unreads gnus-summary-inhibit-highlight gnus-newsgroup-kill-headers gnus-newsgroup-headers gnus-kill-killed gnus-newsgroup-kill-file nil t file-exists-p mapcar mail-header-number gnus-member-of-range 0 current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] gnus-message 6 "Processing kill file %s..." find-file (error) read gnus-kill-parse-gnus-kill-file gnus-kill-parse-rn-kill-file "Processing kill file %s...done" gnus-set-mode-line summary gnus-newsgroup-killed] 7 (#$ . 11827)])
(defalias 'gnus-kill-parse-gnus-kill-file #[0 "eb\210\302 \210\303\211`\262\3041\305p!0\202\210\303\211\262\203d\211<\204(\306\307\"\210\211@\310=\204=\211@\311=\204=\211@\312=\203N
`|\210\313
\314\"\206I\315c\210\202rq\210\3161_\313
\314\"0\210\202`\210)\202\317 \203p	\203p\320 \210\321\303!\207" [gnus-summary-buffer gnus-kill-save-kill-file gnus-kill-file-mode nil (error) read error "Invalid kill entry (possibly rn kill file?): %s" gnus-kill gnus-raise gnus-lower eval t "" (error) buffer-modified-p save-buffer set-buffer-modified-p] 5])
(defalias 'gnus-kill-parse-rn-kill-file #[0 "eb\210\300 \210\301\302\211\211m?\205`\303\304!\203Z\305\224\305\225{\262\306\224\203'\306\224f\202(\307\262\310\224\310\225{\262
\311\312\"\203@\313\314\315\"\210\316\262
\313\236A\206I\317\320\316\"\203U\321\202V\322\302\323%\210\305y\210\202\n\207" [gnus-kill-file-mode ((97 . #1="") (104 . #1#) (102 . "from") (58 . "subject")) nil looking-at "[ 	]*/\\([^/]*\\)/\\([ahfcH]\\)?:\\([a-z=:]*\\)" 1 2 115 3 string-search "+" gnus-kill "from" "." "m" "subject" string-match (gnus-summary-tick-article nil " ") (gnus-summary-mark-as-read nil "X") t] 10])
#@419 If FIELD of an article matches REGEXP, execute COMMAND.
Optional 1st argument COMMAND is default to
	(gnus-summary-mark-as-read nil "X").
If optional 2nd argument ALL is non-nil, articles marked are also applied to.
If FIELD is an empty string (or nil), entire article body is searched for.
COMMAND must be a Lisp expression or a string representing a key sequence.

(fn FIELD REGEXP &optional EXE-COMMAND ALL SILENT)
(defalias 'gnus-kill #[1282 "p\212\302 \303\304\"\216\305\306\"\210eb\210\307 \206\310\311\211\211<\203\271A:\204W\312

@\311?%\313U\203O\314
A\"	V\203\306\311\262\f\266\202\310\241\266\202\310@\211\262\203\264:\203\236A\262\312
@\311?%\313U\203\227\314\"	V\203\252\211\203\217\211A\241\210\202\252A\262\f\202\252\241\210\202\252\312
\311?%\210\262
A\262\202W\266\202\310\312
\311?%\210\266)\210)\305
!\210\315\316!\205
\205

?\205
\317\320:\203\357\321D\202\361E\204\372\205\377\321DC\244\205
\322C\244!\207" [gnus-summary-buffer gnus-kill-expiry-days current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] switch-to-buffer norecord current-time-string (gnus-summary-mark-as-read nil gnus-kill-file-mark) nil gnus-execute 0 days-between derived-mode-p gnus-kill-file-mode gnus-pp-gnus-kill gnus-kill quote t] 19 (#$ . 14118)])
#@15 

(fn OBJECT)
(defalias 'gnus-pp-gnus-kill #[257 "\300
8:\203\"\300
8A:\203\"\300
8@\301=\203(\300
8A@A:\204(\302\303!P\207r\304\305!q\210\306 \210\307 \210\310\311@A@#c\210\300
8A@\312
\203b\211\203S\313\262
\314\202T\315\303@!\261\210
A\262\202D\266\316c\210\317
8\203\213\320\3178:\203\202\3178@\301=\204\202\321\202\203\314\303\3178!\261\210\322
8\203\224\323c\210\316c\210\324 \325p!\210)\207" [2 quote "\n" gnus-prin1-to-string gnus-get-buffer-create "*Gnus PP*" buffer-disable-undo erase-buffer format "\n(%S %S\n  '(" t nil "" "\n    " ")" 3 "\n  " "'" 4 "\n  t" buffer-string kill-buffer] 6 (#$ . 15508)])
#@36 

(fn FUNCTION REGEXP FORM HEADER)
(defalias 'gnus-execute-1 #[1028 "\212\305
\203\226\203K\305\203G!\262
\211;\204\306
!\262
\307\"\211\262\203G;\2035\310!\266\202\226\311!\203B \266\202\226\312\313\"\210\210\202\226\305\211\211\211\314\315\316\317H#\210\320 \210\321\317H\313\"\210r\fq\210eb\210\322\305\313#\211\262)\203\225;\203\204\310!\210\202\225\311!\203\220 \210\202\225\312\313\"\210,\211\262
)\207" [gnus-mark-article-hook gnus-break-pages gnus-last-article gnus-current-article gnus-article-buffer nil gnus-prin1-to-string string-match execute-kbd-macro functionp eval t gnus-message 6 "Searching for article: %d..." 0 gnus-article-setup-buffer gnus-article-prepare re-search-forward] 10 (#$ . 16153)])
#@370 If FIELD of article header matches REGEXP, execute Lisp FORM (or a string).
If FIELD is an empty string (or nil), entire article body is searched for.
If optional 1st argument BACKWARD is non-nil, do backward instead.
If optional 2nd argument UNREAD is non-nil, articles which are
marked as read or ticked are ignored.

(fn FIELD REGEXP FORM &optional BACKWARD UNREAD)
(defalias 'gnus-execute #[1283 "\212\303\304\211\211\211	\203	\305\230\203\304\262\202N\306\307\310\f\227P!\211\262!\204N	\227\311\312\"\235\211\262\203HG
GZ8\313\314\"\262
\211\262\204N\315\316\"\210\204n\317`\320\"\211\205]\321
!\266\317`\322\"\206h\323 \211\262\204{\324\304	#\211\262\203\250	\203\205	>\203N\325\326\n\"\327
8\262
\211\262!\203N\330\n\n$\203NT\262\202N\266\205)\207" [gnus-extra-headers gnus-newsgroup-kill-headers gnus-newsgroup-data 0 nil "" fboundp intern-soft "mail-header-" mapcar #[257 "\300
!\227\207" [symbol-name] 3 "\n\n(fn HEADER)"] make-closure #[257 "\301\300\"\207" [V0 gnus-extra-header] 4 "\n\n(fn H)"] error "Unknown header field: \"%s\"" get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-search-forward vectorp gnus-data-find-in 3 gnus-execute-1] 15 (#$ . 16918)])
(defalias 'gnus-batch-kill 'gnus-batch-score)
#@82 Run batched scoring.
Usage: emacs -batch -l ~/.emacs -l gnus -f gnus-batch-score
(defalias 'gnus-batch-score #[0 "\306\307\310\311\312#P!\313\314\211\313\314\211\211\211\211\314\211\314\211\314\315 \210A\262
\211A\262\242\211\262\203\217@\262\316\"@\262
\211A@\211:\203W\211@\266\202\202Y\262
X\203/\211\203/\211\313=\204o\211\317U\204/\3201\321\314\313\314\313%0\210\202\200\210p\322!=\203/\323 \210\202/\324!\210\325 .\n\207" [command-line-args-left gnus-newsrc-options-n gnus-expert-user mail-sources gnus-use-dribble-file gnus-batch-mode gnus-newsrc-parse-options "options -n " mapconcat identity " " t nil gnus-child gethash 0 (error) gnus-summary-read-group get-buffer gnus-summary-exit switch-to-buffer gnus-group-save-newsrc gnus-novice-user gnus-large-newsgroup gnus-options-subscribe gnus-auto-subscribed-groups gnus-options-not-subscribe gnus-newsrc-alist gnus-newsrc-hashtb gnus-level-subscribed gnus-summary-buffer gnus-group-buffer] 11 (#$ . 18253) nil])
(provide 'gnus-kill)