;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:48 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-dup.el
;;; in Emacs version 24.3.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 (#$ . 1445)])
#@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 (#$ . 1678)])
#@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 (#$ . 2004)])
#@38 Save the duplicate suppression list.
(defalias 'gnus-dup-save #[nil "\203-	\203-\n\306\307\310!!\311\216rq\210\312\313\305\314
DE!\210)rq\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*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) gnus-prin1 setq quote write-region nil 0] 6 (#$ . 2197)])
#@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 ((byte-code "\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 (#$ . 2702)])
#@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 (#$ . 3553)])
#@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 (#$ . 4262)])
(provide 'gnus-dup)