| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/gnus/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\210\310\311\312\313\314DD\315\316\317%\210\310\320\312\313\321DD\322\316\323%\210\310\324\312\313\325DD\326\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 #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 #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 #1#] "The name of the file to store the duplicate suppression list." file] 6) #@39 List of seen message IDs, as strings. (defvar gnus-dup-list nil (#$ . 935)) #@50 Hash table of seen message IDs, for fast lookup. (defvar gnus-dup-hashtb nil (#$ . 1017)) #@47 Non-nil if `gnus-dup-list' needs to be saved. (defvar gnus-dup-list-dirty nil (#$ . 1113)) (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 (#$ . 1252)]) #@71 Possibly read the duplicate suppression list and start the subsystem. (defalias 'gnus-dup-open #[0 "\203\n \303 \210\202\f \304\304\305\306\206 \307\310\311$\262 \211\205. \211@\312\313\n#\210A\266\202\202 \207" [gnus-save-duplicate-list gnus-dup-list gnus-dup-hashtb gnus-dup-read nil make-hash-table :size 300 :test equal puthash t] 6 (#$ . 1483)]) #@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 (#$ . 1849)]) #@38 Save the duplicate suppression list. (defalias 'gnus-dup-save #[0 "\203/ \203/ \n\304\305\306\"\307\310\"\216r\211q\210\311\312\303\313 DE!\210)r\211q\210\314\315\211\315\316%\210*\266\315\211\207" [gnus-save-duplicate-list gnus-dup-list-dirty gnus-duplicate-file gnus-dup-list generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] gnus-prin1 setq quote write-region nil 0] 8 (#$ . 2040)]) #@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\316\"\216\317\320\")\266\202\204\\ \321\"\204\\ B\322\307#\210A\266\202\202 \266\310 B\233\211\203z \323\324A\"\210\211\310\241\210A\211\207" [gnus-dup-hashtb gnus-dup-list-dirty gnus-newsgroup-data gnus-newsgroup-unreads gnus-canceled-mark gnus-dup-list gnus-dup-open t nil 3 0 4 match-data make-closure #[0 "\301\300\302\"\207" [V0 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)"] gnus-duplicate-list-length] 8 (#$ . 2505)]) #@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\202V BBBA\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 (#$ . 3321)]) #@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 (#$ . 3970)]) (provide 'gnus-dup)