Gecko [ 122.154.134.11 ]

Name	Size	Permission
auth-source.elc	5.49 KB	-rw-r--r--
canlock.elc	6.03 KB	-rw-r--r--
compface.elc	1.35 KB	-rw-r--r--
deuglify.elc	8.31 KB	-rw-r--r--
earcon.elc	5.67 KB	-rw-r--r--
ecomplete.elc	4.45 KB	-rw-r--r--
flow-fill.elc	4.57 KB	-rw-r--r--
gmm-utils.elc	7.68 KB	-rw-r--r--
gnus-agent.elc	122.37 KB	-rw-r--r--
gnus-art.elc	258.37 KB	-rw-r--r--
gnus-async.elc	12.09 KB	-rw-r--r--
gnus-audio.elc	2.48 KB	-rw-r--r--
gnus-bcklg.elc	3.67 KB	-rw-r--r--
gnus-bookmark.elc	24.54 KB	-rw-r--r--
gnus-cache.elc	26.11 KB	-rw-r--r--
gnus-cite.elc	27.6 KB	-rw-r--r--
gnus-cus.elc	38.4 KB	-rw-r--r--
gnus-delay.elc	4.98 KB	-rw-r--r--
gnus-demon.elc	8.65 KB	-rw-r--r--
gnus-diary.elc	9 KB	-rw-r--r--
gnus-dired.elc	6.56 KB	-rw-r--r--
gnus-draft.elc	10.7 KB	-rw-r--r--
gnus-dup.elc	4.77 KB	-rw-r--r--
gnus-eform.elc	3.68 KB	-rw-r--r--
gnus-ems.elc	7.21 KB	-rw-r--r--
gnus-fun.elc	8.91 KB	-rw-r--r--
gnus-group.elc	155.85 KB	-rw-r--r--
gnus-int.elc	51.53 KB	-rw-r--r--
gnus-kill.elc	18.37 KB	-rw-r--r--
gnus-logic.elc	5.2 KB	-rw-r--r--
gnus-mh.elc	2.89 KB	-rw-r--r--
gnus-ml.elc	5.22 KB	-rw-r--r--
gnus-mlspl.elc	6.37 KB	-rw-r--r--
gnus-move.elc	3.63 KB	-rw-r--r--
gnus-msg.elc	84.07 KB	-rw-r--r--
gnus-nocem.elc	12.08 KB	-rw-r--r--
gnus-picon.elc	8.63 KB	-rw-r--r--
gnus-range.elc	11.92 KB	-rw-r--r--
gnus-registry.elc	32.46 KB	-rw-r--r--
gnus-salt.elc	29.77 KB	-rw-r--r--
gnus-score.elc	76.25 KB	-rw-r--r--
gnus-setup.elc	5.01 KB	-rw-r--r--
gnus-sieve.elc	8.54 KB	-rw-r--r--
gnus-soup.elc	16.29 KB	-rw-r--r--
gnus-spec.elc	17 KB	-rw-r--r--
gnus-srvr.elc	43.88 KB	-rw-r--r--
gnus-start.elc	142.13 KB	-rw-r--r--
gnus-sum.elc	406.63 KB	-rw-r--r--
gnus-topic.elc	46.81 KB	-rw-r--r--
gnus-undo.elc	4.07 KB	-rw-r--r--
gnus-util.elc	48.22 KB	-rw-r--r--
gnus-uu.elc	57.87 KB	-rw-r--r--
gnus-vm.elc	2.63 KB	-rw-r--r--
gnus-win.elc	12.56 KB	-rw-r--r--
gnus.elc	158.49 KB	-rw-r--r--
html2text.elc	10.59 KB	-rw-r--r--
ietf-drums.elc	7.85 KB	-rw-r--r--
legacy-gnus-agent.elc	6.67 KB	-rw-r--r--
mail-parse.elc	2.44 KB	-rw-r--r--
mail-prsvr.elc	1.29 KB	-rw-r--r--
mail-source.elc	30.28 KB	-rw-r--r--
mailcap.elc	25.11 KB	-rw-r--r--
message.elc	223.29 KB	-rw-r--r--
messcompat.elc	2.83 KB	-rw-r--r--
mm-bodies.elc	6.06 KB	-rw-r--r--
mm-decode.elc	46.1 KB	-rw-r--r--
mm-encode.elc	5.96 KB	-rw-r--r--
mm-extern.elc	4.65 KB	-rw-r--r--
mm-partial.elc	3.44 KB	-rw-r--r--
mm-url.elc	9.94 KB	-rw-r--r--
mm-util.elc	39.83 KB	-rw-r--r--
mm-uu.elc	18.57 KB	-rw-r--r--
mm-view.elc	17.58 KB	-rw-r--r--
mml-sec.elc	12.58 KB	-rw-r--r--
mml-smime.elc	14.58 KB	-rw-r--r--
mml.elc	40.35 KB	-rw-r--r--
mml1991.elc	14.71 KB	-rw-r--r--
mml2015.elc	41.93 KB	-rw-r--r--
nnagent.elc	10.86 KB	-rw-r--r--
nnbabyl.elc	17.45 KB	-rw-r--r--
nndb.elc	29.58 KB	-rw-r--r--
nndiary.elc	39.38 KB	-rw-r--r--
nndir.elc	3.2 KB	-rw-r--r--
nndoc.elc	28.12 KB	-rw-r--r--
nndraft.elc	9.95 KB	-rw-r--r--
nneething.elc	11.98 KB	-rw-r--r--
nnfolder.elc	38.93 KB	-rw-r--r--
nngateway.elc	3.1 KB	-rw-r--r--
nnheader.elc	30.94 KB	-rw-r--r--
nnimap.elc	61.12 KB	-rw-r--r--
nnir.elc	45.26 KB	-rw-r--r--
nnkiboze.elc	11.79 KB	-rw-r--r--
nnlistserv.elc	4.42 KB	-rw-r--r--
nnmail.elc	52.92 KB	-rw-r--r--
nnmaildir.elc	98.94 KB	-rw-r--r--
nnmairix.elc	72.84 KB	-rw-r--r--
nnmbox.elc	19.03 KB	-rw-r--r--
nnmh.elc	15.64 KB	-rw-r--r--
nnml.elc	45.05 KB	-rw-r--r--
nnnil.elc	1.94 KB	-rw-r--r--
nnoo.elc	8.95 KB	-rw-r--r--
nnrss.elc	33.15 KB	-rw-r--r--
nnslashdot.elc	16.43 KB	-rw-r--r--
nnsoup.elc	21.22 KB	-rw-r--r--
nnspool.elc	15.55 KB	-rw-r--r--
nntp.elc	135.97 KB	-rw-r--r--
nnultimate.elc	13.85 KB	-rw-r--r--
nnvirtual.elc	18.99 KB	-rw-r--r--
nnwarchive.elc	21.92 KB	-rw-r--r--
nnweb.elc	18.3 KB	-rw-r--r--
nnwfm.elc	12.56 KB	-rw-r--r--
pop3.elc	13.01 KB	-rw-r--r--
qp.elc	4.12 KB	-rw-r--r--
rfc1843.elc	5.74 KB	-rw-r--r--
rfc2045.elc	1.01 KB	-rw-r--r--
rfc2047.elc	25.24 KB	-rw-r--r--
rfc2104.elc	1.71 KB	-rw-r--r--
rfc2231.elc	6.9 KB	-rw-r--r--
score-mode.elc	3.56 KB	-rw-r--r--
sieve-manage.elc	19.88 KB	-rw-r--r--
sieve-mode.elc	7.1 KB	-rw-r--r--
sieve.elc	10.77 KB	-rw-r--r--
smiley.elc	5.37 KB	-rw-r--r--
smime.elc	18.81 KB	-rw-r--r--
spam-report.elc	11.77 KB	-rw-r--r--
spam-stat.elc	19.88 KB	-rw-r--r--
spam-wash.elc	1.43 KB	-rw-r--r--
spam.elc	87.54 KB	-rw-r--r--
starttls.elc	6.63 KB	-rw-r--r--
utf7.elc	6.08 KB	-rw-r--r--
webmail.elc	28.79 KB	-rw-r--r--
yenc.elc	3.85 KB	-rw-r--r--

