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 : gnus-kill.elc

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

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

(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require gnus gnus-art gnus-range] 2)
#@31 Hook for Gnus kill file mode.
(custom-declare-variable 'gnus-kill-file-mode-hook 'nil '(#$ . 705) :group 'gnus-score-kill :type 'hook)
#@59 *Number of days before expiring unused kill file entries.
(custom-declare-variable 'gnus-kill-expiry-days '7 '(#$ . -846) :group 'gnus-score-kill :group 'gnus-score-expire :type 'integer)
#@58 *If non-nil, will save kill files after processing them.
(custom-declare-variable 'gnus-kill-save-kill-file 'nil '(#$ . -1040) :group 'gnus-score-kill :type 'boolean)
#@45 What does this do, Lars?
I don't know, Per.
(custom-declare-variable 'gnus-winconf-kill-file 'nil '(#$ . 1213) :group 'gnus-score-kill :type 'sexp)
#@221 *If non-nil, Gnus will apply kill files to already killed articles.
If it is nil, Gnus will never apply kill files to articles that have
already been through the scoring process, which might very well save lots
of time.
(custom-declare-variable 'gnus-kill-killed 't '(#$ . -1368) :group 'gnus-score-kill :type 'boolean)
(defalias 'gnus-raise '(macro . #[(field expression level) "\303	\304\305\nDD\306BBBB\207" [field expression level gnus-kill function gnus-summary-raise-score (t)] 6]))
(defalias 'gnus-lower '(macro . #[(field expression level) "\303	\304\305\306\nDDD\307BBBB\207" [field expression level gnus-kill function gnus-summary-raise-score - (t)] 7]))
(byte-code "\301B\303\301!\204�\304\301\305\"\210	\204�\306\307\n!\211\310\"\210\305\207" [current-load-list gnus-kill-file-mode-map emacs-lisp-mode-map default-boundp set-default nil gnus-define-keys-1 copy-keymap ("" 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)] 3)
#@2810 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 #[nil "\304 \210\305!\210\306	!\210\307\310\311\312!\210\313\314\315\"\207" [gnus-kill-file-mode-map emacs-lisp-mode-syntax-table major-mode mode-name kill-all-local-variables use-local-map set-syntax-table gnus-kill-file-mode "Kill" lisp-mode-variables nil gnus-run-mode-hooks emacs-lisp-mode-hook gnus-kill-file-mode-hook] 3 (#$ . 2506) nil])
#@97 Begin editing a kill file for NEWSGROUP.
If NEWSGROUP is nil, the global kill file is selected.
(defalias 'gnus-kill-file-edit-file #[(newsgroup) "\306!\307\310	!!\210\311	!\203�\312\311	!!\204�\313 \314	!\312!\203,�\315!\210\202Z�\f\316=\203=�\317\320!\210\315!\210\202Z�\f\321=\203V�\317\322!\210\315
!\210\323
!\210\324!\210\202Z�\325	!\210)\326 )\207" [newsgroup file gnus-winconf-kill-file buffer major-mode 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 gnus-group-mode gnus-configure-windows group gnus-summary-mode article bury-buffer switch-to-buffer find-file-other-window gnus-kill-file-mode] 3 (#$ . 5700) "sNewsgroup: "])
(defalias 'gnus-kill-set-kill-buffer #[nil "\303!\304	!\211q\210\305 \210\306\n!*\207" [gnus-newsgroup-name file buffer gnus-newsgroup-kill-file find-file-noselect gnus-kill-file-mode bury-buffer] 3])
(defalias 'gnus-kill-file-enter-kill #[(field regexp &optional dont-move) "\212\305	\306=\204\f�\307 \210\n\204�db\210\310\311\f#\211c\210\312!*\207" [string major-mode dont-move field regexp nil gnus-kill-file-mode gnus-kill-set-kill-buffer format "(gnus-kill %S %S)\n" gnus-kill-file-apply-string] 4])
#@18 Kill by subject.
(defalias 'gnus-kill-file-kill-by-subject #[nil "\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 (#$ . 6998) nil])
#@17 Kill by author.
(defalias 'gnus-kill-file-kill-by-author #[nil "\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 (#$ . 7256) nil])
#@17 Kill by author.
(defalias 'gnus-kill-file-kill-by-thread #[nil "\301\302\303!\203�\304\305H!\202�\306\"\207" [gnus-current-headers gnus-kill-file-enter-kill "References" vectorp regexp-quote 4 ""] 5 (#$ . 7482) nil])
#@15 Kill by Xref.
(defalias 'gnus-kill-file-kill-by-xref #[nil "\305!\205	�\306H\307\310\211\2038�\311\312\n#\205=�\307\225\313\224\313\225O\211\f\230\204�\314\315\316\317	!\320Q\321#\210\202�\314\315\322\321#+\207" [gnus-current-headers group start xref gnus-newsgroup-name vectorp 8 0 nil string-match " \$[^ 	]+\$:" 1 gnus-kill-file-enter-kill "Xref" " " regexp-quote ":" t ""] 6 (#$ . 7709) nil])
#@54 Raise score for all followups to the current author.
(defalias 'gnus-kill-file-raise-followups-to-author #[(level) "\304H\305\212\306 \210eb\210\307\310\311Q\312\n!\"\313\314\315\n$\211c\210\316	!\210)\317\320\321\n#*\207" [gnus-current-headers string name level 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."] 6 (#$ . 8125) "p"])
#@44 Apply current buffer to current newsgroup.
(defalias 'gnus-kill-file-apply-buffer #[nil "\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 (#$ . 8697) nil])
#@36 Apply STRING to current newsgroup.
(defalias 'gnus-kill-file-apply-string #[(string) "\301\302Q\212\303\213*\207" [string "(progn \n" "\n)" ((byte-code "\302!\210\303\304	!@!\207" [gnus-summary-buffer string pop-to-buffer eval read-from-string] 3))] 3 (#$ . 9023) nil])
#@65 Apply sexp before point in current buffer to current newsgroup.
(defalias 'gnus-kill-file-apply-last-sexp #[nil "\203�\303	!\203�\212\304\305!\210`)`{\212\306\213*\207\307 \210\310\311\312\"\207" [gnus-current-kill-article gnus-summary-buffer string get-buffer forward-sexp -1 ((byte-code "\302!\210\303\304	!@!\207" [gnus-summary-buffer string pop-to-buffer eval read-from-string] 3)) ding gnus-message 2 "No newsgroup is selected."] 3 (#$ . 9302) nil])
#@55 Save a kill file, then return to the previous buffer.
(defalias 'gnus-kill-file-exit #[nil "\303 \210p\304	!\203�\305	!\210\306!\210\n\203�\307\n!\210\310\311!)\207" [killbuf gnus-article-buffer gnus-winconf-kill-file save-buffer get-buffer bury-buffer delete-windows-on set-window-configuration nil kill-buffer] 2 (#$ . 9768) nil])
#@105 Return the name of a kill file for NEWSGROUP.
If NEWSGROUP is nil, return the global kill file instead.
(defalias 'gnus-Newsgroup-kill-file #[(newsgroup) "\203\n�\304\230\203�\305	\n\"\207\203�\305\306!\307	Q\n\"\207\305\310!\311	Q\n\"\207" [newsgroup gnus-kill-file-name gnus-kill-files-directory gnus-use-long-file-name "" expand-file-name gnus-capitalize-newsgroup "." gnus-newsgroup-directory-form "/"] 4 (#$ . 10114)])
#@33 Remove lines marked with MARKS.
(defalias 'gnus-expunge #[(marks) "\212q\210\302	\303\")\207" [gnus-summary-buffer marks gnus-summary-limit-to-marks reverse] 3 (#$ . 10551)])
#@71 Apply .KILL file, unless a .SCORE file for the same newsgroup exists.
(defalias 'gnus-apply-kill-file-unless-scored #[nil "\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 (#$ . 10733)])
#@92 Apply a kill file to the current newsgroup.
Returns the number of articles marked as read.
(defalias 'gnus-apply-kill-file-internal #[nil "\306\307!\306!D\nG\310\307\211	\203i�\311@!\203`�\2035�\312\313\"\202Y�\203Y�\314@\315H\"\204P�@\315HBA\211\204:�\307)\202�A\211\204�)\205\224�\316\213\210\317\320!\210
\203\223�\nGZ\211\315=\204\215�\321\322\323#\210)\202\224�\315,\207" [gnus-newsgroup-name kill-files gnus-newsgroup-unreads unreads gnus-summary-inhibit-highlight beg gnus-newsgroup-kill-file nil t file-exists-p mapcar #[(header) "\301H\207" [header 0] 2] gnus-member-of-range 0 ((byte-code "\212\203:�\301@!\2033�\302\303\304@#\210\305@!\210eb\210\306\307\310\217:\203)�\311 \210\202,�\312 \210\302\303\313@#\210A\211\204�)\306\207" [kill-files file-exists-p gnus-message 6 "Processing kill file %s..." find-file nil (byte-code "\300p!\207" [read] 2) ((error)) gnus-kill-parse-gnus-kill-file gnus-kill-parse-rn-kill-file "Processing kill file %s...done"] 5)) gnus-set-mode-line summary gnus-message 6 "Marked %d articles as read" gnus-newsgroup-kill-headers files gnus-newsgroup-headers headers gnus-kill-killed gnus-newsgroup-killed nunreads] 5 (#$ . 11172)])
(defalias 'gnus-kill-parse-gnus-kill-file #[nil "eb\210\304 \210\305\211`\305\306\307\217\211\203Q�<\204�\310\311\"\210@\312=\2044�@\313=\2044�@\314=\203D�	`|\210\315!\206?�\316c\210\202\n�\212\nq\210\305\317\320\217\210)\202\n�\321 \203]�\203]�\322 \210\323\305!*\207" [form beg gnus-summary-buffer gnus-kill-save-kill-file gnus-kill-file-mode nil (byte-code "\300p!\207" [read] 2) ((error)) error "Invalid kill entry (possibly rn kill file?): %s" gnus-kill gnus-raise gnus-lower eval "" (eval form) ((error)) buffer-modified-p save-buffer set-buffer-modified-p] 3])
(defalias 'gnus-kill-parse-rn-kill-file #[nil "eb\210\304 \210\305\306\211\211m?\205`�\307\310!\203Z�\311\224\311\225{\312\224\203*�\312\224f\202+�\313\314\224\314\225{\315\316\"\203@�\317\320\321\"\210\322\317	\236A\206I�\323\n\315\322\"\203U�\324\202V�\325\306\326%\210\311y\210\202�,\207" [commands modifier pattern mod-to-header gnus-kill-file-mode ((97 . #1="") (104 . #1#) (102 . "from") (58 . "subject")) nil looking-at "[ 	]*/\$[^/]*\$/\$[ahfcH]\$?:\$[a-z=:]*\$" 1 2 115 3 string-match "\\+" gnus-kill "from" "." "m" "subject" (gnus-summary-mark-as-unread nil " ") (gnus-summary-mark-as-read nil "X") t] 6])
#@367 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.
(defalias 'gnus-kill #[(field regexp &optional exe-command all silent) "p\212\306\213\210)\307!\210	\310=\205A�\n\205A�?\205A�\311\312\f\n:\203(�\313\nD\202)�\nE
\2043�
\2057�\313
DC\244
\205?�\314C\244!)\207" [old-buffer major-mode regexp silent field exe-command ((byte-code "\306\307\"\210eb\210	\310 \n\206�\311\312\211\211\211<\203\264�A:\204U�\313\314@\312?%!\203L�\315A\"V\203\301�\312\202\301�\241\210\202\301�@\211\203\301�
:\203\234�
A\313\314
@\312?%!\203\224�\315\f\"V\203\250�\203\216�A\241\210\202\250�	A\202\250�
\241\210\202\250�\314
\312?%\210A\211\202W�\314\312?%\210.\312\207" [gnus-summary-buffer regexp exe-command prev kdate kill switch-to-buffer norecord current-time-string (gnus-summary-mark-as-read nil gnus-kill-file-mark) nil zerop gnus-execute days-between command date kill-list field all gnus-kill-expiry-days] 8)) switch-to-buffer gnus-kill-file-mode gnus-pp-gnus-kill gnus-kill quote t all] 5 (#$ . 13628)])
(defalias 'gnus-pp-gnus-kill #[(object) "\3048:\203%�\3048A:\203%�\3048@\305=\203+�\3048\211A@)A:\204+�\306\307!P\207\212\310\311!q\210\312 \210\313 \210\314\315@A@#c\210\3048\211A@)\316\211\203i�\n\203Z�\317\320\202[�\321\307@!\261\210A\211\204P�*\322c\210\3238\203\221�\324\3238:\203\210�\3238@\305=\204\210�\325\202\211�\320\307\3238!\261\210\3268\203\232�\327c\210\322c\210\330 \331p!\210)\207" [object x first klist 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])
(defalias 'gnus-execute-1 #[(function regexp form header) "\212\306	\203\225�\n\203G�\306	\203C�\n	!\211;\204�\307!\310\f\"\211\203C�
;\2033�\311
!\210\202C�\312
!\203?�
 \210\202C�\313
!\210)\202\225�\306\211\211\211\314\315\316	\317H#\210\320 \210\321	\317H\322\"\210\212q\210eb\210\323\f\306\322#\211)\203\224�
;\203\204�\311
!\210\202\224�\312
!\203\220�
 \210\202\224�\313
!\210,*\207" [did-kill header function value regexp form nil gnus-prin1-to-string string-match execute-kbd-macro functionp eval gnus-message 6 "Searching for article: %d..." 0 gnus-article-setup-buffer gnus-article-prepare t re-search-forward gnus-mark-article-hook gnus-break-pages gnus-last-article gnus-current-article gnus-article-buffer] 6])
#@320 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.
(defalias 'gnus-execute #[(field regexp form &optional backward unread) "\212\306\307\211\211\211
\203�
\310\230\203�\307\202[�\311\312\313
\227P!\211!\2032�\314\315\316BE\211\202S�
\227\317\320 \"\235\211\203V�\314\321\322\323 GGZ 8D\324BBE\211\204[�\325\326
\"\210\n\204}�\327`\330\"\211!\203n�\331!!\210)\327`\332\"\206x�\333 \211\204\211�\334\"\307##\211\203\263�$\203\225�\n$>\203[�\335\336\n%\2368\211!\203[�\337&'	$\203[�\fT\202[�\f.\207" [extras header article function killed-no field 0 nil "" fboundp intern-soft "mail-header-" lambda (h) (h) mapcar #[(header) "\301!\227\207" [header symbol-name] 2] (h) gnus-extra-header quote (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 3 gnus-execute-1 gnus-extra-headers to unread backward gnus-newsgroup-kill-headers gnus-newsgroup-data regexp form] 7 (#$ . 16413)])
(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 #[nil "\306\307\310\311\312#P!\313\314\211\313\314\211\314\211\314\211\314\211\314\211\315 \210A\211A@\211\203\224�@\316 \"J@A@\211!:\203d�!@\202f�!)\"X\2037�\2037�\313=\204\200�\317!\2047�\314\320\321\217\210p\322#!=\2037�\323 \210\2027�\324$!\210\325 .\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-slave intern-soft zerop (gnus-summary-read-group group nil t nil t) ((error)) get-buffer gnus-summary-exit switch-to-buffer gnus-group-save-newsrc info group newsrc unread gnus-novice-user gnus-large-newsgroup gnus-options-subscribe gnus-auto-subscribed-groups gnus-options-not-subscribe gnus-newsrc-alist gnus-newsrc-hashtb rank gnus-level-subscribed gnus-summary-buffer gnus-group-buffer] 7 (#$ . 17764) nil])
(provide 'gnus-kill)

${this.title}

Code Editor : gnus-kill.elc