ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/gnus-dup.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\303\304\305\306\307\301%\210\310\311\305\312\307\304\313\314&\210\310\315\316\317\307\304\313\320&\210\310\321\322\323\307\304\313\324&\207" [require gnus gnus-art custom-declare-group gnus-duplicate nil "Suppression of duplicate articles." :group custom-declare-variable gnus-save-duplicate-list "*If non-nil, save the duplicate list when shutting down Gnus.\nIf nil, duplicate suppression will only work on duplicates\nseen in the same session." :type boolean gnus-duplicate-list-length 10000 "*The number of Message-IDs to keep in the duplicate suppression list." integer gnus-duplicate-file (nnheader-concat gnus-directory "suppression") "*The name of the file to store the duplicate suppression list." file] 8)
(defvar gnus-dup-list nil)
(defvar gnus-dup-hashtb nil)
(defvar gnus-dup-list-dirty nil)
(gnus-add-shutdown 'gnus-dup-close 'gnus)
#@75 Possibly save the duplicate suppression list and shut down the subsystem.
(defalias 'gnus-dup-close #[nil "\303 \210\304\211\304\211\207" [gnus-dup-list gnus-dup-hashtb gnus-dup-list-dirty gnus-dup-save nil] 3 (#$ . 1299)])
#@71 Possibly read the duplicate suppression list and start the subsystem.
(defalias 'gnus-dup-open #[nil "\203\n \305 \210\202\f \306\307\n!\211 \310\311 \")\207" [gnus-save-duplicate-list gnus-dup-list gnus-duplicate-list-length gnus-dup-hashtb obarray gnus-dup-read nil gnus-make-hashtable mapc intern] 4 (#$ . 1532)])
#@38 Read the duplicate suppression list.
(defalias 'gnus-dup-read #[nil "\302\303 !\205 \304 \305\211\211$\207" [gnus-dup-list gnus-duplicate-file nil file-exists-p load t] 5 (#$ . 1858)])
#@38 Save the duplicate suppression list.
(defalias 'gnus-dup-save #[nil "\203- \203- \n\306\307\310!! \311\216r q\210\312\313\305\314
DE!\210)r q\210\315\316\211\f\316\317%\210,\316\211\207" [gnus-save-duplicate-list gnus-dup-list-dirty gnus-duplicate-file #1=#:temp-buffer #2=#:temp-file gnus-dup-list get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] gnus-prin1 setq quote write-region nil 0] 6 (#$ . 2051)])
#@73 Enter articles from the current group for future duplicate suppression.
(defalias 'gnus-dup-enter-articles #[nil "\204 \306 \210\307\310 \310 \211 \203j
@\311\f8:\204c \f@\312V\203c \f@>\204c \fA@U\204c \311\f8\313H\211\203c \n \314 \315\216\316\317\"+\204c \320\n\"\204c \nB\321\n\"\210
A\211\204 +\233\211 \205\200 \322\323A\"\210\310\241)\207" [gnus-dup-list gnus-dup-list-dirty msgid gnus-newsgroup-data datum --dolist-tail-- gnus-dup-open t nil 3 0 4 match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "\\`fake\\+none\\+.*\\+[0-9]+\\'" intern-soft intern mapc #[(id) "\302 \"\207" [id gnus-dup-hashtb unintern] 3] gnus-newsgroup-unreads gnus-canceled-mark id save-match-data-internal gnus-dup-hashtb gnus-duplicate-list-length end] 4 (#$ . 2540)])
#@34 Mark duplicate articles as read.
(defalias 'gnus-dup-suppress-articles #[nil "\204 \306 \210\307\310\311\"\210 \205 \n >\312 \312 \211 \203m @\313\314H\"\203d \315\316H!\203d \317\316H\211\"
\204U \f\nBB\202d \fB\fBBA\211\204! ,\307\310\320\"\207" [gnus-dup-list gnus-newsgroup-auto-expire gnus-duplicate-mark gnus-auto-expirable-marks number auto gnus-dup-open gnus-message 8 "Suppressing duplicates..." nil intern-soft 4 gnus-summary-article-unread-p 0 delq "Suppressing duplicates...done" gnus-newsgroup-headers header --dolist-tail-- gnus-dup-hashtb gnus-newsgroup-unreads gnus-newsgroup-reads gnus-newsgroup-expirable gnus-expirable-mark] 4 (#$ . 3384)])
#@30 Stop suppression of ARTICLE.
(defalias 'gnus-dup-unsuppress-article #[(article) "\306 \2368\211\205
\n\307H\211\205 \310\311
\"\312 \"*\207" [article gnus-newsgroup-data header id gnus-dup-list-dirty gnus-dup-list 3 4 t delete unintern gnus-dup-hashtb] 4 (#$ . 4093)])
(provide 'gnus-dup)
Kontol Shell Bypass