HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/gnus/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/gnus/spam-report.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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\303\304\305\"\210\306\307\310\311\312\313\312\314&\210\315\316\310\317\320\321\312\307&\210\315\322\323\324\320\325\312\307&\210\315\326\327\330\320\331\312\307&\210\315\332\333\334\320\335\312\307&\210\315\336\310\337\320\340\312\307&\207" [require gnus gnus-sum autoload mm-url-insert "mm-url" custom-declare-group spam-report nil "Spam reporting configuration." :group mail news custom-declare-variable spam-report-gmane-regex "Regexp matching Gmane newsgroups, e.g. \"^nntp\\+.*:gmane\\.\"\nIf you are using spam.el, consider setting gnus-spam-process-newsgroups\nor the gnus-group-spam-exit-processor-report-gmane group/topic parameter\ninstead." :type (radio (const nil) (regexp :value "^nntp\\+.*:gmane\\.")) spam-report-gmane-use-article-number t "Whether the article number (faster!) or the header should be used.\n\nYou must set this to nil if you don't read Gmane groups directly\nfrom news.gmane.org, e.g. when using local newsserver such as\nleafnode." boolean spam-report-url-ping-function 'spam-report-url-ping-plain "Function to use for url ping spam reporting.\nThe function must accept the arguments `host' and `report'." (choice (const :tag "Connect directly" spam-report-url-ping-plain) (const :tag "Use the external program specified in `mm-url-program'" spam-report-url-ping-mm-url) (const :tag "Store request URLs in `spam-report-requests-file'" spam-report-url-to-file) (function :tag "User defined function" nil)) spam-report-requests-file (nnheader-concat gnus-directory "spam/" "spam-report-requests.url") "File where spam report request are stored." file spam-report-resend-to "Email address that spam articles are resent to when reporting.\nIf not set, the user will be prompted to enter a value which will be\nsaved for future use." (choice (const :tag "Prompt" nil) string)] 8)
#@245 Internal variable for `spam-report-agentize' and `spam-report-deagentize'.
This variable will store the value of `spam-report-url-ping-function' from
before `spam-report-agentize' was run, so that `spam-report-deagentize' can
undo that change.
(defvar spam-report-url-ping-temp-agent-function nil (#$ . 2263))
#@86 Report an article as spam by resending via email.
Reports is as ham when HAM is set.
(defalias 'spam-report-resend #[(articles &optional ham) "\306\211\205>\n@\307\310\311\203\312\202\313	\f%\210\f\204&\314\f\315\316!\"\210\317\306\211\211	$\210r
q\210\320\f!\210)\nA\211\204\306*\207" [articles article --dolist-tail-- ham spam-report-resend-to gnus-original-article-buffer nil gnus-message 6 "Reporting %s article %d to <%s>..." "ham" "spam" customize-set-variable read-from-minibuffer "email address to resend SPAM/HAM to? " gnus-summary-select-article message-resend] 7 (#$ . 2579)])
#@50 Report an article as ham by resending via email.
(defalias 'spam-report-resend-ham #[(articles) "\301\302\"\207" [articles spam-report-resend t] 3 (#$ . 3187)])
#@58 Number of reports to send before waiting for a response.
(defconst spam-report-gmane-max-requests 4 (#$ . 3355))
#@150 When non-nil, wait until we get a server response.
This makes sure we don't DOS the host, if many reports are
submitted at once.  Internal variable.
(defvar spam-report-gmane-wait nil (#$ . 3475))
#@52 Report ARTICLES as ham (unregister) through Gmane.
(defalias 'spam-report-gmane-ham #[(&rest articles) "\306	\307\211\205$@T\211\f\246\306U\310\311\n\"\210)A\211\204\n\307+\207" [count articles article --dolist-tail-- spam-report-gmane-max-requests spam-report-gmane-wait 0 nil spam-report-gmane-internal t] 4 (#$ . 3678) (gnus-summary-work-articles current-prefix-arg)])
#@40 Report ARTICLES as spam through Gmane.
(defalias 'spam-report-gmane-spam #[(&rest articles) "\306	\307\211\205$@T\211\f\246\306U\310\307\n\"\210)A\211\204\n\307+\207" [count articles article --dolist-tail-- spam-report-gmane-max-requests spam-report-gmane-wait 0 nil spam-report-gmane-internal] 4 (#$ . 4068) (gnus-summary-work-articles current-prefix-arg)])
(defalias 'spam-report-gmane 'spam-report-gmane-spam)
#@72 Report ARTICLE as spam or not-spam through Gmane, depending on UNSPAM.
(defalias 'spam-report-gmane-internal #[(unspam article) "\205	\203\306	\"\205\n\203\307\202\310\311\312\313\f$\210\314!@\315=\203D\316\317\320\317\321\320\322\323\320\324\325\326\f
\2368\327H###P\"\2021\203j\316\330\3312\306\3322\"\203a2\333\225\334O\202c2)\f#\"\202r3q\210\335 \210\336\f\"\210\337\334\211\211\21145678\340\341!\206\225\340\342!\206\225\340\343!\2117;\204\274\340\344!\2117\203\320\306\3457\"\203\320\317\346\3477\"P56\202\320\306\3507\"\210\346\3477\"6\346\3517\"56\203\3606\352\230\203\3476\320\353\3545#5\330\35565#46\203\3775\203\3774\204\311\326\356\f#\202\311\357\3604#\210\31665\".)\207" [gnus-newsgroup-name spam-report-gmane-regex unspam rpt-host article gnus-newsgroup-data string-match "unspam.gmane.org" "spam.gmane.org" gnus-message 6 "Reporting article %d to %s..." gnus-find-method-for-group nnweb spam-report-url-ping "/" replace-regexp-in-string ":" "^.*article.gmane.org/" "" "/raw" ":silent" 3 8 format "/%s:%d" "^[^:]+:" 0 nil erase-buffer gnus-request-head t gnus-fetch-field "X-Report-Spam" "X-Report-Unspam" "Archived-At" "Xref" "[^ ]+ +\\([^ ]+\\)" match-string 1 "http://\\([a-z]+\\.gmane\\.org\\)\\(/[^:/]+[:/][0-9]+\\)" 2 "permalink.gmane.org" "/\\([0-9]+\\)$" ":\\1" "http://%s%s" "Could not find a spam report header in article %d..." 7 "Reporting article through URL %s..." spam-report-gmane-use-article-number gname nntp-server-buffer url report host field case-fold-search] 16 (#$ . 4499)])
#@127 Ping a host through HTTP, addressing a specific GET resource using
the function specified by `spam-report-url-ping-function'.
(defalias 'spam-report-url-ping #[(host report) "	\n\"\207" [spam-report-url-ping-function host report] 3 (#$ . 6098)])
#@109 Mail address of this user used for spam reports to Gmane.
This is initialized based on `user-mail-address'.
(custom-declare-variable 'spam-report-user-mail-address '(and (stringp user-mail-address) (replace-regexp-in-string "@" "<at>" user-mail-address)) '(#$ . 6352) :type '(choice string (const :tag "Don't expose address" nil)) :version "23.1" :group 'spam-report)
(defvar spam-report-user-agent (byte-code "\203\f\301\302\303\304 $\207\301\305\303\304 #\207" [spam-report-user-mail-address format "%s (%s) %s" "spam-report.el" gnus-extended-version "%s %s"] 5))
#@63 Ping a host through HTTP, addressing a specific GET resource.
(defalias 'spam-report-url-ping-plain #[(host report) "\306\307\310!r	q\210\311\216\312\313\314 \n\315$\211\204\316\317\n\"\210\320!e\306\223\210\321\306\"\210\322\323\324\f\n$\"\210
\205Y\325\326\327\n#\210\330!\331>\203T\332 \333U\203T\334\335\"\210\202=\325\326\336\n#,\207" [tcp-connection #1=#:temp-buffer host report spam-report-user-agent spam-report-gmane-wait nil generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] open-network-stream "URL ping" buffer-name 80 error "Could not open connection to %s" process-mark set-process-query-on-exit-flag process-send-string format "GET %s HTTP/1.1\nUser-Agent: %s\nHost: %s\n\n" gnus-message 7 "Waiting for response from %s..." process-status (open run) buffer-size 0 accept-process-output 1 "Waiting for response from %s... done"] 7 (#$ . 6927)])
#@242 Report all queued requests from `spam-report-requests-file'.

If FILE is given, use it instead of `spam-report-requests-file'.
If KEEP is t, leave old requests in the file.  If KEEP is the
symbol `ask', query before flushing the queue file.
(defalias 'spam-report-process-queue #[(&optional file keep) "\306=\203
\307\310!\210\202\311\312\313#\210	\204\nr\314	!q\210eb\210m\204Q\315\316\317 \320#\203Q\321 \246\322U\311\323\324\325\326!\325\327!$\210\325\326!\325\327!\"\210)\326y\210\202\"
\330=\204f
\331=\203x\332\333\334p\"!\203x\311\312\335\n#\210\336 \210\337 \210\340p!\202}\311\312\341\n#)\207" [spam-report-url-ping-function file spam-report-requests-file spam-report-gmane-max-requests spam-report-gmane-wait keep spam-report-url-to-file error "Cannot process requests when `spam-report-url-ping-function' is `spam-report-url-to-file'." gnus-message 7 "Processing requests using `%s'." find-file-noselect re-search-forward "http://\\([^/]+\\)\\(/.*\\) *$" point-at-eol t line-number-at-pos 0 6 "Reporting %s%s..." match-string 1 2 nil ask y-or-n-p format-message "Flush requests from `%s'? " "Flushing request file `%s'" erase-buffer save-buffer kill-buffer "Keeping requests in `%s'"] 6 (#$ . 7852) (list (read-file-name "File: " (file-name-directory spam-report-requests-file) spam-report-requests-file nil (file-name-nondirectory spam-report-requests-file)) current-prefix-arg)])
#@140 Ping a host through HTTP, addressing a specific GET resource. Use
the external program specified in `mm-url-program' to connect to
server.
(defalias 'spam-report-url-ping-mm-url #[(host report) "\304\305!rq\210\306\216\307\310	\n#\311\312\",\207" [#1=#:temp-buffer host report url generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] format "http://%s%s" mm-url-insert t] 4 (#$ . 9270)])
#@126 Collect spam report requests in `spam-report-requests-file'.
Customize `spam-report-url-ping-function' to use this function.
(defalias 'spam-report-url-to-file #[(host report) "\306\307	#\n\310\311!!\210\312\313\314\f$\210\315\316!r
q\210\317\216\fc\210\320 \210\321ed#-\207" [host report spam-report-requests-file file url #1=#:temp-buffer format "http://%s%s" gnus-make-directory file-name-directory gnus-message 9 "Writing URL `%s' to file `%s'" generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] newline append-to-file] 5 (#$ . 9710)])
#@188 Add spam-report support to the Agent.
Spam reports will be queued with \[spam-report-url-to-file] when
the Agent is unplugged, and will be submitted in a batch when the
Agent is plugged.
(defalias 'spam-report-agentize #[nil "\300\301\302\"\210\300\303\304\"\207" [add-hook gnus-agent-plugged-hook spam-report-plug-agent gnus-agent-unplugged-hook spam-report-unplug-agent] 3 (#$ . 10307) nil])
#@131 Remove spam-report support from the Agent.
Spam reports will be queued with the method used when
\[spam-report-agentize] was run.
(defalias 'spam-report-deagentize #[nil "\300\301\302\"\210\300\303\304\"\207" [remove-hook gnus-agent-plugged-hook spam-report-plug-agent gnus-agent-unplugged-hook spam-report-unplug-agent] 3 (#$ . 10708) nil])
#@77 Adjust spam report settings for plugged state.
Process queued spam reports.
(defalias 'spam-report-plug-agent #[nil "\302\232\204	\303 \210\206\304\211\207" [spam-report-url-ping-temp-agent-function spam-report-url-ping-function spam-report-url-to-file spam-report-process-queue spam-report-url-ping-plain] 2 (#$ . 11056)])
#@51 Restore spam report settings for unplugged state.
(defalias 'spam-report-unplug-agent #[nil "\302\211\207" [spam-report-url-ping-function spam-report-url-ping-temp-agent-function spam-report-url-to-file] 2 (#$ . 11392)])
(provide 'spam-report)