Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
.dir-locals.el	105 B	-rw-r--r--
canlock.elc	5.71 KB	-rw-r--r--
deuglify.elc	7.85 KB	-rw-r--r--
gmm-utils.elc	5.79 KB	-rw-r--r--
gnus-agent.elc	119.17 KB	-rw-r--r--
gnus-art.elc	262.11 KB	-rw-r--r--
gnus-async.elc	11.71 KB	-rw-r--r--
gnus-bcklg.elc	2.85 KB	-rw-r--r--
gnus-bookmark.elc	25.33 KB	-rw-r--r--
gnus-cache.elc	24.08 KB	-rw-r--r--
gnus-cite.elc	26.28 KB	-rw-r--r--
gnus-cloud.elc	18.45 KB	-rw-r--r--
gnus-cus.elc	39.5 KB	-rw-r--r--
gnus-delay.elc	4.61 KB	-rw-r--r--
gnus-demon.elc	7.52 KB	-rw-r--r--
gnus-diary.elc	8.41 KB	-rw-r--r--
gnus-dired.elc	8.03 KB	-rw-r--r--
gnus-draft.elc	12.03 KB	-rw-r--r--
gnus-dup.elc	4.59 KB	-rw-r--r--
gnus-eform.elc	4.76 KB	-rw-r--r--
gnus-fun.elc	9.93 KB	-rw-r--r--
gnus-gravatar.elc	4.15 KB	-rw-r--r--
gnus-group.elc	154.92 KB	-rw-r--r--
gnus-html.elc	13.41 KB	-rw-r--r--
gnus-icalendar.elc	40.93 KB	-rw-r--r--
gnus-int.elc	58.83 KB	-rw-r--r--
gnus-kill.elc	19.24 KB	-rw-r--r--
gnus-logic.elc	5.15 KB	-rw-r--r--
gnus-mh.elc	2.96 KB	-rw-r--r--
gnus-ml.elc	6.08 KB	-rw-r--r--
gnus-mlspl.elc	6.48 KB	-rw-r--r--
gnus-msg.elc	84.49 KB	-rw-r--r--
gnus-notifications.elc	5.38 KB	-rw-r--r--
gnus-picon.elc	8.06 KB	-rw-r--r--
gnus-range.elc	11.97 KB	-rw-r--r--
gnus-registry.elc	34.53 KB	-rw-r--r--
gnus-rfc1843.elc	1.59 KB	-rw-r--r--
gnus-salt.elc	27.54 KB	-rw-r--r--
gnus-score.elc	74.27 KB	-rw-r--r--
gnus-sieve.elc	8.14 KB	-rw-r--r--
gnus-spec.elc	12.88 KB	-rw-r--r--
gnus-srvr.elc	50.09 KB	-rw-r--r--
gnus-start.elc	138.21 KB	-rw-r--r--
gnus-sum.elc	431.26 KB	-rw-r--r--
gnus-topic.elc	46.53 KB	-rw-r--r--
gnus-undo.elc	4.69 KB	-rw-r--r--
gnus-util.elc	49.29 KB	-rw-r--r--
gnus-uu.elc	55.9 KB	-rw-r--r--
gnus-vm.elc	2.42 KB	-rw-r--r--
gnus-win.elc	10.95 KB	-rw-r--r--
gnus.elc	158.84 KB	-rw-r--r--
gssapi.elc	2.27 KB	-rw-r--r--
legacy-gnus-agent.elc	6.35 KB	-rw-r--r--
mail-source.elc	28.21 KB	-rw-r--r--
message.elc	237.92 KB	-rw-r--r--
mm-archive.elc	2.95 KB	-rw-r--r--
mm-bodies.elc	5.84 KB	-rw-r--r--
mm-decode.elc	55.66 KB	-rw-r--r--
mm-encode.elc	6.13 KB	-rw-r--r--
mm-extern.elc	4.25 KB	-rw-r--r--
mm-partial.elc	3.05 KB	-rw-r--r--
mm-url.elc	9.75 KB	-rw-r--r--
mm-util.elc	24.33 KB	-rw-r--r--
mm-uu.elc	21.99 KB	-rw-r--r--
mm-view.elc	16.82 KB	-rw-r--r--
mml-sec.elc	35.2 KB	-rw-r--r--
mml-smime.elc	10.44 KB	-rw-r--r--
mml.elc	44.72 KB	-rw-r--r--
mml1991.elc	7.59 KB	-rw-r--r--
mml2015.elc	25.61 KB	-rw-r--r--
nnagent.elc	10.44 KB	-rw-r--r--
nnbabyl.elc	16.84 KB	-rw-r--r--
nndiary.elc	38.56 KB	-rw-r--r--
nndir.elc	2.67 KB	-rw-r--r--
nndoc.elc	30.1 KB	-rw-r--r--
nndraft.elc	10.55 KB	-rw-r--r--
nneething.elc	11.45 KB	-rw-r--r--
nnfolder.elc	32.39 KB	-rw-r--r--
nngateway.elc	2.88 KB	-rw-r--r--
nnheader.elc	34.72 KB	-rw-r--r--
nnimap.elc	73.06 KB	-rw-r--r--
nnir.elc	62.86 KB	-rw-r--r--
nnmail.elc	52.09 KB	-rw-r--r--
nnmaildir.elc	90.83 KB	-rw-r--r--
nnmairix.elc	72.33 KB	-rw-r--r--
nnmbox.elc	18.57 KB	-rw-r--r--
nnmh.elc	15.14 KB	-rw-r--r--
nnml.elc	33.63 KB	-rw-r--r--
nnnil.elc	1.63 KB	-rw-r--r--
nnoo.elc	8.63 KB	-rw-r--r--
nnregistry.elc	1.72 KB	-rw-r--r--
nnrss.elc	29.02 KB	-rw-r--r--
nnspool.elc	15.72 KB	-rw-r--r--
nntp.elc	111.69 KB	-rw-r--r--
nnvirtual.elc	18.31 KB	-rw-r--r--
nnweb.elc	16.67 KB	-rw-r--r--
score-mode.elc	4.93 KB	-rw-r--r--
smiley.elc	5.31 KB	-rw-r--r--
smime.elc	18.76 KB	-rw-r--r--
spam-report.elc	11.41 KB	-rw-r--r--
spam-stat.elc	19.39 KB	-rw-r--r--
spam-wash.elc	1.23 KB	-rw-r--r--
spam.elc	80.84 KB	-rw-r--r--

