1#@!#!123s

file_get_contents 1#@!#!123s
: / usr / share / emacs / 24.3 / lisp / erc /
Filename : erc-join.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:39 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/erc/erc-join.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\313\314\315\316\307\304\317\320&\207" [require erc auth-source custom-declare-group erc-autojoin nil "Enable autojoining." :group custom-declare-variable erc-autojoin-mode "Non-nil if Erc-Autojoin mode is enabled.\nSee the command `erc-autojoin-mode' for 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-autojoin-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 12)
#@228 Toggle ERC autojoin mode.
With a prefix argument ARG, enable autojoin if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.
Makes ERC autojoin on connects and reconnects.
(defalias 'erc-autojoin-mode #[(&optional arg) "\303 	\304=\203�\n?\202�\305	!\306V\211\203�\307 \210\202!�\310 \210\311\312\n\203+�\313\202,�\314\"\210\315\316!\203Q�\317\302!\210\303 \203D�\303 \232\203Q�\320\321\n\203N�\322\202O�\323\"\210)\324 \210\n\207" [#1=#:last-message arg erc-autojoin-mode current-message toggle prefix-numeric-value 0 erc-autojoin-enable erc-autojoin-disable run-hooks erc-autojoin-mode-hook erc-autojoin-mode-on-hook erc-autojoin-mode-off-hook called-interactively-p any customize-mark-as-set message "Erc-Autojoin mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 1174) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n�\303\211%\207" [erc-autojoin-mode-map add-minor-mode erc-autojoin-mode nil boundp] 6)
#@27 Enable ERC autojoin mode.
(defalias 'erc-autojoin-enable #[nil "\301\302\303\"\210\304\305\306\307\"\210\305\310\311\"\210\305\312\313\"\210\305\314\315\"\207" [erc-autojoin-mode add-to-list erc-modules autojoin t add-hook erc-after-connect erc-autojoin-channels erc-nickserv-identified-hook erc-autojoin-after-ident erc-server-JOIN-functions erc-autojoin-add erc-server-PART-functions erc-autojoin-remove] 3 (#$ . 2189) nil])
#@28 Disable ERC autojoin mode.
(defalias 'erc-autojoin-disable #[nil "\302\303\"\304\305\306\307\"\210\305\310\311\"\210\305\312\313\"\210\305\314\315\"\207" [erc-modules erc-autojoin-mode delq autojoin nil remove-hook erc-after-connect erc-autojoin-channels erc-nickserv-identified-hook erc-autojoin-after-ident erc-server-JOIN-functions erc-autojoin-add erc-server-PART-functions erc-autojoin-remove] 3 (#$ . 2623) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\306\307\310\311\312\313\314\315&\210\306\316\317\320\312\313\321\322\314\323&	\210\306\324\325\326\312\313\321\322\314\327&	\210\306\330\331\332\312\313\314\333&\207" [put erc-autojoin-mode definition-name autojoin erc-autojoin-enable erc-autojoin-disable custom-declare-variable erc-autojoin-channels-alist nil "Alist of channels to autojoin on IRC networks.\nEvery element in the alist has the form (SERVER . CHANNELS).\nSERVER is a regexp matching the server, and channels is the\nlist of channels to join.\n\nIf the channel(s) require channel keys for joining, the passwords\nare found via auth-source.  For instance, if you use ~/.authinfo\nas your auth-source backend, then put something like the\nfollowing in that file:\n\nmachine irc.example.net login \"#fsf\" password sEcReT\n\nCustomize this variable to set the value for your first connect.\nOnce you are connected and join and part channels, this alist\nkeeps track of what channels you are on, and will join them\nagain when you get disconnected.  When you restart Emacs, however,\nthose changes are lost, and the customization you saved the last\ntime is used again." :group erc-autojoin :type (repeat (cons :tag "Server" (regexp :tag "Name") (repeat :tag "Channels" (string :tag "Name")))) erc-autojoin-timing 'connect "When ERC should attempt to autojoin a channel.\nIf the value is `connect', autojoin immediately on connecting.\nIf the value is `ident', autojoin after successful NickServ\nidentification, or after `erc-autojoin-delay' seconds.\nAny other value means the same as `connect'." :version "24.1" (choice (const :tag "On Connection" connect) (const :tag "When Identified" ident)) erc-autojoin-delay 30 "Number of seconds to wait before attempting to autojoin channels.\nThis only takes effect if `erc-autojoin-timing' is `ident'.\nIf NickServ identification occurs before this delay expires, ERC\nautojoins immediately at that time." integer erc-autojoin-domain-only t "Truncate host name to the domain name when joining a server.\nIf non-nil, and a channel on the server a.b.c is joined, then\nonly b.c is used as the server for `erc-autojoin-channels-alist'.\nThis is important for networks that redirect you to other\nservers, presumably in the same domain." boolean] 10)
(defvar erc--autojoin-timer nil)
(make-variable-buffer-local 'erc--autojoin-timer)
#@94 Attempt to autojoin channels.
This is called from a timer set up by `erc-autojoin-channels'.
(defalias 'erc-autojoin-channels-delayed #[(server nick buffer) "\203�\306!r	q\210\307\310\311
\203�\312\f!\210)\313\f
\"+\207" [erc--autojoin-timer buffer erc-autojoin-timing erc-autojoin-delay string erc-log-p erc-cancel-timer -1 connect "Delayed autojoin started (no ident success detected yet)" erc-log-aux erc-autojoin-channels server nick] 3 (#$ . 5468)])
#@111 Autojoin channels in `erc-autojoin-channels-alist'.
This function is run from `erc-nickserv-identified-hook'.
(defalias 'erc-autojoin-after-ident #[(network nick) "\203�\306!	\307=\203j�\n\206�\310\311\312\f!\"\313\211\203i�@\314@\"\203`�A\313\211\203_�@\315
\"\204V�\316\"\210A\211\204B�*A\211\204'�,\313\207" [erc--autojoin-timer erc-autojoin-timing erc-server-announced-name erc-session-server erc-server-process joined erc-cancel-timer ident mapcar #[(buf) "rq\210\301 )\207" [buf erc-default-target] 1] erc-channel-list nil string-match erc-member-ignore-case erc-server-join-channel server erc-autojoin-channels-alist l --dolist-tail-- chan] 6 (#$ . 5940)])
#@53 Autojoin channels in `erc-autojoin-channels-alist'.
(defalias 'erc-autojoin-channels #[(server nick) "\306=\203�	\307V\203\\�\310	\311\312\np&\202\\�
\311
\211\203[�@
\313
@\n\"\203R�
A\311\211\203Q�@\314\n\"\210A\211\204=�*A\211\204#�*\311\207" [erc-autojoin-timing erc-autojoin-delay server nick erc--autojoin-timer erc-autojoin-channels-alist ident 0 run-with-timer nil erc-autojoin-channels-delayed string-match erc-server-join-channel l --dolist-tail-- chan] 8 (#$ . 6658)])
(defalias 'erc-server-join-channel #[(server channel) "\304\305\306\307\310\311\312\313	&@\314\"\315\n!\203�\n \202�\n\316\317	\203*�\320P\202+�\321Q!*\207" [server channel secret password plist-get auth-source-search :max 1 :host :port "irc" :user :secret functionp erc-server-send "join " " " ""] 10])
#@64 Add the channel being joined to `erc-autojoin-channels-alist'.
(defalias 'erc-autojoin-add #[(proc parsed) "\306H	>\204�\307\310\311\312#\210\313H\314\306H	>\204!�\307\310\315\312#\210\316H!@r\317\f!q\210
\2063�)\320!\203z�\203P�\321\322\"\203P�\323\324\"\325\"\211\203p�\nA\235\204y�\nAB\241\210\202y�\nDB)+\326\207" [parsed cl-struct-erc-response-tags chnl nick proc erc-server-announced-name 0 error "%s accessing a non-%s" erc-response\.contents erc-response 5 erc-parse-user erc-response\.sender 2 process-buffer erc-current-nick-p string-match "[^.\n]+\\.\\([^.\n]+\\.[^.\n]+\\)$" match-string 1 assoc nil erc-session-server server erc-autojoin-domain-only erc-autojoin-channels-alist elem] 6 (#$ . 7487)])
#@67 Remove the channel being left from `erc-autojoin-channels-alist'.
(defalias 'erc-autojoin-remove #[(proc parsed) "\306H	>\204�\307\310\311\312#\210\313H@\314\306H	>\204\"�\307\310\315\312#\210\316H!@r\317\f!q\210
\2064�)\320!\203v�\203Q�\321\322\"\203Q�\323\324\"\325\"\211\203u�\326\nA\"\241\210A\204u�\326\")+\327\207" [parsed cl-struct-erc-response-tags chnl nick proc erc-server-announced-name 0 error "%s accessing a non-%s" erc-response\.command-args erc-response 4 erc-parse-user erc-response\.sender 2 process-buffer erc-current-nick-p string-match "[^.\n]+\\.\\([^.\n]+\\.[^.\n]+\\)$" match-string 1 assoc delete nil erc-session-server server erc-autojoin-domain-only erc-autojoin-channels-alist elem] 6 (#$ . 8244)])
(provide 'erc-join)