%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/gnus/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/gnus/gnus-dup.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\312\313\314DD\315\307\304\316\317&\210\310\320\312\313\321DD\322\307\304\316\323&\210\310\324\312\313\325DD\326\307\304\316\327&\207" [require gnus gnus-art custom-declare-group gnus-duplicate nil "Suppression of duplicate articles." :group custom-declare-variable gnus-save-duplicate-list funcall function #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [10000] 1] "The maximum number of duplicate Message-IDs to keep track of." integer gnus-duplicate-file #[0 "\301\302\"\207" [gnus-directory nnheader-concat "suppression"] 3] "The name of the file to store the duplicate suppression list." file] 8)
#@39 List of seen message IDs, as strings.
(defvar gnus-dup-list nil (#$ . 1272))
#@50 Hash table of seen message IDs, for fast lookup.
(defvar gnus-dup-hashtb nil (#$ . 1355))
#@47 Non-nil if `gnus-dup-list' needs to be saved.
(defvar gnus-dup-list-dirty nil (#$ . 1451))
(gnus-add-shutdown 'gnus-dup-close 'gnus)
#@75 Possibly save the duplicate suppression list and shut down the subsystem.
(defalias 'gnus-dup-close #[0 "\303 \210\304\211\304\211\207" [gnus-dup-list gnus-dup-hashtb gnus-dup-list-dirty gnus-dup-save nil] 3 (#$ . 1590)])
#@71 Possibly read the duplicate suppression list and start the subsystem.
(defalias 'gnus-dup-open #[0 "\203\n\304 \210\202\f\305\305\306\307\n\206\310\311\312$)	\211\205.\211@\313\314#\210A\266\202\202\207" [gnus-save-duplicate-list gnus-dup-list size gnus-dup-hashtb gnus-dup-read nil make-hash-table :size 300 :test equal puthash t] 6 (#$ . 1821)])
#@38 Read the duplicate suppression list.
(defalias 'gnus-dup-read #[0 "\302\303	!\205\304	\305\211\211$\207" [gnus-dup-list gnus-duplicate-file nil file-exists-p load t] 5 (#$ . 2189)])
#@38 Save the duplicate suppression list.
(defalias 'gnus-dup-save #[0 "\2035	\2035\n\304\305!\306\307\310\311\312!\313\"\314$\216r\211q\210\315\316\303\317DE!\210)r\211q\210\320\321\211\321\307%\210*\266\321\211\207" [gnus-save-duplicate-list gnus-dup-list-dirty gnus-duplicate-file gnus-dup-list generate-new-buffer " *temp file*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 gnus-prin1 setq quote write-region nil] 8 (#$ . 2380)])
#@73 Enter articles from the current group for future duplicate suppression.
(defalias 'gnus-dup-enter-articles #[0 "\204\306 \210\307\310\n\211\203c\211@\3118:\204\\\211@\312V\203\\\211@>\204\\\211A@\fU\204\\\3118\313H\211\262\203\\\314 \315\216\316\317
\"+\204\\\320\"\204\\B\321\307#\210A\266\202\202\266\310B\233\211\203{\322\323A\"\210\211\310\241\210A\211\207" [gnus-dup-hashtb gnus-dup-list-dirty gnus-newsgroup-data gnus-newsgroup-unreads gnus-canceled-mark id 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]+\\'" gethash puthash mapc #[257 "\301\"\207" [gnus-dup-hashtb remhash] 4 "\n\n(fn ID)"] save-match-data-internal gnus-dup-list gnus-duplicate-list-length] 7 (#$ . 2869)])
#@34 Mark duplicate articles as read.
(defalias 'gnus-dup-suppress-articles #[0 "\204\306 \210\307\310\311\"\210	\205\n>\312\f\211\203]\211@\313\314H\"\203V\211\315H\211\262\203V\316!\203V\317
\"\204G\nBB\202VBBBA\266\202\202\266\307\310\320\"\207" [gnus-dup-hashtb gnus-newsgroup-auto-expire gnus-duplicate-mark gnus-auto-expirable-marks gnus-newsgroup-headers gnus-newsgroup-unreads gnus-dup-open gnus-message 8 "Suppressing duplicates..." nil gethash 4 0 gnus-summary-article-unread-p delq "Suppressing duplicates...done" gnus-newsgroup-reads gnus-newsgroup-expirable gnus-expirable-mark] 7 (#$ . 3713)])
#@44 Stop suppression of ARTICLE.

(fn ARTICLE)
(defalias 'gnus-dup-unsuppress-article #[257 "\304\211\205)\305	\"\3068\262\211\262\205)\307H\211\262\205)\310\311\"\312\"\207" [gnus-dup-hashtb gnus-newsgroup-data gnus-dup-list-dirty gnus-dup-list nil gnus-data-find-in 3 4 t delete remhash] 6 (#$ . 4362)])
(provide 'gnus-dup)

Zerion Mini Shell 1.0