Code Editor : spam-report.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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=\203N�\316\317\320\317\321\320\322\323\320\324\325\326\f
\"3\32738)\2113\330H)###P\"\202 4\203t�\316\331\3325\306\3335\"\203k�\3345\335\225\"\202m�5)\f#\"\202 r6q\210\336 \210\337\f\"\210\340\341\211\211\211789:;\342\343!\206\237�\342\344!\206\237�\342\345!\211:;\204\306�\342\346!\211:\203\332�\306\347:\"\203\332�\317\350\351:\"P89\202\332�\306\352:\"\210\350\351:\"9\350\353:\"89\203\372�9\354\230\203\361�9\320\355\3568#8\331\35798#79\203	8\203	7\204\311\327\360\f#\202\311\361\3627#\210\31698\".)\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" gnus-data-find-in 3 8 format "/%s:%d" "^[^:]+:" substring 0 erase-buffer gnus-request-head t nil 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..." cl-x 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 (#$ . 6140)])
#@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)) '(#$ . 6394) :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 (#$ . 6969)])
#@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 (#$ . 7894) (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 (#$ . 9312)])
#@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 (#$ . 9752)])
#@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 (#$ . 10349) 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 (#$ . 10750) nil])
#@77 Adjust spam report settings for plugged state.
Process queued spam reports.
(defalias 'spam-report-plug-agent #[nil "\302=\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 (#$ . 11098)])
#@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 (#$ . 11431)])
(provide 'spam-report)

${this.title}

Code Editor : spam-report.elc