Code Editor : gnus-registry.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:38 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/gnus/gnus-registry.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`gnus-registry.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\207" [require gnus gnus-int gnus-sum gnus-util nnmail] 2)
#@48 Boolean set to t when the registry is modified
(defvar gnus-registry-dirty t (#$ . 754))
(custom-declare-group 'gnus-registry nil "The Gnus registry." :version "22.1" :group 'gnus)
#@38 *The article registry by Message ID.
(defvar gnus-registry-hashtb (make-hash-table :size 256 :test 'equal) (#$ . -941))
#@301 List of registry marks and their options.

`gnus-registry-mark-article' will offer symbols from this list
for completion.

Each entry must have a character to be useful for summary mode
line display and for keyboard shortcuts.

Each entry must have an image string to be useful for visual
display.
(custom-declare-variable 'gnus-registry-marks ''((Important :char 105 :image "summary_important") (Work :char 119 :image "summary_work") (Personal :char 112 :image "summary_personal") (To-Do :char 116 :image "summary_todo") (Later :char 108 :image "summary_later")) '(#$ . 1068) :group 'gnus-registry :type '(repeat :tag "Registry Marks" (cons :tag "Mark" (symbol :tag "Name") (checklist :tag "Options" :greedy t (group :inline t (const :format #1="" :value :char) (character :tag "Character code")) (group :inline t (const :format #1# :value :image) (string :tag "Image"))))))
#@69 The default mark.  Should be a valid key for `gnus-registry-marks'.
(custom-declare-variable 'gnus-registry-default-mark ''To-Do '(#$ . 1952) :group 'gnus-registry :type 'symbol)
#@266 List of groups that gnus-registry-split-fancy-with-parent won't return.
The group names are matched, they don't have to be fully
qualified.  This parameter tells the Registry 'never split a
message into a group that matches one of these, regardless of
references.'
(custom-declare-variable 'gnus-registry-unfollowed-groups ''("delayed$" "drafts$" "queue$" "INBOX$") '(#$ . 2138) :group 'gnus-registry :type '(repeat regexp))
#@43 Whether the registry should be installed.
(custom-declare-variable 'gnus-registry-install ''ask '(#$ . 2569) :group 'gnus-registry :type '(choice (const :tag "Never Install" nil) (const :tag "Always Install" t) (const :tag "Ask Me" ask)))
#@137 Whether the empty registry entries should be deleted.
Registry entries are considered empty when they have no groups
and no extra data.
(custom-declare-variable 'gnus-registry-clean-empty 't '(#$ . 2815) :group 'gnus-registry :type 'boolean)
#@51 Whether the registry should use long group names.
(custom-declare-variable 'gnus-registry-use-long-group-names 't '(#$ . 3063) :group 'gnus-registry :type 'boolean)
#@75 The maximum number of non-unique group matches to check for a message ID.
(custom-declare-variable 'gnus-registry-max-track-groups '20 '(#$ . 3234) :group 'gnus-registry :type '(radio (const :format "Unlimited " nil) (integer :format "Maximum non-unique matches: %v")))
#@134 Whether the registry should track extra data about a message.
The Subject and Sender (From:) headers are currently tracked this
way.
(custom-declare-variable 'gnus-registry-track-extra 'nil '(#$ . 3511) :group 'gnus-registry :type '(set :tag "Tracking choices" (const :tag "Track by subject (Subject: header)" subject) (const :tag "Track by sender (From: header)" sender)))
#@134 Whether the registry should track extra data about a message.
The Subject and Sender (From:) headers are currently tracked this
way.
(custom-declare-variable 'gnus-registry-split-strategy 'nil '(#$ . 3892) :group 'gnus-registry :type '(choice :tag "Tracking choices" (const :tag "Only use single choices, discard multiple matches" nil) (const :tag "Majority of matches wins" majority) (const :tag "First found wins" first)))
#@54 Whether the registry should cache extra information.
(custom-declare-variable 'gnus-registry-entry-caching 't '(#$ . 4323) :group 'gnus-registry :type 'boolean)
#@67 The minimum length of a subject before it's considered trackable.
(custom-declare-variable 'gnus-registry-minimum-subject-length '5 '(#$ . 4490) :group 'gnus-registry :type 'integer)
#@67 Whether the registry should clean out message IDs without groups.
(custom-declare-variable 'gnus-registry-trim-articles-without-groups 't '(#$ . 4679) :group 'gnus-registry :type 'boolean)
#@356 What extra entries are precious, meaning they won't get trimmed.
When you save the Gnus registry, it's trimmed to be no longer
than `gnus-registry-max-entries' (which is nil by default, so no
trimming happens).  Any entries with extra data in this list (by
default, marks are included, so articles with marks are
considered precious) will not be trimmed.
(custom-declare-variable 'gnus-registry-extra-entries-precious ''(marks) '(#$ . 4875) :group 'gnus-registry :type '(repeat symbol))
#@46 File where the Gnus registry will be stored.
(custom-declare-variable 'gnus-registry-cache-file '(nnheader-concat (or gnus-dribble-directory gnus-home-directory "~/") ".gnus.registry.eld") '(#$ . 5368) :group 'gnus-registry :type 'file)
#@63 Maximum number of entries in the registry, nil for unlimited.
(custom-declare-variable 'gnus-registry-max-entries 'nil '(#$ . 5611) :group 'gnus-registry :type '(radio (const :format "Unlimited " nil) (integer :format "Maximum number: %v")))
(defalias 'gnus-registry-track-subject-p #[nil "\301>\207" [gnus-registry-track-extra subject] 2])
(defalias 'gnus-registry-track-sender-p #[nil "\301>\207" [gnus-registry-track-extra sender] 2])
#@31 Read the registry cache file.
(defalias 'gnus-registry-cache-read #[nil "\302	!\205�\303\304\305	#\210\306	!\210\303\304\307	#)\207" [gnus-registry-cache-file file file-exists-p gnus-message 5 "Reading %s..." gnus-load "Reading %s...done"] 4 (#$ . 6057) nil])
#@31 Save the registry cache file.
(defalias 'gnus-registry-cache-save #[nil "\212\306\307!q\210\310\303!\210\n	\311\f!\312 \210\313 \210\314\315\316	#\210.\203=�/p01\317\320\321\322#\210\323	!\210\324 \210*\202\316�/\n	\311	!\325\32623451\3276\330=\203b�\331 \204b�\332\202c�\33342T\2112#3\3343!\204Q�\335\216\3367\3377\340\"8\3409\325:\3410\317\320\321\322#\2109\340V\203\252�\3421\3438\3409O\3253:\344%\210)-\3255\320\3455!;<=\346 \210\34735\320#\210\3505;\"\210.p\211>\211?\205\346�?;\203\342�\351\202\343�\352?!)\203\371�\353\351>!@\"@\354>!\210)\314\315\355	#*\207" [gnus-registry-cache-file file gnus-backup-startup-file version-control buffer-file-name default-directory gnus-get-buffer-create " *Gnus-registry-cache*" make-local-variable file-name-directory buffer-disable-undo erase-buffer gnus-message 5 "Saving %s..." gnus-gnus-to-quick-newsrc-format t "gnus registry startup file" gnus-registry-alist gnus-registry-cache-whitespace save-buffer nil -1 format ms-dos gnus-long-file-names "%s#%d.tm#" "%s#tmp#%d" file-exists-p ((byte-code "\300\301\302\217\207" [nil (delete-file working-file) ((file-error))] 3)) 131072 make-string 0 #[(c) "	\nI\210	T\211U\205�\306\307\f
\310%\210\311\312\211\207" [#1=#:output-buffer #2=#:output-buffer-length c #3=#:output-buffer-size working-file #4=#:output-buffer-append write-region nil no-msg 0 t] 6] no-conversion write-region no-msg file-modes backup-buffer rename-file gnus-set-file-modes get-buffer buffer-name delete kill-buffer "Saving %s...done" gnus-save-startup-file-via-temp-buffer gnus-ding-file-coding-system standard-output coding-system-for-write i working-file working-dir startup-file system-type #3# #1# #2# #4# setmodes file-precious-flag buffer-backed-up buf buffer gnus-buffers] 7 (#$ . 6326) nil])
(defalias 'gnus-registry-cache-whitespace #[(filename) "\301\302\303#\210\212eb\210\304\305\306\307#\203�\310\311\307\"\210\202\n�eb\210\304\312\306\307#\205.�\310\313\307\211#\210\202�)\207" [filename gnus-message 7 "Adding whitespace to %s" re-search-forward "^(\\|(\\\"" nil t replace-match "\n\\&" " $" ""] 4])
(defalias 'gnus-registry-save #[(&optional force) "\204�	\205*�\n\306\307\310\f\"\210
\203�\311 \210\312\313\314\f!!!\315 \210\306\211)\207" [gnus-registry-dirty force gnus-registry-entry-caching caching gnus-registry-hashtb gnus-registry-clean-empty nil maphash #[(key value) "\303!\205\n�\304	\n\"\207" [value key gnus-registry-hashtb hash-table-p remhash] 3] gnus-registry-clean-empty-function gnus-registry-remove-alist-text-properties gnus-registry-trim gnus-hashtable-to-alist gnus-registry-cache-save gnus-registry-alist] 4])
#@69 Remove all empty entries from the registry.  Returns count thereof.
(defalias 'gnus-registry-clean-empty-function #[nil "\302\303\304	\"\210)\207" [count gnus-registry-hashtb 0 maphash #[(key value) ";\205Y�\304!\305\211\203+�\n@\306	!\203$�\307\310\311	$\210\312	\"\210\nA\211\204�*\313!\2046�\314!\210\315!\204J�\316\317\"\204J�T\314!\210;?\205Y�\307\310\320#\210\314!\207" [key group #1=#:--cl-dolist-temp-- count gnus-registry-fetch-groups nil gnus-parameter-registry-ignore gnus-message 10 "gnus-registry: deleted ignored group %s from key %s" gnus-registry-delete-group gnus-registry-group-count gnus-registry-delete-id gnus-registry-fetch-group gnus-registry-fetch-extra label "gnus-registry key %s was not a string, removing"] 6]] 3 (#$ . 9020)])
(defalias 'gnus-registry-read #[nil "\303 \210\304!\305\211\207" [gnus-registry-alist gnus-registry-hashtb gnus-registry-dirty gnus-registry-cache-read gnus-alist-to-hashtable nil] 2])
#@51 Remove text properties from all strings in alist.
(defalias 'gnus-registry-remove-alist-text-properties #[(v) ";\203	�\301!\207<\203�A<\203�\302\303\"\207<\203.�A;\203.�\303@!\303A!B\207\207" [v gnus-string-remove-all-properties mapcar gnus-registry-remove-alist-text-properties] 3 (#$ . 9990)])
#@117 Trim alist to size, using gnus-registry-max-entries.
Any entries with extra data (marks, currently) are left alone.
(defalias 'gnus-registry-trim #[(alist) "\204�	\207\306\307\310\311\312$\306\307\310\311\312$	GZ\313\f!\203#�\f\202$�\314\315\211\316\317\"\210	\315\211\203d�@\211@\320\"\203S�
B\202Z�B)A\211\204:�*\321\322\"\210\323
\f\233\"\211.\207" [gnus-registry-max-entries alist timehash precious trim-length precious-list make-hash-table :size 20000 :test equal natnump 0 nil maphash #[(key value) "\306!\n\307\211\203�\f@\310\311\215\210\fA\211\204\f�*\312\306\313\"
#)\207" [key extra gnus-registry-extra-entries-precious item #1=#:--cl-dolist-temp-- timehash gnus-registry-fetch-extra nil --cl-block-nil-- (byte-code "\306\211\203$�\n@\211@\232\203�\307\f\310
#\210\311\312\306\"\210\nA\211\204�*\306\207" [extra e #2=#:--cl-dolist-temp-- item key precious nil puthash t throw --cl-block-nil--] 5) puthash mtime] 5] gethash sort #[(a b) "\305@	\"A\206\n�\306\305\n@	\"A\206�\307\310\f\"*\207" [a timehash b t2 t1 gethash (0 0 0) (0 0 0) time-less-p] 4] append junk-list gnus-registry-hashtb item #3=#:--cl-dolist-temp-- key] 6 (#$ . 10305)])
(defalias 'gnus-registry-action #[(action data-header from &optional to method) "\306H\307\310\311H!!\307\312H!\313\f!
\205�\313
!\211\203&�
\202'�\314\315	\"\316\317\320	\203=�\321\202>�\322\f
&\210\323	\f\"\210\324\232\203V�\325	\f\n$\210\325	
\n$.\207" [data-header id subject sender from to 4 gnus-string-remove-all-properties gnus-registry-simplify-subject 1 2 gnus-group-guess-full-name-from-command-method "the Bit Bucket" gethash gnus-message 7 "Registry: article %s %s from %s to %s" "respooling" "going" gnus-registry-delete-group copy gnus-registry-add-group to-name gnus-registry-hashtb old-entry method action] 8])
(defalias 'gnus-registry-spool-action #[(id group &optional subject sender) "\304!	;\203�\305\306	\"\203�	\307\310O\311\312\313	$\210\314	\n$)\207" [group id subject sender gnus-group-guess-full-name-from-command-method string-match "
$" 0 -1 gnus-message 7 "Registry: article %s spooled to %s" gnus-registry-add-group] 5])
#@693 Split this message into the same group as its parent.  The parent
is obtained from the registry.  This function can be used as an entry
in `nnmail-split-fancy' or `nnimap-split-fancy', for example like
this: (: gnus-registry-split-fancy-with-parent)

This function tracks ALL backends, unlike
`nnmail-split-fancy-with-parent' which tracks only nnmail
messages.

For a message to be split, it looks for the parent message in the
References or In-Reply-To header and then looks in the registry
to see which group that message was put in.  This group is
returned, unless `gnus-registry-follow-group-p' return nil for
that group.

See the Info node `(gnus)Fancy Mail Splitting' for more details.
(defalias 'gnus-registry-split-fancy-with-parent #[nil "\306\307!\206�\310\306\311!\211\203�\312	Q\202�\313\306\314!!\313\315\306\316!!!\f<\2030�\f\2022�\fC\317\320\211!\"\203\262�\321!\203\262�\321!\237\320#\211$\203\245�$@#\322\323\324
#%\210\325#%\"\320&\211'\203\233�'@\211&\203\222�\326&!\203\222�\322\327\330
#&&\210&!B!'A\211'\204o�*$A\211$\204R�*\331\307!\211$!\202\370�\332 \203\327�\n\203\327�\333\n!(\232\204\327�\334\335)\"\210\331\336\n!\"$!\202\370�\337 \203\370�\203\370�*GW\203\370�\334\340)\"\210\331\316!\"$!!\242.	\207" [refstr reply-to sender subject nnmail-split-fancy-with-parent-ignore-groups log-agent message-fetch-field "references" "" "in-reply-to" " " gnus-string-remove-all-properties "from" gnus-registry-simplify-subject "subject" "gnus-registry-split-fancy-with-parent" nil gnus-extract-references gnus-message 9 "%s is looking for matches for reference %s from [%s]" gnus-registry-fetch-groups gnus-registry-follow-group-p 7 "%s traced the reference %s from [%s] to group %s" gnus-registry-post-process-groups gnus-registry-track-sender-p gnus-extract-address-component-email maphash #[(key value) "\306\303\"A\307\211\205[�\n\232\205[�\310\f\"\211\307\211\203B�@\211B\311C\312\"\"A\211\204!�+	B\313\203Q�\314\202R�\315\316	&*\207" [key matches this-sender sender gnus-registry-max-track-groups groups gnus-registry-fetch-extra nil gnus-registry-fetch-groups append delete gnus-message 7 9 "%s (extra tracking) traced sender %s to groups %s (keys %s)" group #1=#:--cl-dolist-temp-- found-full found gnus-registry-track-extra log-agent] 8] "sender" gnus-registry-track-subject-p #[(key value) "\306\303\"A\307\211\205[�\n\232\205[�\310\f\"\211\307\211\203B�@\211B\311C\312\"\"A\211\204!�+	B\313\203Q�\314\202R�\315\316	&*\207" [key matches this-subject subject gnus-registry-max-track-groups groups gnus-registry-fetch-extra nil gnus-registry-fetch-groups append delete gnus-message 7 9 "%s (extra tracking) traced subject %s to groups %s (keys %s)" group #2=#:--cl-dolist-temp-- found-full found gnus-registry-track-extra log-agent] 8] found found-full reference #3=#:--cl-dolist-temp-- gnus-registry-max-track-groups group #4=#:--cl-dolist-temp-- user-mail-address gnus-registry-hashtb gnus-registry-minimum-subject-length] 10 (#$ . 12513)])
#@626 Modifies GROUPS found by MODE for KEY to determine which ones to follow.

MODE can be 'subject' or 'sender' for example.  The KEY is the
value by which MODE was searched.

Transforms each group name to the equivalent short name.

Checks if the current Gnus method (from `gnus-command-method' or
from `gnus-newsgroup-name') is the same as the group's method.
This is not possible if gnus-registry-use-long-group-names is
false.  Foreign methods are not supported so they are rejected.

Reduces the list to a single group, or complains if that's not
possible.  Uses `gnus-registry-split-strategy' and GROUPS-FULL if
necessary.
(defalias 'gnus-registry-post-process-groups #[(mode key groups groups-full) "\306\307\n\310=\203�\203�\242C\n\311=\203,�\312\313\314\315\316$\317\320
\"\210\321\322\"\242C)\203\217�\307\211\203\213�@\323! \206M�\323!!\324!\"#$\325$#\"\203y�\326\327\330	\"%\210\"\235\204\201�\"B\202\201�\326\331\332	$\210+A\211\204;�*\202\221�\243\203\244�\326\333\334	%&&\210\307*\207" [out log-agent gnus-registry-split-strategy groups freq groups-full "gnus-registry-post-process-group" nil first majority make-hash-table :size 256 :test equal mapc #[(x) "\302\303	\304#T	#\207" [x freq puthash gethash 0] 6] sort #[(a b) "\303	\304#\303\n	\304#V\207" [a freq b gethash 0] 5] gnus-find-method-for-group gnus-group-short-name gnus-methods-equal-p gnus-message 10 "%s stripped group %s to %s" 7 "%s ignored foreign group %s" 5 "%s: too many extra matches (%s) for %s %s.  Returning none." gnus-registry-use-long-group-names group #1=#:--cl-dolist-temp-- gnus-command-method gnus-newsgroup-name short-name m2 m1 mode key] 7 (#$ . 15626)])
#@143 Determines if a group name should be followed.
Consults `gnus-registry-unfollowed-groups' and
`nnmail-split-fancy-with-parent-ignore-groups'.
(defalias 'gnus-registry-follow-group-p #[(group) "\303	\"\206�\303\n\"?\207" [group gnus-registry-unfollowed-groups nnmail-split-fancy-with-parent-ignore-groups gnus-registry-grep-in-list] 3 (#$ . 17340)])
(defalias 'gnus-registry-wash-for-keywords #[(&optional force) "\306!\307\211\310\311\"\203�\f\205#�\212
q\210\312 \210\313\213\210\314\311	#)+\207" [gnus-current-article words word id force gnus-article-buffer gnus-registry-fetch-message-id-fast nil gnus-registry-fetch-extra keywords article-goto-body ((byte-code "\214`d}\210\305 p\306\216\307\n!\210\310\311\312\313#\203/�\314\315\224\315\225{\227!\211G\316V\203�\fB\202�,\312\207" [#1=#:buffer #2=#:table gnus-adaptive-word-syntax-table word words syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table re-search-forward "\\b\\w+\\b" nil t gnus-registry-remove-alist-text-properties 0 3] 5)) gnus-registry-store-extra-entry] 4 nil nil])
(defalias 'gnus-registry-find-keywords #[(keyword) "\302\303\304	\"\210)\207" [articles gnus-registry-hashtb nil maphash #[(key value) "\303	\304\"\243\235\205�	\nB\211\207" [keyword key articles gnus-registry-fetch-extra keywords] 4]] 3 nil "skeyword: "])
#@55 Register the Message-ID of every article in the group
(defalias 'gnus-registry-register-message-ids #[nil "\305!?\205:�	\306\211\2038�@\307\n!\310\f!\235\2040�\311\312\313\n$\210\314\f\315\n!\316\n!$\210)A\211\204�*\306\207" [gnus-newsgroup-name gnus-newsgroup-articles article #1=#:--cl-dolist-temp-- id gnus-parameter-registry-ignore nil gnus-registry-fetch-message-id-fast gnus-registry-fetch-groups gnus-message 9 "Registry: Registering article %d with group %s" gnus-registry-add-group gnus-registry-fetch-simplified-message-subject-fast gnus-registry-fetch-sender-fast] 7 (#$ . 18713)])
#@74 Fetch the Message-ID quickly, using the internal gnus-data-list function
(defalias 'gnus-registry-fetch-message-id-fast #[(article) "\247\205�\302	\"\205�\303\302	\"8\304H\207" [article gnus-newsgroup-data assoc 3 4] 4 (#$ . 19324)])
(defalias 'gnus-registry-simplify-subject #[(subject) ";\205�\301!\207" [subject gnus-simplify-subject] 2])
#@71 Fetch the Subject quickly, using the internal gnus-data-list function
(defalias 'gnus-registry-fetch-simplified-message-subject-fast #[(article) "\247\205�\302	\"\205�\303\304\305\302	\"8\306H!!\207" [article gnus-newsgroup-data assoc gnus-string-remove-all-properties gnus-registry-simplify-subject 3 1] 6 (#$ . 19680)])
#@70 Fetch the Sender quickly, using the internal gnus-data-list function
(defalias 'gnus-registry-fetch-sender-fast #[(article) "\247\205�\302	\"\205�\303\304\302	\"8\305H!\207" [article gnus-newsgroup-data assoc gnus-string-remove-all-properties 3 2] 5 (#$ . 20013)])
#@66 Find if a WORD matches any regular expression in the given LIST.
(defalias 'gnus-registry-grep-in-list #[(word list) "\205�	\205�\302\303\215\207" [word list found (byte-code "\304\211\203�\n@\305	\"\203�\306\307	\"\210\nA\211\204�*\304\207" [list r #1=#:--cl-dolist-temp-- word nil string-match throw found] 4)] 2 (#$ . 20289)])
#@136 For each known mark, call FUNCTION for each cell of type TYPE.

FUNCTION should take two parameters, a mark symbol and the cell value.
(defalias 'gnus-registry-do-marks #[(type function) "\306\211\203*�\n@\211\242	\243\307\f
\"\211\203\"�	\"\210+\nA\211\204�*\306\207" [gnus-registry-marks mark-info #1=#:--cl-dolist-temp-- mark data type nil plist-get cell-data function] 4 (#$ . 20638)])
#@122 Install the keyboard shortcuts and menus for the registry.
Uses `gnus-registry-marks' to find what shortcuts to install.
(defalias 'gnus-registry-install-shortcuts #[nil "\301\302\303\304\"\210\305\306\")\207" [keys-plist nil gnus-registry-do-marks :char #[(mark data) "\306\307\"\310\311\211\203{�@\211\203�\312\202�\313\306	\f\"\306\314 \"!\n\2030�!\226\2022�!!\315
!\210\316\317\320
!\321\306\322\323\f!#\324\325\326\327\330\320\331!D\332\n\333BBBB\334BBB\257!\210\320
!\"B\"!\"B\"\335\336\337
#\210,A\211\204
�+\311\207" [mark function-format remove #1=#:--cl-dolist-temp-- variant-name function-name format "gnus-registry-%%s-article-%s-mark" (t nil) nil "remove" "set" "%c" unintern eval defun intern (&rest articles) "%s the %s mark over process-marked ARTICLES." upcase-initials (interactive (gnus-summary-work-articles current-prefix-arg)) (when (eq gnus-registry-install nil) (setq gnus-registry-install 'ask)) when (gnus-registry-install-p) gnus-registry-set-article-mark-internal symbol-name articles (t) ((dolist (article articles) (gnus-summary-update-article article (assoc article (gnus-data-list nil))))) gnus-message 9 "Defined mark handling function %s" data shortcut keys-plist] 15] gnus-define-keys-1 (gnus-registry-mark-map "M" gnus-summary-mark-map)] 3 (#$ . 21049)])
(defalias 'gnus-registry-user-format-function-M #[(headers) "\303H\211\205�\304	!\305\306\307\310\n\"\"*\207" [headers id marks 4 gnus-registry-fetch-extra-marks apply concat mapcar #[(mark) "\303\304	\"\243\305\"\211\205�\nC)\207" [mark gnus-registry-marks c plist-get assoc :char] 5]] 6])
#@49 Read a mark name from the user with completion.
(defalias 'gnus-registry-read-mark #[nil "\303\304!\305\306\307	\"#\211;\205�\310\n!)\207" [gnus-registry-default-mark gnus-registry-marks mark gnus-completing-read-with-default symbol-name "Label" mapcar #[(x) "\301\242!\242B\207" [x symbol-name] 2] intern] 7 (#$ . 22671)])
#@42 Apply a mark to process-marked ARTICLES.
(defalias 'gnus-registry-set-article-mark #[(&rest articles) "\301\302 \303\304$\207" [articles gnus-registry-set-article-mark-internal gnus-registry-read-mark nil t] 5 (#$ . 23006) (gnus-summary-work-articles current-prefix-arg)])
#@45 Remove a mark from process-marked ARTICLES.
(defalias 'gnus-registry-remove-article-mark #[(&rest articles) "\301\302 \303\211$\207" [articles gnus-registry-set-article-mark-internal gnus-registry-read-mark t] 5 (#$ . 23286) (gnus-summary-work-articles current-prefix-arg)])
#@37 Apply a mark to a list of ARTICLES.
(defalias 'gnus-registry-set-article-mark-internal #[(mark articles &optional remove show-message) "\306\307\"\211\310\211\203M�@\311\f\312\n!\"\203 �
\202#�\f
B\203>�\313\314\315\2036�\316\2027�\317\f\n&\210\320\321\n#\210*A\211\204
�+\310\207" [articles article-id-list id #1=#:--cl-dolist-temp-- mark marks mapcar gnus-registry-fetch-message-id-fast nil delq gnus-registry-fetch-extra-marks gnus-message 1 "%s mark %s with message ID %s, resulting in %S" "Removing" "Adding" apply gnus-registry-store-extra-marks remove new-marks show-message] 9 (#$ . 23568)])
#@169 Get the Gnus registry marks for ARTICLES and show them if interactive.
Uses process/prefix conventions.  For multiple articles,
only the last one's marks are returned.
(defalias 'gnus-registry-get-article-marks #[(&rest articles) "\305	\305\211\203�@\306\n!\307\f!)A\211\204\n�*t\203(�\310\311\312#\210)\207" [marks articles article #1=#:--cl-dolist-temp-- article-id nil gnus-registry-fetch-message-id-fast gnus-registry-fetch-extra-marks gnus-message 1 "Marks are %S"] 4 (#$ . 24197) (gnus-summary-work-articles 1)])
#@93 Get the marks of a message, based on the message ID.
Returns a list of symbol marks or nil.
(defalias 'gnus-registry-fetch-extra-marks #[(id) "\301\302\"A\242\207" [id gnus-registry-fetch-extra marks] 3 (#$ . 24734)])
#@63 Checks if a message has `mark', based on the message ID `id'.
(defalias 'gnus-registry-has-extra-mark #[(id mark) "\302	!>\207" [mark id gnus-registry-fetch-extra-marks] 3 (#$ . 24959)])
#@115 Set the marks of a message, based on the message ID.
The `mark-list' can be nil, in which case no marks are left.
(defalias 'gnus-registry-store-extra-marks #[(id &rest mark-list) "\302\303	C#\207" [id mark-list gnus-registry-store-extra-entry marks] 4 (#$ . 25154)])
#@74 Delete the message marks in `mark-delete-list', based on the message ID.
(defalias 'gnus-registry-delete-extra-marks #[(id &rest mark-delete-list) "\305!\211\203 �\n\306\211\203�\f@\307	\"\fA\211\204�*\310	@\")\207" [id marks mark-delete-list mark #1=#:--cl-dolist-temp-- gnus-registry-fetch-extra-marks nil delq gnus-registry-store-extra-marks] 5 (#$ . 25429)])
#@40 Delete all the marks for a message ID.
(defalias 'gnus-registry-delete-all-extra-marks #[(id) "\301\302\"\207" [id gnus-registry-store-extra-marks nil] 3 (#$ . 25809)])
#@118 Get the extra data of a message, based on the message ID.
Returns the first place where the trail finds a nonstring.
(defalias 'gnus-registry-fetch-extra #[(id &optional entry) "\305	\"\203�\306\n!\203�\305\n\"\203�\305\n\"\202+�\305	\"\211<\205*�\307\310\215))\207" [entry gnus-registry-hashtb entry-cache id trail gethash hash-table-p --cl-block-nil-- (byte-code "\305\211\203 �\n@\211;\204�\306\307\310	\f#\"\210\nA\211\204�*\305\207" [trail crumb #1=#:--cl-dolist-temp-- entry id nil throw --cl-block-nil-- gnus-registry-fetch-extra-entry] 7)] 4 (#$ . 25986)])
#@95 Get the extra data of a message, or a specific entry in it.
Update the entry cache if needed.
(defalias 'gnus-registry-fetch-extra-entry #[(alist &optional entry id) "\203A�	\203A�\306\n\"\307
\203+�\310\f!\204&�\311\312\313\314\315$\316\f\n#\210\306	\f\"\204>�\236
\203>�\316	\f#\210*\207\207" [entry id gnus-registry-hashtb entree entry-cache gnus-registry-entry-caching gethash nil hash-table-p make-hash-table :size 4096 :test equal puthash alist] 5 (#$ . 26575)])
#@108 Store the extra data of a message, based on the message ID.
The message must have at least one group name.
(defalias 'gnus-registry-store-extra #[(id extra) "\306!\205f�\307	\"\310!\311\211\311\211\203d�@\211;\204L�
\311\211\203K�@\307@	\"\211\203B�\312\n\"\210A\211\204-�*\313\314\f\"B	#\210\315A\211\204�-\311\207" [id gnus-registry-hashtb entry-cache old-extra trail crumb gnus-registry-group-count gethash gnus-registry-fetch-extra nil remhash puthash delete t #1=#:--cl-dolist-temp-- entry #2=#:--cl-dolist-temp-- extra gnus-registry-dirty] 8 (#$ . 27067)])
#@75 Delete a specific entry in the extras field of the registry entry for id.
(defalias 'gnus-registry-delete-extra-entry #[(id key) "\302	\303#\207" [id key gnus-registry-store-extra-entry nil] 4 (#$ . 27675)])
#@72 Put a specific entry in the extras field of the registry entry for id.
(defalias 'gnus-registry-store-extra-entry #[(id key value) "\306!\307\n\306!\"\f\203�\310\n\fBB!\202�\311
\"+\207" [id extra key the-rest value alist gnus-registry-fetch-extra gnus-assq-delete-all gnus-registry-remove-alist-text-properties gnus-registry-store-extra] 4 (#$ . 27890)])
#@114 Get the group of a message, based on the message ID.
Returns the first place where the trail finds a group name.
(defalias 'gnus-registry-fetch-group #[(id) "\303!\205�\304	\"\305\306\215)\207" [id gnus-registry-hashtb trail gnus-registry-group-count gethash --cl-block-nil-- (byte-code "\304\211\203&�\n@\211;\203�\305\306\203�	\202�\307	!\"\210\nA\211\204�*\304\207" [trail crumb #1=#:--cl-dolist-temp-- gnus-registry-use-long-group-names nil throw --cl-block-nil-- gnus-group-short-name] 5)] 3 (#$ . 28263)])
#@77 Get the groups (up to MAX, if given) of a message, based on the message ID.
(defalias 'gnus-registry-fetch-groups #[(id &optional max) "\304	\"\305\306\307\215\210\n*\207" [id gnus-registry-hashtb groups trail gethash nil --cl-block-nil-- (byte-code "\306\211\203:�\n@\211;\2033�	;\203�\203�	\202 �\307	!\fB
\2033�\fG
V\2033�\310\311\306\"\210\nA\211\204�*\306\207" [trail crumb #1=#:--cl-dolist-temp-- gnus-registry-use-long-group-names groups max nil gnus-group-short-name throw --cl-block-nil--] 4)] 3 (#$ . 28795)])
#@65 Get the number of groups of a message, based on the message ID.
(defalias 'gnus-registry-group-count #[(id) "\303	\"\211\203�\n<\203�\304\305\306\307\n\"\"\202�\310)\207" [id gnus-registry-hashtb trail gethash apply + mapcar #[(x) ";\203�\301\207\302\207" [x 1 0] 1] 0] 6 (#$ . 29334)])
#@56 Delete a group for a message, based on the message ID.
(defalias 'gnus-registry-delete-group #[(id group) "\205=�	\205=�\306	\n\"\307!\310	\f\205�\311\311\f\"\"\n#\210*
\2030�\312	!\2040�\313	!\210\306	\n\"\205=�\314	\315\316 #\207" [group id gnus-registry-hashtb short-group trail gnus-registry-trim-articles-without-groups gethash gnus-group-short-name puthash delete gnus-registry-group-count gnus-registry-delete-id gnus-registry-store-extra-entry mtime current-time] 7 (#$ . 29634)])
#@40 Delete a message ID from the registry.
(defalias 'gnus-registry-delete-id #[(id) ";\205�\302	\"\210\303\304	\"\207" [id gnus-registry-hashtb remhash maphash #[(key value) "\302!\205\n�\303	\"\207" [value id hash-table-p remhash] 3]] 3 (#$ . 30136)])
#@53 Add a group for a message, based on the message ID.
(defalias 'gnus-registry-add-group #[(id group &optional subject sender) "\205m�	\205m�\306\307	\"?\205m�\n\203�\202�\310!\311	\"\210\n\204,�\311	\"\210\312	\f\"\313	
\203=�
B\202?�C\f#\210\314 \203U�\203U�\315	\316\317!#\210\320 \203f�\203f�\315	\321#\210\315	\322\323 #+\207" [group id gnus-registry-use-long-group-names full-group gnus-registry-hashtb trail string-match "totally-fudged-out-message-id" gnus-group-short-name gnus-registry-delete-group gethash puthash gnus-registry-track-subject-p gnus-registry-store-extra-entry subject gnus-registry-simplify-subject gnus-registry-track-sender-p sender mtime current-time] 5 (#$ . 30397)])
#@26 Clear the Gnus registry.
(defalias 'gnus-registry-clear #[nil "\303\304!\305\211\207" [gnus-registry-alist gnus-registry-hashtb gnus-registry-dirty nil gnus-alist-to-hashtable t] 2 (#$ . 31121) nil])
#@31 Initialize the Gnus registry.
(defalias 'gnus-registry-initialize #[nil "\301\302\303\"\210\304\305 \210\306 \210\307 \207" [gnus-registry-install gnus-message 5 "Initializing the registry" t gnus-registry-install-hooks gnus-registry-install-shortcuts gnus-registry-read] 3 (#$ . 31331) nil])
#@29 Install the registry hooks.
(defalias 'gnus-registry-install-hooks #[nil "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\210\300\313\314\"\207" [add-hook gnus-summary-article-move-hook gnus-registry-action gnus-summary-article-delete-hook gnus-summary-article-expire-hook nnmail-spool-hook gnus-registry-spool-action gnus-save-newsrc-hook gnus-registry-save gnus-read-newsrc-el-hook gnus-registry-read gnus-summary-prepare-hook gnus-registry-register-message-ids] 3 (#$ . 31631) nil])
#@31 Uninstall the registry hooks.
(defalias 'gnus-registry-unload-hook #[nil "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\210\300\313\314\"\207" [remove-hook gnus-summary-article-move-hook gnus-registry-action gnus-summary-article-delete-hook gnus-summary-article-expire-hook nnmail-spool-hook gnus-registry-spool-action gnus-save-newsrc-hook gnus-registry-save gnus-read-newsrc-el-hook gnus-registry-read gnus-summary-prepare-hook gnus-registry-register-message-ids] 3 (#$ . 32180) nil])
(byte-code "\300\301\211\"\207" [add-hook gnus-registry-unload-hook] 3)
(defalias 'gnus-registry-install-p #[nil "\301=\203�\302\303!\211\203�\304 \210\207" [gnus-registry-install ask gnus-y-or-n-p "Enable the Gnus registry?  See the variable `gnus-registry-install' to get rid of this query permanently. " gnus-registry-initialize] 3 nil nil])
(byte-code "\301=\204�\302 \203�\303 \210\304\305!\207" [gnus-registry-install t gnus-registry-install-p gnus-registry-initialize provide gnus-registry] 2)

${this.title}

Code Editor : gnus-registry.elc