ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/gnus-logic.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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!\207" [require gnus gnus-score gnus-util] 2)
(defvar gnus-advanced-headers nil)
(defvar gnus-advanced-not (byte-code "\300\301\302\303\"!\207" [intern format "%c" 172] 4))
(defconst gnus-advanced-index '(("number" 0 gnus-advanced-integer) ("subject" 1 gnus-advanced-string) ("from" 2 gnus-advanced-string) ("date" 3 gnus-advanced-date) ("message-id" 4 gnus-advanced-string) ("references" 5 gnus-advanced-string) ("chars" 6 gnus-advanced-integer) ("lines" 7 gnus-advanced-integer) ("xref" 8 gnus-advanced-string) ("head" nil gnus-advanced-body) ("body" nil gnus-advanced-body) ("all" nil gnus-advanced-body)))
(autoload 'parse-time-string "parse-time")
#@71 Apply advanced scoring RULE to all the articles in the current group.
(defalias 'gnus-score-advanced #[(rule &optional trace) "\306\211\211 \306 \211 \205c
@\307\n@!\211\203[ \nA@\206$ \247\203. \n_\f\310H\f\236\211\203C \211A\n\\\241\210\202[ \f\310H\nB\fB\f
\203[ \311\nBB
A\211\204 \306-\207" [multiple score new-score gnus-newsgroup-headers gnus-advanced-headers --dolist-tail-- nil gnus-advanced-score-rule 0 "A file" rule gnus-score-interactive-default-score gnus-newsgroup-scored trace gnus-score-trace] 4 (#$ . 1109)])
#@40 Apply RULE to `gnus-advanced-headers'.
(defalias 'gnus-advanced-score-rule #[(rule) "@\211\304=\204 \305=\2032 A\211\204 \306\202\277 \203- \307@!\203- \211A\210\202 ?\202\277 \310=\204> \311=\203\\ A\211\205\277 \203X \307@!\204X \211A\210\202E \202\277 \312=\204n \313=\204n \n=\203w \307A@!?\202\277 9\203\260 \314\315\316 !\"\203\260 \317 \314\320\316 !\"\203\235 \321\316 !\322\224\322\225O!\202\241 \316 !G\"\211\205\254 \307A@!)\202\277 ;\203\273 \323!\202\277 \324\325\")\207" [rule type gnus-advanced-not gnus-advanced-headers & and t gnus-advanced-score-rule | or ! not string-match "^[0-9]+-$\\|^\\^+$" symbol-name gnus-parent-headers "^\\([0-9]+\\)-$" string-to-number 1 gnus-advanced-score-article error "Unknown advanced score type: %s"] 7 (#$ . 1669)])
(defalias 'gnus-advanced-score-article #[(rule) "@\304 \227\n\"\211\204 \305\306\"\202' AA@ A@\206 A@AA@#*\207" [rule header gnus-advanced-index func assoc error "No such header: %s"] 5])
#@76 See whether string MATCH of TYPE matches `gnus-advanced-headers' in INDEX.
(defalias 'gnus-advanced-string #[(index match type) "\206 \306\307!\227\307!=?\n H\206 \310 \311>\203% \312
\f\"\202U \313>\2034 \312\314
!\f\"\202U \315>\203@
\f\230\202U \316>\203Q \312\314\317
!!\f\"\202U \320\321\"+\207" [type case-fold-search gnus-advanced-headers index header match s symbol-name "" (r R regexp Regexp) string-match (s S string String) regexp-quote (e E exact Exact) (f F fuzzy Fuzzy) gnus-simplify-subject-fuzzy error "No such string match type: %s"] 4 (#$ . 2673)])
(defalias 'gnus-advanced-integer #[(index match type) "\304>\204 \305\306\"\207 \nH\206 \307 \"\207" [type gnus-advanced-headers index match (< > <= >= =) error "No such integer score type: %s" 0] 3])
(defalias 'gnus-advanced-date #[(index match type) "\305\306\307 H!\"\305\306\307\n!\"\f\310=\203 \n\232\202: \f\311=\203) \312\n \"\202: \f\313=\2036 \312 \n\"\202: \314\315\f\"*\207" [gnus-advanced-headers index match date type apply encode-time parse-time-string at before time-less-p after error "No such date score type: %s"] 5])
(defalias 'gnus-advanced-body #[(header match type) "\306\230\203 \307r q\210\310\230\203 \311\202! \312\230\203 \313\202! \314\315\211 \315 \316\317P!& ' (\3201e ';\203E \321'!@\202G ' )\322)!\204U \323)!\210\324\316\325\326)(#!!)0\202g \210\315*\204u \312\230\204u \n\314*\327H\330\331\332\f#\210\n\f&\"\205\370 \312\230\203\221 \333 eb\210 \203\271 \311=\203\255 `\334\335\315\336#\206\250 d}\210\202\271 \334\335\315\336#\206\266 `d}\210\337+!\227\337+!=? ,+\340>\203\321 \341\202\341 +\342>\203\334 \334\202\341 \343\344+\" -eb\210-.\315\336#\210~\210*
\205\370 \345
!-\207" [header nntp-server-buffer request-func ofunc article handles "all" "article" "head" gnus-request-head "body" gnus-request-body gnus-request-article nil intern "request-" (error) gnus-find-method-for-group featurep require fboundp format "%s-%s" 0 gnus-message 7 "Scoring article %s..." gnus-score-decode-text-parts search-forward "\n\n" t symbol-name (r R regexp Regexp) re-search-forward (s S string String) error "Invalid match type: %s" mm-destroy-parts gnus-newsgroup-name group func method gnus-advanced-headers type case-fold-search search-func match] 7])
(provide 'gnus-logic)
Kontol Shell Bypass