;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\305\306\301%\210\307\310\311\312\313DD\314\315\316\317\320\321\322\306\303&\207" [require erc custom-declare-group erc-netsplit nil "Netsplit detection tries to automatically figure when a netsplit\nhappens, and filters the QUIT messages.  It also keeps track of\nnetsplits, so that it can filter the JOIN messages on a netjoin too." :group custom-declare-variable erc-netsplit-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Erc-Netsplit mode is enabled.\nSee the `erc-netsplit-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `erc-netsplit-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 12)
#@258 Toggle ERC netsplit mode.
With a prefix argument ARG, enable netsplit if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.
This mode hides quit/join messages if a netsplit occurs.

(fn &optional ARG)
(defalias 'erc-netsplit-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B	\203B\313 \210\202E\314 \210\315\316\305\301!\203Q\317\202R\320\"\210\321\322!\203z\323\301!\210\302 \203j\211\302 \232\203z\324\325\305\301!\203v\326\202w\327\330#\210\210\331 \210\305\301!\207" [global-minor-modes erc-netsplit-mode current-message set-default toggle default-value 1 nil t boundp delq erc-netsplit-enable erc-netsplit-disable run-hooks erc-netsplit-mode-hook erc-netsplit-mode-on-hook erc-netsplit-mode-off-hook called-interactively-p any customize-mark-as-set message "Erc-Netsplit mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 913) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar erc-netsplit-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [erc-netsplit-mode-map erc-netsplit-mode-hook variable-documentation put "Hook run after entering or leaving `erc-netsplit-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode erc-netsplit-mode boundp] 6)
#@27 Enable ERC netsplit mode.
(defalias 'erc-netsplit-enable #[0 "\301\302\303\"\210\304\305 \210\306\307\310\"\210\306\311\312\"\210\306\313\314\"\210\306\315\316\"\207" [erc-netsplit-mode add-to-list erc-modules netsplit t erc-netsplit-install-message-catalogs add-hook erc-server-JOIN-functions erc-netsplit-JOIN erc-server-MODE-functions erc-netsplit-MODE erc-server-QUIT-functions erc-netsplit-QUIT erc-timer-hook erc-netsplit-timer] 3 (#$ . 2529) nil])
#@28 Disable ERC netsplit mode.
(defalias 'erc-netsplit-disable #[0 "\302\303\"\304\305\306\307\"\210\305\310\311\"\210\305\312\313\"\210\305\314\315\"\207" [erc-modules erc-netsplit-mode delq netsplit nil remove-hook erc-server-JOIN-functions erc-netsplit-JOIN erc-server-MODE-functions erc-netsplit-MODE erc-server-QUIT-functions erc-netsplit-QUIT erc-timer-hook erc-netsplit-timer] 3 (#$ . 2991) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\306\307\310\311\312DD\313\314\315%\210\306\316\310\311\317DD\320\314\315%\210\306\321\310\311\322DD\323\314\324%\210\306\325\310\311\326DD\327\330\331\314\332&\210\306\333\310\311\334DD\335\330\331\314\332&\207" [put erc-netsplit-mode definition-name netsplit erc-netsplit-enable erc-netsplit-disable custom-declare-variable erc-netsplit-show-server-mode-changes-flag funcall function #[0 "\300\207" [nil] 1 #1=""] "Non-nil means to enable display of server mode changes." :type boolean erc-netsplit-debug #[0 "\300\207" [nil] 1 #1#] "If non-nil, debug messages will be shown in the sever buffer." erc-netsplit-regexp #[0 "\300\207" ["^[^ @!\"\n]+\\.[^ @!\n]+ [^ @!\n]+\\.[^ @!\"\n]+$"] 1 #1#] "This regular expression should match quit reasons produced by netsplits." regexp erc-netsplit-hook #[0 "\300\207" [nil] 1 #1#] "Run whenever a netsplit is detected the first time.\nArgs: PROC is the process the netsplit originated from and\n      SPLIT is the netsplit (e.g. \"server.name.1 server.name.2\")." :group erc-hooks hook erc-netjoin-hook #[0 "\300\207" [nil] 1 #1#] "Run whenever a netjoin is detected the first time.\nArgs: PROC is the process the netjoin originated from and\n      SPLIT is the netsplit (e.g. \"server.name.1 server.name.2\")."] 8)
#@208 This is a list of the form
(("a.b.c.d e.f.g" TIMESTAMP FIRST-JOIN "nick1" ... "nickn") ...)
where FIRST-JOIN is t or nil, depending on whether or not the first
join from that split has been detected or not.
(defvar erc-netsplit-list nil (#$ . 4736))
(make-variable-buffer-local 'erc-netsplit-list)
(defalias 'erc-netsplit-install-message-catalogs #[0 "\300\301\302\"\207" [erc-define-catalog english ((netsplit . "netsplit: %s") (netjoin . "netjoin: %s, %N were split") (netjoin-done . "netjoin: All lost souls are back!") (netsplit-none . "No netsplits in progress") (netsplit-wholeft . "split: %s missing: %n %t"))] 3])
#@44 Show/don't show rejoins.

(fn PROC PARSED)
(defalias 'erc-netsplit-JOIN #[514 "\302
!>\204\303\304\305D\"\210\211\306H\307	\211\203w\211@\310\233\235\203p\306
8\204K\311\312\313	!\314\315@\316\310	\233G&\210\211AA\317\240\210\320\321@#\210\322
\233\204h\311\312\313	!\323\315@&\210\324
	\"\202m\325\"\210\317\262
A\266\202\202\210\207" [cl-struct-erc-response-tags erc-netsplit-list type-of signal wrong-type-argument erc-response 2 nil 3 erc-display-message notice process-buffer netjoin 115 78 t run-hook-with-args erc-netjoin-hook 4 netjoin-done delq delete] 16 (#$ . 5364)])
#@51 Hide mode changes from servers.

(fn PROC PARSED)
(defalias 'erc-netsplit-MODE #[514 "\303\304\305!>\204\306\307\310D\"\210\311H\"\205'	\203%\312
\313\314!\315$\210\n?\207" [cl-struct-erc-response-tags erc-netsplit-debug erc-netsplit-show-server-mode-changes-flag string-match "^[^@!\n]+\\.[^@!\n]+$" type-of signal wrong-type-argument erc-response 2 erc-display-message notice process-buffer "[debug] server mode change."] 8 (#$ . 5980)])
#@37 Detect netsplits.

(fn PROC PARSED)
(defalias 'erc-netsplit-QUIT #[514 "\303
!>\204\304\305\306D\"\210\211\307H\303!>\204!\304\305\306D\"\210
\310H\311\312	\"\205\203\313\n\"\262
\211\203d\211AA\314\233B\241\210\310
8\203\202\315\316\317!\320\321&\210\211AA\322\240\210\323\324#\210\202\202\325 \311F\nB\315\316\317!\320\321&\210\323\324#\210\322\207" [cl-struct-erc-response-tags erc-netsplit-regexp erc-netsplit-list type-of signal wrong-type-argument erc-response 5 2 nil string-match assoc 3 erc-display-message notice process-buffer netsplit 115 t run-hook-with-args erc-netsplit-hook erc-current-time] 12 (#$ . 6435)])
#@71 Clean cruft from `erc-netsplit-list' older than 10 minutes.

(fn NOW)
(defalias 'erc-netsplit-timer #[257 "\2052	\211\2050\211@\303
A@\"\304V\203)\n\203$\305\306\307p\310@P$\210\311
	\"
A\266\202\202\262
\207" [erc-server-connected erc-netsplit-list erc-netsplit-debug erc-time-diff 600 erc-display-message nil notice "Netsplit: Removing " delq] 9 (#$ . 7103)])
#@18 Show who's gone.
(defalias 'erc-cmd-WHOLEFT #[0 "\301 \302
!\203Lr\211q\210\204\303\304\305\306\307$\210\202K\211\203J\211@\303\304\305\306\310\311@\312\313\314\315\233\316#\317\3208\203?\321\202@\322&\n\210
A\266\202\202\210)\210\323\207" [erc-netsplit-list erc-server-buffer buffer-live-p erc-display-message nil notice active netsplit-none netsplit-wholeft 115 110 mapconcat erc-extract-nick 3 " " 116 2 "(joining)" "" t] 15 (#$ . 7481)])
(byte-code "\300\301\302\"\210\303\304!\207" [defalias erc-cmd-WL erc-cmd-WHOLEFT provide erc-netsplit] 3)