;ELC   
;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:51:55 2013
;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/net/rcirc.el
;;; in Emacs version 23.4.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\310\311\312\313\314\315\316&\207" [require ring time-date custom-declare-group rcirc nil "Simple IRC client." :version "22.1" :prefix "rcirc-" :link (custom-manual "(rcirc)") :group applications] 12)
#@894 An alist of IRC connections to establish when running `rcirc'.
Each element looks like (SERVER-NAME PARAMETERS).

SERVER-NAME is a string describing the server to connect
to.

The optional PARAMETERS come in pairs PARAMETER VALUE.

The following parameters are recognized:

`:nick'

VALUE must be a string.  If absent, `rcirc-default-nick' is used
for this connection.

`:port'

VALUE must be a number or string.  If absent,
`rcirc-default-port' is used.

`:user-name'

VALUE must be a string.  If absent, `rcirc-default-user-name' is
used.

`:password'

VALUE must be a string.  If absent, no PASS command will be sent
to the server.

`:full-name'

VALUE must be a string.  If absent, `rcirc-default-full-name' is
used.

`:channels'

VALUE must be a list of strings describing which channels to join
when connecting to this server.  If absent, no channels will be
connected to automatically.
(custom-declare-variable 'rcirc-server-alist ''(("irc.freenode.net" :channels ("#rcirc"))) '(#$ . 800) :type '(alist :key-type string :value-type (plist :options ((:nick string) (:port integer) (:user-name string) (:password string) (:full-name string) (:channels (repeat string))))) :group 'rcirc)
#@33 The default port to connect to.
(custom-declare-variable 'rcirc-default-port '6667 '(#$ . 1998) :type 'integer :group 'rcirc)
#@12 Your nick.
(custom-declare-variable 'rcirc-default-nick '(user-login-name) '(#$ . 2130) :type 'string :group 'rcirc)
#@52 Your user name sent to the server when connecting.
(custom-declare-variable 'rcirc-default-user-name '(user-login-name) '(#$ . 2253) :type 'string :group 'rcirc)
#@51 The full name sent to the server when connecting.
(custom-declare-variable 'rcirc-default-full-name '(if (string= (user-full-name) "") rcirc-default-user-name (user-full-name)) '(#$ . 2421) :type 'string :group 'rcirc)
#@63 *Non-nil means line-wrap messages printed in channel buffers.
(custom-declare-variable 'rcirc-fill-flag 't '(#$ . -2646) :type 'boolean :group 'rcirc)
#@144 *Column beyond which automatic line-wrapping should happen.
If nil, use value of `fill-column'.  If 'frame-width, use the
maximum frame width.
(custom-declare-variable 'rcirc-fill-column 'nil '(#$ . -2804) :type '(choice (const :tag "Value of `fill-column'") (const :tag "Full frame width" frame-width) (integer :tag "Number of columns")) :group 'rcirc)
#@117 *Text to insert before filled lines.
If nil, calculate the prefix dynamically to line up text
underneath each nick.
(custom-declare-variable 'rcirc-fill-prefix 'nil '(#$ . -3165) :type '(choice (const :tag "Dynamic" nil) (string :tag "Prefix text")) :group 'rcirc)
#@45 If non-nil, ignore activity in this buffer.
(defvar rcirc-ignore-buffer-activity-flag nil (#$ . 3436))
(make-variable-buffer-local 'rcirc-ignore-buffer-activity-flag)
#@65 If non-nil, activity in this buffer is considered low priority.
(defvar rcirc-low-priority-flag nil (#$ . 3609))
(make-variable-buffer-local 'rcirc-low-priority-flag)
#@99 Non-nil if Rcirc-Omit mode is enabled.
Use the command `rcirc-omit-mode' to change this variable.
(defvar rcirc-omit-mode nil (#$ . 3782))
(make-variable-buffer-local 'rcirc-omit-mode)
#@87 *Describes how timestamps are printed.
Used as the first arg to `format-time-string'.
(custom-declare-variable 'rcirc-time-format '"%H:%M " '(#$ . -3973) :type 'string :group 'rcirc)
#@30 *Size of input history ring.
(custom-declare-variable 'rcirc-input-ring-size '1024 '(#$ . -4162) :type 'integer :group 'rcirc)
#@52 *Non-nil means make text in IRC buffers read-only.
(custom-declare-variable 'rcirc-read-only-flag 't '(#$ . -4295) :type 'boolean :group 'rcirc)
#@165 *The maximum size in lines for rcirc buffers.
Channel buffers are truncated from the top to be no greater than this
number.  If zero or nil, no truncating is done.
(custom-declare-variable 'rcirc-buffer-maximum-lines 'nil '(#$ . -4447) :type '(choice (const :tag "No truncation" nil) (integer :tag "Number of lines")) :group 'rcirc)
#@75 *If non-nil, scroll buffer to keep the point at the bottom of
the window.
(custom-declare-variable 'rcirc-scroll-show-maximum-output 't '(#$ . -4786) :type 'boolean :group 'rcirc)
#@586 List of authentication passwords.
Each element of the list is a list with a SERVER-REGEXP string
and a method symbol followed by method specific arguments.

The valid METHOD symbols are `nickserv', `chanserv' and
`bitlbee'.

The ARGUMENTS for each METHOD symbol are:
  `nickserv': NICK PASSWORD [NICKSERV-NICK]
  `chanserv': NICK CHANNEL PASSWORD
  `bitlbee': NICK PASSWORD

Examples:
 (("freenode" nickserv "bob" "p455w0rd")
  ("freenode" chanserv "bob" "#bobland" "passwd99")
  ("bitlbee" bitlbee "robert" "sekrit")
  ("dal.net" nickserv "bob" "sekrit" "NickServ@services.dal.net"))
(custom-declare-variable 'rcirc-authinfo 'nil '(#$ . 4973) :type '(alist :key-type (string :tag "Server") :value-type (choice (list :tag "NickServ" (const nickserv) (string :tag "Nick") (string :tag "Password")) (list :tag "ChanServ" (const chanserv) (string :tag "Nick") (string :tag "Channel") (string :tag "Password")) (list :tag "BitlBee" (const bitlbee) (string :tag "Nick") (string :tag "Password")))) :group 'rcirc)
#@95 *Non-nil means automatically send authentication string to server.
See also `rcirc-authinfo'.
(custom-declare-variable 'rcirc-auto-authenticate-flag 't '(#$ . -5987) :type 'boolean :group 'rcirc)
#@266 Prompt string to use in IRC buffers.

The following replacements are made:
%n is your nick.
%s is the server.
%t is the buffer target, a channel or a user.

Setting this alone will not affect the prompt;
use either M-x customize or also call `rcirc-update-prompt'.
(custom-declare-variable 'rcirc-prompt '"> " '(#$ . 6190) :type 'string :set 'rcirc-set-changed :initialize 'custom-initialize-default :group 'rcirc)
#@48 List of keywords to highlight in message text.
(custom-declare-variable 'rcirc-keywords 'nil '(#$ . 6611) :type '(repeat string) :group 'rcirc)
#@92 List of ignored nicks.
Use /ignore to list them, use /ignore NICK to add or remove a nick.
(custom-declare-variable 'rcirc-ignore-list 'nil '(#$ . 6761) :type '(repeat string) :group 'rcirc)
#@219 List of ignored nicks added to `rcirc-ignore-list' because of renaming.
When an ignored person renames, their nick is added to both lists.
Nicks will be removed from the automatic list on follow-up renamings or
parts.
(defvar rcirc-ignore-list-automatic nil (#$ . 6959))
#@63 List of nicks to be emphasized.
See `rcirc-bright-nick' face.
(custom-declare-variable 'rcirc-bright-nicks 'nil '(#$ . 7236) :type '(repeat string) :group 'rcirc)
#@62 List of nicks to be deemphasized.
See `rcirc-dim-nick' face.
(custom-declare-variable 'rcirc-dim-nicks 'nil '(#$ . 7405) :type '(repeat string) :group 'rcirc)
#@102 Hook run after text is printed.
Called with 5 arguments, PROCESS, SENDER, RESPONSE, TARGET and TEXT.
(custom-declare-variable 'rcirc-print-hooks 'nil '(#$ . 7571) :type 'hook :group 'rcirc)
#@79 Non-nil means messages without a channel target will go to the server buffer.
(custom-declare-variable 'rcirc-always-use-server-buffer-flag 'nil '(#$ . 7767) :type 'boolean :group 'rcirc)
#@53 Coding system used to decode incoming irc messages.
(custom-declare-variable 'rcirc-decode-coding-system ''utf-8 '(#$ . 7961) :type 'coding-system :group 'rcirc)
#@53 Coding system used to encode outgoing irc messages.
(custom-declare-variable 'rcirc-encode-coding-system ''utf-8 '(#$ . 8129) :type 'coding-system :group 'rcirc)
#@574 Alist to decide a coding system to use for a channel I/O operation.
The format is ((PATTERN . VAL) ...).
PATTERN is either a string or a cons of strings.
If PATTERN is a string, it is used to match a target.
If PATTERN is a cons of strings, the car part is used to match a
target, and the cdr part is used to match a server.
VAL is either a coding system or a cons of coding systems.
If VAL is a coding system, it is used for both decoding and encoding
messages.
If VAL is a cons of coding systems, the car part is used for decoding,
and the cdr part is used for encoding.
(custom-declare-variable 'rcirc-coding-system-alist 'nil '(#$ . 8298) :type '(alist :key-type (choice (string :tag "Channel Regexp") (cons (string :tag "Channel Regexp") (string :tag "Server Regexp"))) :value-type (choice coding-system (cons (coding-system :tag "Decode") (coding-system :tag "Encode")))) :group 'rcirc)
#@55 Major-mode function to use in multiline edit buffers.
(custom-declare-variable 'rcirc-multiline-major-mode ''fundamental-mode '(#$ . 9197) :type 'function :group 'rcirc)
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\306B\302\306!\204- \303\306\304\"\210\307B\302\307!\204< \303\307\304\"\210\304\207" [current-load-list rcirc-nick default-boundp set-default nil rcirc-prompt-start-marker rcirc-prompt-end-marker rcirc-nick-table] 3)
#@63 Alist of nicks that have recently quit or parted the channel.
(defvar rcirc-recent-quit-alist nil (#$ . 9687))
#@71 Syntax table which includes all nick characters as word constituents.
(defvar rcirc-nick-syntax-table (byte-code "\302!\303\304\305\"\210\306\307\310	#\210	)\207" [text-mode-syntax-table table make-syntax-table mapc #[(c) "\302\303	#\207" [c table modify-syntax-entry "w"] 4] "[]\\`_^{|}-" modify-syntax-entry 39 "_"] 4) (#$ . 9804))
(byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list rcirc-buffer-alist default-boundp set-default nil] 3)
#@41 List of buffers with unviewed activity.
(defvar rcirc-activity nil (#$ . 10282))
#@61 String displayed in modeline representing `rcirc-activity'.
(defvar rcirc-activity-string "" (#$ . 10369))
(put 'rcirc-activity-string 'risky-local-variable t)
#@56 The server buffer associated with this channel buffer.
(defvar rcirc-server-buffer nil (#$ . 10535))
#@50 The channel or user associated with this buffer.
(defvar rcirc-target nil (#$ . 10642))
#@42 List of urls seen in the current buffer.
(defvar rcirc-urls nil (#$ . 10736))
(put 'rcirc-urls 'permanent-local t)
#@66 Kill connection after this many seconds if there is no activity.
(defvar rcirc-timeout-seconds 600 (#$ . 10857))
(byte-code "\302B\303\304	P!\210\305B\306\305!\204 \307\305\310\"\210\310\207" [current-load-list emacs-version rcirc-id-string (lambda (#1=#:defconst-tmp-var) (defconst rcirc-id-string #1#)) "rcirc on GNU Emacs " rcirc-startup-channels default-boundp set-default nil] 3)
#@37 History variable for \[rcirc] call.
(defvar rcirc-server-name-history nil (#$ . 11253))
#@37 History variable for \[rcirc] call.
(defvar rcirc-server-port-history nil (#$ . 11347))
#@37 History variable for \[rcirc] call.
(defvar rcirc-nick-name-history nil (#$ . 11441))
#@167 Connect to all servers in `rcirc-server-alist'.

Do not connect to a server if it is already connected.

If ARG is non-nil, instead prompt for connection parameters.
(defalias 'rcirc #[(arg) "\203p \306\307	\310\211	\211@@)\311&\312	\"A\313\314\315\316\f\317\"\206$ !\320#3\313\321\316\f\322\"\2064 4\323#5\324\325\316\f\326\"\"\327\313\330\331\332\316\f\333\"\334#\"\335\336#6G\337U\203] \310\34035786&.\207\3109	\310:\211;\203\";@\211:@\316:A\322\"\206\217 4\316:A\317\"\206\231 \316:A\341\"\206\244 7\316:A\342\"\206\257 8\316:A\333\"\316:A\343\"6<=35\211\203\310>\344 \310?\211@\203\365 @@?\345?!\230\203\354 ?>@A\211@\204\332 *>\204\346\347\350\217\210\202r\351>!q\210\352\353p!\354\"9B9)).;A\211;\204} *9\205F\355\3569A\203B\331\332\3579!\360#\361\3629!@Q\202E9@\")\207" [arg rcirc-server-alist x server server-plist rcirc-default-port completing-read "IRC Server: " nil rcirc-server-name-history assoc-string read-string "IRC Port: " number-to-string plist-get :port rcirc-server-port-history "IRC Nick: " :nick rcirc-nick-name-history read-passwd "IRC Password: " password split-string "IRC Channels: " mapconcat identity :channels " " "[, ]+" t 0 rcirc-connect :user-name :full-name :password rcirc-process-list process-name e (byte-code "\306	\n\f&\207" [server port nick user-name full-name channels rcirc-connect password] 8) ((quit (message "Quit connecting to %s" server))) process-buffer process-contact get-buffer-process :host message "Already connected to %s" butlast ", " ", and " last port rcirc-default-nick nick channels rcirc-default-user-name rcirc-default-full-name connected-servers c #1=#:--cl-dolist-temp-- full-name user-name connected p #2=#:--cl-dolist-temp--] 11 (#$ . 11534) "P"])
(byte-code "\301\302\303\"\210\304B\305\304!\204 \306\304\307\"\210\310B\305\310!\204# \306\310\307\"\210\311B\305\311!\2042 \306\311\307\"\210\312B\305\312!\204A \306\312\307\"\210\313B\305\313!\204P \306\313\307\"\210\314B\305\314!\204_ \306\314\307\"\210\315B\305\315!\204n \306\315\307\"\210\316B\305\316!\204} \306\316\307\"\210\317B\305\317!\204\214 \306\317\307\"\210\320B\305\320!\204\233 \306\320\307\"\210\307\207" [current-load-list defalias irc rcirc rcirc-process-output default-boundp set-default nil rcirc-topic rcirc-keepalive-timer rcirc-last-server-message-time rcirc-server rcirc-server-name rcirc-timeout-timer rcirc-user-disconnect rcirc-connecting rcirc-process] 3)
(defalias 'rcirc-connect #[(server &optional port nick user-name full-name startup-channels password) "\212\306\307\"\210\310\n\203 \n;\203 \311\n!\202 \n\202 \206# 78\206+ 98:\2064 ;:<<\312\313\314\315\f&=\316=\317\211#\210\320\321=\310\"!\210\322=p\"\210\323=\310\"\210\324=\325\"\210\326=\327\"\210\330\331!\210=\330\332!\210\330\333!\210\330\334!\210\310\330\335!\210\336\337\340\"\330\341!\210!\330\342!\210\310\"\330\343!\210<#\330\344!\210\345 $\330\346!\210\310&\330\347!\210\310'\330\350!\210\351(\352\353\354\"\210>\203\331 \355=\356>P\"\210\355=\357P\"\210\355=\3608\361:R\"\210?\204\374 \362\363@\364\245\365#?\306\366\"\210=.\207" [server inhibit-eol-conversion port rcirc-default-port port-number nick message "Connecting to %s..." nil string-to-number make-network-process :name :host :service set-process-coding-system raw-text switch-to-buffer rcirc-generate-new-buffer-name set-process-buffer rcirc-mode set-process-sentinel rcirc-sentinel set-process-filter rcirc-filter make-local-variable rcirc-process rcirc-server rcirc-server-name rcirc-buffer-alist rcirc-nick-table make-hash-table :test equal rcirc-nick rcirc-process-output rcirc-startup-channels rcirc-last-server-message-time current-time rcirc-timeout-timer rcirc-user-disconnect rcirc-connecting t add-hook auto-save-hook rcirc-log-write rcirc-send-string "PASS " "NICK " "USER " " hostname servername :" run-at-time 0 2 rcirc-keepalive "Connecting to %s...done" rcirc-default-nick user-name rcirc-default-user-name full-name rcirc-default-full-name startup-channels process password rcirc-keepalive-timer rcirc-timeout-seconds] 7])(if macro-declaration-function (funcall macro-declaration-function (quote with-rcirc-process-buffer) (quote (declare (indent 1) (debug t)))))
(defalias 'with-rcirc-process-buffer '(macro . #[(process &rest body) "\302\303D	BB\207" [process body with-current-buffer process-buffer] 3]))(if macro-declaration-function (funcall macro-declaration-function (quote with-rcirc-server-buffer) (quote (declare (indent 0) (debug t)))))
(defalias 'with-rcirc-server-buffer '(macro . #[(&rest body) "\301\302BB\207" [body with-current-buffer rcirc-server-buffer] 3]))
#@126 Send keep alive pings to active rcirc processes.
Kill processes that have not received a server message since the
last ping.
(defalias 'rcirc-keepalive #[nil "\301 \203 \302\303\301 \"\207\304!\210\305\211\207" [rcirc-keepalive-timer rcirc-process-list mapc #[(process) "r\303!q\210	?\205 \304\305\306\n\307 #\")\207" [process rcirc-connecting rcirc-nick process-buffer rcirc-send-string format "PRIVMSG %s :KEEPALIVE %f" float-time] 6] cancel-timer nil] 3 (#$ . 16289)])
(defalias 'rcirc-handler-ctcp-KEEPALIVE #[(process target sender message) "r\303!q\210\304\305\306 \307	!Z\"\211)\207" [process message header-line-format process-buffer format "%f" float-time string-to-number] 5])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list rcirc-debug-buffer default-boundp set-default " *rcirc debug*"] 3)
#@56 If non-nil, write information to `rcirc-debug-buffer'.
(defvar rcirc-debug-flag nil (#$ . 17140))
#@139 Add an entry to the debug log including PROCESS and TEXT.
Debug text is written to `rcirc-debug-buffer' if `rcirc-debug-flag'
is non-nil.
(defalias 'rcirc-debug #[(process text) "\205 r\304	!q\210db\210\305\306\307!\310\n!\311\260c)\207" [rcirc-debug-flag rcirc-debug-buffer process text get-buffer-create "[" format-time-string "%Y-%m-%dT%T " process-name "] "] 5 (#$ . 17245)])
#@118 Hook functions called when the process sentinel is called.
Functions are called with PROCESS and SENTINEL arguments.
(defvar rcirc-sentinel-hooks nil (#$ . 17636))
#@40 Called when PROCESS receives SENTINEL.
(defalias 'rcirc-sentinel #[(process sentinel) "\306\307\310#\311	\312\313	#\"\210r\314	!q\210\315\316\317\n\"B\315\211\203L \f@r\206+ pq\210\320	\321\322\312\323\324	!\325	!$?&\210\326 \210)\fA\211\204\" *\327\330	#*\207" [sentinel process rcirc-buffer-alist buffer #1=#:--cl-dolist-temp-- rcirc-target replace-regexp-in-string "\n" "" rcirc-debug format "SENTINEL: %S %S\n" process-buffer nil mapcar cdr rcirc-print "rcirc.el" "ERROR" "%s: %s (%S)" process-name process-status rcirc-disconnect-buffer run-hook-with-args rcirc-sentinel-hooks] 12 (#$ . 17806)])
(defalias 'rcirc-disconnect-buffer #[(&optional buffer) "r\206 pq\210\303\304\211)\207" [buffer rcirc-target mode-line-process nil ":disconnected"] 2])
#@35 Return a list of rcirc processes.
(defalias 'rcirc-process-list #[nil "\301\302\303\304 \"\210)\207" [ps nil mapc #[(p) "\303\304!!\205 r\304!q\210	\305=\205 \nB\211)\207" [p major-mode ps buffer-live-p process-buffer rcirc-mode] 3] process-list] 3 (#$ . 18582)])
#@125 Hook functions run when a message is received from server.
Function is called with PROCESS, COMMAND, SENDER, ARGS and LINE.
(defvar rcirc-receive-message-hooks nil (#$ . 18861))
#@38 Called when PROCESS receives OUTPUT.
(defalias 'rcirc-filter #[(process output) "\304	\"\210\305!\210r\306!q\210\307 	P\211\211GSH\310U\205, \311\312\313\314\315#\"\210\316\211)\207" [process output rcirc-last-server-message-time rcirc-process-output rcirc-debug rcirc-reschedule-timeout process-buffer current-time 10 mapc #[(line) "\302	\"\207" [process line rcirc-process-server-response] 3] split-string "[\n]" t nil] 7 (#$ . 19045)])
(defalias 'rcirc-reschedule-timeout #[(process) "r\304!q\210	?\205\" r\304!q\210\n\203 \305\n!\210\306\307\310$\211))\207" [process rcirc-connecting rcirc-timeout-timer rcirc-timeout-seconds process-buffer cancel-timer run-at-time nil rcirc-delete-process] 5])
(defalias 'rcirc-delete-process #[(process) "\301!\207" [process delete-process] 2])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list rcirc-trap-errors-flag default-boundp set-default t] 3)
(defalias 'rcirc-process-server-response #[(process text) "\203	 \303\304\305\217\207\306	\n\"\207" [rcirc-trap-errors-flag process text err (rcirc-process-server-response-1 process text) ((error (byte-code "\303\304\305\306\307\310	\n#\311&\207" [process text err rcirc-print "RCIRC" "ERROR" nil format "\"%s\" %s" t] 9))) rcirc-process-server-response-1] 3])
(defalias 'rcirc-process-server-response-1 #[(process text) "\306\307\"\203g \310\311\"\312	!\310\313\"\310\314\"\315\316P!\306\317\f\"\210\310\320\f\"\310\311\f\"\321\322\323\324\325\326#C\"\"\327!\204R \330\n\f%\210\202Z \n\f$\210\331\332\n\f&.\207\333\334\"\207" [text user sender cmd args handler string-match "^\\(:\\([^ ]+\\) \\)?\\([^ ]+\\) \\(.+\\)$" match-string 2 rcirc-user-nick 3 4 intern-soft "rcirc-handler-" "^\\([^:]*\\):?\\(.+\\)?$" 1 delq nil append split-string " " t fboundp rcirc-handler-generic run-hook-with-args rcirc-receive-message-hooks message "UNHANDLED: %s" args1 args2 process] 7])
#@67 Responses that don't trigger activity in the mode-line indicator.
(defvar rcirc-responses-no-activity '("305" "306") (#$ . 21002))
#@34 Generic server response handler.
(defalias 'rcirc-handler-generic #[(process response sender args text) "\305	\n\306\307\310A\311#\n\f\235?&\207" [process sender response args rcirc-responses-no-activity rcirc-print nil mapconcat identity " "] 9 (#$ . 21139)])
#@39 Send PROCESS a STRING plus a newline.
(defalias 'rcirc-send-string #[(process string) "\303	\"\304P\305\n!\306=\204 \307\310\311\n!\"\210\312\n\"\210\313\n\")\207" [string rcirc-encode-coding-system process encode-coding-string "\n" process-status open error "Network connection to %s is not open" process-name rcirc-debug process-send-string] 4 (#$ . 21409)])
#@113 Return the process associated with channel BUFFER.
With no argument or nil as argument, use the current buffer.
(defalias 'rcirc-buffer-process #[(&optional buffer) "\303\203 rq\210	)\202 	!\206 \n\207" [buffer rcirc-server-buffer rcirc-process get-buffer-process] 2 (#$ . 21782)])
#@56 Return PROCESS server name, given by the 001 response.
(defalias 'rcirc-server-name #[(process) "r\302!q\210	\206 \303\304\")\207" [process rcirc-server-name process-buffer warn "server name for process %S unknown"] 3 (#$ . 22075)])
#@22 Return PROCESS nick.
(defalias 'rcirc-nick #[(process) "r\303!q\210	\206 \n)\207" [process rcirc-nick rcirc-default-nick process-buffer] 2 (#$ . 22317)])
#@102 Return the nick associated with BUFFER.
With no argument or nil as argument, use the current buffer.
(defalias 'rcirc-buffer-nick #[(&optional buffer) "r\206 pq\210r	q\210\n\206 *\207" [buffer rcirc-server-buffer rcirc-nick rcirc-default-nick] 1 (#$ . 22480)])
#@48 Messages longer than this value will be split.
(defvar rcirc-max-message-length 420 (#$ . 22751))
#@189 Send TARGET associated with PROCESS a privmsg with text MESSAGE.
If NOTICEP is non-nil, send a notice instead of privmsg.
If SILENT is non-nil, do not print the message in any irc buffer.
(defalias 'rcirc-send-message #[(process target message &optional noticep silent) "\203 \306\202	 \307\nGV\211\203 \n\310O\202 \n\211\311\230\203& \312\202' \f\2050 \n\313O\314\"\210\315	\312\316\260\"\210\204X \317\320!	%\210\205f \321$-\207" [noticep response message rcirc-max-message-length oversize text "NOTICE" "PRIVMSG" 0 "" " " nil rcirc-get-buffer-create rcirc-send-string " :" rcirc-print rcirc-nick rcirc-send-message more process target silent] 8 (#$ . 22856)])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\306\"\210\304\207" [current-load-list rcirc-input-ring default-boundp set-default nil rcirc-input-ring-index 0] 3)
(defalias 'rcirc-prev-input-string #[(arg) "\303	\n\\\"\207" [rcirc-input-ring rcirc-input-ring-index arg ring-ref] 4])
(defalias 'rcirc-insert-prev-input #[(arg) "`X\205 d|\210\302\303!c\210	T\211\207" [rcirc-prompt-end-marker rcirc-input-ring-index rcirc-prev-input-string 0] 2 nil "p"])
(defalias 'rcirc-insert-next-input #[(arg) "`X\205 d|\210	S\302\303!c\207" [rcirc-prompt-end-marker rcirc-input-ring-index rcirc-prev-input-string -1] 2 nil "p"])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\304\207" [current-load-list rcirc-nick-completions default-boundp set-default nil rcirc-nick-completion-start-offset] 3)
#@63 Cycle through nick completions from list of nicks in channel.
(defalias 'rcirc-complete-nick #[nil "	=\203 \306\nA\n@C\"\2028 \212\307\310\311#\203 `T\202  )Z\311\312\f\\`{\313\314\315\316 \"\"\")\n@\211\205S \f\\`|\210\f\\U\205Q \317Pc)\207" [last-command this-command rcirc-nick-completions rcirc-prompt-end-marker rcirc-nick-completion-start-offset completion-ignore-case append re-search-backward " " t all-completions mapcar #[(x) "\301B\207" [x nil] 2] rcirc-channel-nicks rcirc-buffer-process ": " rcirc-target completion] 8 (#$ . 24441) nil])
#@52 Set the decode coding system used in this channel.
(defalias 'set-rcirc-decode-coding-system #[(coding-system) "\211\207" [coding-system rcirc-decode-coding-system] 2 (#$ . 25019) "zCoding system for incoming messages: "])
#@52 Set the encode coding system used in this channel.
(defalias 'set-rcirc-encode-coding-system #[(coding-system) "\211\207" [coding-system rcirc-encode-coding-system] 2 (#$ . 25250) "zCoding system for outgoing messages: "])
#@24 Keymap for rcirc mode.
(defvar rcirc-mode-map (make-sparse-keymap) (#$ . 25481))
(byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\210\301\330\331#\210\301\332\333#\210\301\334\333#\210\301\335\336#\210\301\337\340#\210\301\341\342#\210\301\343\344#\210\301\345\346#\210\301\347\350#\210\301\351\352#\210\301\353\354#\210\301\355\356#\207" [rcirc-mode-map define-key "" rcirc-send-input [134217840] rcirc-insert-prev-input [134217838] rcirc-insert-next-input "	" rcirc-complete-nick "" rcirc-browse-url "" rcirc-edit-multiline "\n" rcirc-cmd-join "" rcirc-cmd-kick "\f" rcirc-toggle-low-priority "" rcirc-cmd-mode "" rcirc-cmd-msg "" rcirc-cmd-nick "" rcirc-omit-mode [134217839] "" rcirc-cmd-part "" rcirc-cmd-query "" rcirc-cmd-topic "" rcirc-cmd-names "" rcirc-cmd-whois "" rcirc-cmd-quit "	" rcirc-toggle-ignore-buffer-activity "" rcirc-switch-to-server-buffer "" rcirc-jump-to-first-unread-line] 4)
#@48 Keymap used for browsing URLs in `rcirc-mode'.
(defvar rcirc-browse-url-map (make-sparse-keymap) (#$ . 26594))
(byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\207" [rcirc-browse-url-map define-key "" rcirc-browse-url-at-point [mouse-2] rcirc-browse-url-at-mouse [follow-link] mouse-face] 4)
#@60 Generated abbreviation to use to indicate buffer activity.
(defvar rcirc-short-buffer-name nil (#$ . 26907))
#@40 Hook run when setting up rcirc buffer.
(defvar rcirc-mode-hook nil (#$ . 27022))
(byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list rcirc-last-post-time default-boundp set-default nil] 3)
#@108 Alist of lines to log to disk when `rcirc-log-flag' is non-nil.
Each element looks like (FILENAME . TEXT).
(defvar rcirc-log-alist nil (#$ . 27247))
#@123 The current number of responses printed in this channel.
This number is independent of the number of lines in the buffer.
(defvar rcirc-current-line 0 (#$ . 27403))
#@56 Major mode for IRC channel buffers.

\{rcirc-mode-map}
(defalias 'rcirc-mode #[(process target) "\306 \210\307!\210\310\311\312\313\305!\210\314\f!\313\315!\210\3165!\313\317!\2106\313\320!\210\312\313\321!\210\322 \313\323!\210\324\313\325!\210\312\313\326!\210\327\313\330!\210\312\313\331!\210\3327\3128\333 9\3349\335\336\337\340\":\341\342:\")#\210\313\343!\210\313\344!\210;\312<\211=\203=@\211<@:\203\233 <\211>@@)\202\236 <@<@:\203\260 <\211>@A)\202\261 \345?@\346@6\206\276 \345\"\203\373 \346?\3475!\"\203\373 <A:\203\337 <\211>A@)\202\342 <A#<A:\203\366 <\211>AA)\202\371 <A$*=A\211=\204\205 *\313\350!\210\351 \211(d\312\223\210\313\352!\210\351 \211*d\312\223\210\353 \210*b\210\313\354!\210\351 \211,\312\211\223\210\355\356\357\312\332$\210\355\360\361\312\332$\2106\203_pAr\3165!q\2106ABBBB*\362 \210\363\364!\207" [rcirc-mode-map mode-name major-mode mode-line-process rcirc-input-ring-size rcirc-input-ring kill-all-local-variables use-local-map "rcirc" rcirc-mode nil make-local-variable make-ring rcirc-server-buffer process-buffer rcirc-target rcirc-topic rcirc-last-post-time current-time fill-paragraph-function rcirc-fill-paragraph rcirc-recent-quit-alist rcirc-current-line 0 rcirc-short-buffer-name rcirc-urls t make-display-table set-display-table-slot 4 make-glyph-code 46 font-lock-keyword-face make-vector 3 rcirc-decode-coding-system rcirc-encode-coding-system "" string-match rcirc-server-name rcirc-prompt-start-marker make-marker rcirc-prompt-end-marker rcirc-update-prompt overlay-arrow-position add-hook change-major-mode-hook rcirc-change-major-mode-hook kill-buffer-hook rcirc-kill-buffer-hook rcirc-update-short-buffer-names run-hooks rcirc-mode-hook process target use-hard-newlines buffer-invisibility-spec buffer-display-table glyph rcirc-coding-system-alist i #1=#:--cl-dolist-temp-- x serv chan buffer rcirc-buffer-alist] 7 (#$ . 27574)])
#@103 Reset the prompt string in the current buffer.

If ALL is non-nil, update prompts in all IRC buffers.
(defalias 'rcirc-update-prompt #[(&optional all) "\203\n \306\307\310 \"\207\311	\206 \312\306\313\314\315 B\316r\fq\210)B\317\206' \312BE\"\210\212|\210b\210`\320\n!\210\321\223\210\322Z!?\205a \323\324\301\325\311\326\311\327\311\330\311\257\n#,\207" [all rcirc-prompt prompt inhibit-read-only rcirc-server-buffer rcirc-server-name mapc #[(process) "\302\303r\304!q\210\305\306	\")\"\207" [process rcirc-buffer-alist mapc #[(buffer) "rq\210\301 )\207" [buffer rcirc-update-prompt] 1] process-buffer mapcar cdr] 5] rcirc-process-list t "" #[(rep) "\302@A	#\211\207" [rep prompt replace-regexp-in-string] 4] "%n" rcirc-buffer-nick "%s" "%t" insert-before-markers nil zerop add-text-properties face read-only field front-sticky rear-nonsticky rcirc-target rcirc-prompt-start-marker rcirc-prompt-end-marker start] 13 (#$ . 29536)])
#@66 Set OPTION to VALUE and do updates after a customization change.
(defalias 'rcirc-set-changed #[(option value) "\302	\"\210\303=\203 \304\305!\207\306\307\"\207" [option value set-default rcirc-prompt rcirc-update-prompt all error "Bad option %s"] 3 (#$ . 30506)])
#@39 Return t if TARGET is a channel name.
(defalias 'rcirc-channel-p #[(target) "\205 \301G!?\205 \302H\303=\206 \302H\304=\207" [target zerop 0 35 38] 2 (#$ . 30781)])
#@48 Part the channel when killing an rcirc buffer.
(defalias 'rcirc-kill-buffer-hook #[nil "\301=\205	 \302\303!\207" [major-mode rcirc-mode rcirc-clean-up-buffer "Killed buffer"] 2 (#$ . 30959)])
#@48 Part the channel when changing the major-mode.
(defalias 'rcirc-change-major-mode-hook #[nil "\300\301!\207" [rcirc-clean-up-buffer "Changed major mode"] 2 (#$ . 31159)])
(defalias 'rcirc-clean-up-buffer #[(reason) "p\305!\210\306 \203@ \307\306 !\310=\203@ r	q\210\311\n\")\312 \210\313!\2034 \314\306 \315\316\fR\"\210\202@ \203@ \317\306 \320 #\210\321\211)\207" [buffer rcirc-server-buffer rcirc-buffer-alist rcirc-target reason rcirc-clear-activity rcirc-buffer-process process-status open rassq-delete-all rcirc-update-short-buffer-names rcirc-channel-p rcirc-send-string "PART " " :" rcirc-remove-nick-channel rcirc-buffer-nick nil] 6])
#@107 Return a buffer name based on PROCESS and TARGET.
This is used for the initial name given to IRC buffers.
(defalias 'rcirc-generate-new-buffer-name #[(process target) "\302\203 \303\304	!Q\202 \305\304	!\305Q!\207" [target process substring-no-properties "@" process-name "*"] 5 (#$ . 31819)])
#@190 Return the buffer associated with the PROCESS and TARGET.

If optional argument SERVER is non-nil, return the server buffer
if there is no existing buffer for TARGET, otherwise return nil.
(defalias 'rcirc-get-buffer #[(process target &optional server) "r\305!q\210	\204 p\202 \306	\n\307#A\211\206 \f\205 p))\207" [process target rcirc-buffer-alist buffer server process-buffer assoc-string t] 5 (#$ . 32124)])
#@98 Return the buffer associated with the PROCESS and TARGET.
Create the buffer if it doesn't exist.
(defalias 'rcirc-get-buffer-create #[(process target) "\306	\"\211\203 \307\n!\203 r\nq\210\204 	\n)\202@ r\310!q\210\311\312	\"!r\fq\210\313	\"\210\314\315!	$\210)\f*)\207" [process target buffer rcirc-target new-buffer rcirc-current-line rcirc-get-buffer buffer-live-p process-buffer get-buffer-create rcirc-generate-new-buffer-name rcirc-mode rcirc-put-nick-channel rcirc-nick] 6 (#$ . 32548)])
#@58 Send input to target associated with the current buffer.
(defalias 'rcirc-send-input #[nil "`W\2038 \306y\210`e=\203 `\202# \307`S\310\"\203 `\202# \311`\310\"\312`T\310\"db\210\313\314\315\316\n	\"#c*\207db\210`Z\306\232?\205z `\317 =\203O \320\321!\210\316`\"\322\323\"\324\211\203m @\325\f!\210A\211\204_ *\212\326\"\210\306\211*\207" [rcirc-prompt-end-marker end start input line #1=#:--cl-dolist-temp-- 0 get-text-property hard previous-single-property-change next-single-property-change replace-regexp-in-string "\n\\s-+" " " buffer-substring-no-properties point-at-bol delete-char -1 split-string "\n" nil rcirc-process-input-line ring-insert rcirc-input-ring rcirc-input-ring-index] 6 (#$ . 33063) nil])
(defalias 'rcirc-fill-paragraph #[(&optional arg) "`V\205 \214d}\210	\303ed\"*\207" [rcirc-prompt-end-marker rcirc-max-message-length fill-column fill-region] 3 nil "p"])
(defalias 'rcirc-process-input-line #[(line) "\301\302\"\203 \303\304\305\"\304\306\"#\207\307!\207" [line string-match "^/\\([^ ]+\\) ?\\(.*\\)$" rcirc-process-command match-string 1 2 rcirc-process-message] 5])
(defalias 'rcirc-process-message #[(line) "\204 \304\305!\207	`|\210\306\307 \n#\210\310 \211\207" [rcirc-target rcirc-prompt-end-marker line rcirc-last-post-time message "Not joined (no target)" rcirc-send-message rcirc-buffer-process current-time] 4])
(defalias 'rcirc-process-command #[(command args line) "\306H\307=\203 \310	\311\312O!\207\313\314P!\315 \316 \210rpq\210\f`|\210\317\230\2036 \320\n\321 \322%\210\202? \320\n\321 \323	%\210\f`\312\223\210\324!\203S \n#\202[ \325\n\326Q\"+\207" [command line process fun rcirc-prompt-end-marker rcirc-target 0 47 rcirc-process-message 1 nil intern-soft "rcirc-cmd-" rcirc-buffer-process newline "me" rcirc-print rcirc-buffer-nick "ACTION" "COMMAND" fboundp rcirc-send-string " :" args] 6])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\304\207" [current-load-list rcirc-parent-buffer default-boundp set-default nil rcirc-window-configuration] 3)
#@42 Move current edit to a dedicated buffer.
(defalias 'rcirc-edit-multiline #[nil "`ZTdb\210\306`\"\307 `|\210\310 \311\312\n\313Q!\210 \210\314\315!\210\nc\210	\316V\2034 	b\210\317\320\n\"+\207" [rcirc-prompt-end-marker pos parent text rcirc-window-configuration rcirc-multiline-major-mode buffer-substring-no-properties buffer-name current-window-configuration pop-to-buffer "*multiline " "*" rcirc-multiline-minor-mode 1 0 message "Type C-c C-c to return text to %s, or C-c C-k to cancel" rcirc-parent-buffer] 4 (#$ . 35164) nil])
#@37 Keymap for multiline mode in rcirc.
(defvar rcirc-multiline-minor-mode-map (make-sparse-keymap) (#$ . 35713))
(byte-code "\301\302\303#\210\301\304\303#\210\301\305\306#\210\301\307\306#\207" [rcirc-multiline-minor-mode-map define-key "" rcirc-multiline-minor-submit "" "" rcirc-multiline-minor-cancel ""] 4)
#@121 Non-nil if Rcirc-Multiline minor mode is enabled.
Use the command `rcirc-multiline-minor-mode' to change this variable.
(defvar rcirc-multiline-minor-mode nil (#$ . 36042))
(make-variable-buffer-local 'rcirc-multiline-minor-mode)
#@49 Minor mode for editing multiple lines in rcirc.
(defalias 'rcirc-multiline-minor-mode #[(&optional arg) "\305 	\306=\203 \n?\202( 	\203 \307	!\310V\202( \n\204\" \311\202( \312\313\302\"\210\314\315\316!\210\317\316\320\311#\210\321\322\n\203? \323\202@ \324\"\210\325\326!\203a \305 \203T \305 \232\203a \312\327\n\203^ \330\202_ \331\"\210)\332 \210\n\207" [#1=#:last-message arg rcirc-multiline-minor-mode rcirc-max-message-length fill-column current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil make-local-variable rcirc-parent-buffer put permanent-local run-hooks rcirc-multiline-minor-mode-hook rcirc-multiline-minor-mode-on-hook rcirc-multiline-minor-mode-off-hook called-interactively-p any "Rcirc-Multiline minor mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 36278) (list (or current-prefix-arg 'toggle))])
(add-minor-mode 'rcirc-multiline-minor-mode " rcirc-mline" rcirc-multiline-minor-mode-map)
#@48 Send the text in buffer back to parent buffer.
(defalias 'rcirc-multiline-minor-submit #[nil "\306ed\"\210ed{p`q\210db\210\nc\210\307	!\210\310\f!\210S\\b+\207" [pos buffer text rcirc-parent-buffer rcirc-window-configuration rcirc-prompt-end-marker untabify kill-buffer set-window-configuration] 3 (#$ . 37269) nil])
#@28 Cancel the multiline edit.
(defalias 'rcirc-multiline-minor-cancel #[nil "\301p!\210\302!\207" [rcirc-window-configuration kill-buffer set-window-configuration] 2 (#$ . 37598) nil])
#@77 Return a buffer for PROCESS, either the one selected or the process buffer.
(defalias 'rcirc-any-buffer #[(process) "\203 \304	!\207\305\306 !\211\203' r\nq\210\307=\205 \310 	=)\203' \n\202* \304	!)\207" [rcirc-always-use-server-buffer-flag process buffer major-mode process-buffer window-buffer selected-window rcirc-mode rcirc-buffer-process] 3 (#$ . 37787)])
#@825 An alist of formats used for printing responses.
The format is looked up using the response-type as a key;
if no match is found, the default entry (with a key of `t') is used.

The entry's value part should be a string, which is inserted with
the of the following escape sequences replaced by the described values:

  %m        The message text
  %n        The sender's nick
  %N        The sender's nick (with face `rcirc-my-nick' or `rcirc-other-nick')
  %r        The response-type
  %t        The target
  %fw       Following text uses the face `font-lock-warning-face'
  %fp       Following text uses the face `rcirc-server-prefix'
  %fs       Following text uses the face `rcirc-server'
  %f[FACE]  Following text uses the face FACE
  %f-       Following text uses the default face
  %%        A literal `%' character
(custom-declare-variable 'rcirc-response-formats ''(("PRIVMSG" . "<%N> %m") ("NOTICE" . "-%N- %m") ("ACTION" . "[%N %m]") ("COMMAND" . "%m") ("ERROR" . "%fw!!! %m") (t . "%fp*** %fs%n %r %m")) '(#$ . 38162) :type '(alist :key-type (choice (string :tag "Type") (const :tag "Default" t)) :value-type string) :group 'rcirc)
#@67 Responses which will be hidden when `rcirc-omit-mode' is enabled.
(custom-declare-variable 'rcirc-omit-responses ''("JOIN" "PART" "QUIT" "NICK") '(#$ . 39313) :type '(repeat string) :group 'rcirc)
#@185 Return a nicely-formatted response string, incorporating TEXT
(and perhaps other arguments).  The specific formatting used
is found by looking up RESPONSE in `rcirc-response-formats'.
(defalias 'rcirc-format-response-string #[(process sender response target text) "\306\307!rq\210\310\216\311	\n\"A\206 \312\n\236Ac\210eb\210e\203( \313\f!\230\203, \314\202- \3154\316\317\315\312#\203,\3204\321\224#\210\321\2244\322\323\324!\321H\2115\325=\203\202 \326\323\327!!\2116\330=\203e \331\202| 6\332=\203p \333\202| 6\334=\203{ \335\202| \315)\314\2025\336=\203\215 \2025\337=\203\351 \340\f!7\341 8\342\216\343 p9:\344\216\345;!\210\346\2117\230\203\272 \347\202\343 <\203\316 \350\351<\352\"\"\203\316 \353\202\343 =\203\342 \350\351=\352\"\"\203\342 \354\202\343 \355\".\2025\356=\203\372 \357>\360>#\2025\361=\203	\2025\362=\203?\206\314\202\363\323\321!P)\312\211\315\321%\210\320\321\224\321\225#\210\2022 \3204\321\224#\210+ed{+\207" [#1=#:temp-buffer response rcirc-response-formats sender process face generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) assoc t rcirc-server-name "" nil re-search-forward "%\\(\\(f\\(.\\)\\)\\|\\(.\\)\\)" rcirc-add-face 0 replace-match match-string 1 102 string-to-char 3 119 font-lock-warning-face 112 rcirc-server-prefix 115 rcirc-server 110 78 rcirc-nick match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#2=#:buffer #3=#:table set-syntax-table] 2)) set-syntax-table rcirc-facify rcirc-my-nick string-match regexp-opt words rcirc-bright-nick rcirc-dim-nick rcirc-other-nick 109 propertize rcirc-text 114 116 "UNKNOWN CODE:" start #4=#:--cl-var-- #5=#:--cl-var-- my-nick save-match-data-internal #2# #3# rcirc-nick-syntax-table rcirc-bright-nicks rcirc-dim-nicks text target] 8 (#$ . 39517)])
#@47 Return a buffer to print the server response.
(defalias 'rcirc-target-buffer #[(process sender response target text) "\305!\203\f \306\307\310C\"\210r\311	!q\210\204 \312	!\202Q \313!\204G \n\314\230\204. \n\315\230\203? \316	\f\230\203: \202; \"\202Q \317	\320#\202Q \317	\"\206Q \312	!)\207" [target process response sender rcirc-nick bufferp signal cl-assertion-failed (not (bufferp target)) process-buffer rcirc-any-buffer rcirc-channel-p "PRIVMSG" "ACTION" rcirc-get-buffer-create rcirc-get-buffer t] 4 (#$ . 41479)])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305\301!\210\306B\302\306!\204\" \303\306\304\"\210\305\306!\207" [current-load-list rcirc-activity-types default-boundp set-default nil make-variable-buffer-local rcirc-last-sender] 3)
#@33 Directory to keep IRC logfiles.
(custom-declare-variable 'rcirc-log-directory '"~/.emacs.d/rcirc-log" '(#$ . 42258) :type 'directory :group 'rcirc)
#@85 Non-nil means log IRC activity to disk.
Logfiles are kept in `rcirc-log-directory'.
(custom-declare-variable 'rcirc-log-flag 'nil '(#$ . 42412) :type 'boolean :group 'rcirc)
#@92 Number of lines since last activity from a nick before `rcirc-omit-responses' are omitted.
(custom-declare-variable 'rcirc-omit-threshold '100 '(#$ . 42592) :type 'integer :group 'rcirc)
#@96 Return the line number where NICK left TARGET.
Returns nil if the information is not recorded.
(defalias 'rcirc-last-quit-line #[(process nick target) "\305	\"\211\205 \306r\nq\210\f)\"A)\207" [process target chanbuf nick rcirc-recent-quit-alist rcirc-get-buffer assoc-string] 4 (#$ . 42785)])
#@61 Return the line from the last activity from NICK in TARGET.
(defalias 'rcirc-last-line #[(process nick target) "\306	\"\307	\310r\fq\210)\"\311#A\206 \312	#\211\205# *\207" [process target chanbuf nick rcirc-server-buffer rcirc-nick-table rcirc-get-buffer assoc-string gethash t rcirc-last-quit-line line] 6 (#$ . 43089)])
#@64 Return the number of lines since activity from NICK in TARGET.
(defalias 'rcirc-elapsed-lines #[(process nick target) "\305	\n#\211\205 \306V\205 \fZ)\207" [process nick target last-activity-line rcirc-current-line rcirc-last-line 0] 5 (#$ . 43429)])
#@247 List of functions used to manipulate text before it is printed.

Each function takes two arguments, SENDER, and RESPONSE.  The
buffer is narrowed with the text to be printed and the point is
at the beginning of the `rcirc-text' propertized text.
(defvar rcirc-markup-text-functions '(rcirc-markup-attributes rcirc-markup-my-nick rcirc-markup-urls rcirc-markup-keywords rcirc-markup-bright-nicks) (#$ . 43693))
#@129 Print TEXT in the buffer associated with TARGET.
Format based on SENDER and RESPONSE.  If ACTIVITY is non-nil,
record activity.
(defalias 'rcirc-print #[(process sender response target text &optional activity) "\204 \306	\n\235\204( \307 p\310\216\311!\210\312\313\"\205\" \314\315\"+\n\235\205/ 	\3165!\230??\205\356\3175	67%8\3209r8q\210`:U\321 \322;!<=>	\3165!\230\204\204 \323?\"\322@!\204\204 \324p!\204\204 6A\235\204\204 @\322;!\325\223\210;b\210\326;\320\"\210\326:\320\"\210`B\3275	6\325%\330\331\332\320#\261\210\333<\334<\335\"\206\265 :S\"\210\212\214B;}\210\334B\335\"\206\311 `b\210\336 \203\212\337	6\"\210)C\325D\211E\203\372 E@D\212D	6\"\210)EA\211E\204\343 *F\203\212\340	6\"\210)G\203\341ed\342#\210)\3435	7#H\3165!	\230\204I6A\235\203IH\203;IHW\203I\344BS;S\345\346$\210\202NJTJ+\326;\325\"\210\326:\325\"\210\212K\203uK\347V\203uK[y\347U\203ue`|\210)\350\351\325\320#\210>\203\206:\202\210=b\210L\203\225\350\352\325\320#\210\353 \210\354 \210+M\203\315N\204\315O\203\300	\203\300\312\355O!	\"\203\300\3567!\204\315\357p\356P!?\205\313\360\"\210Q\203\335\3615	67%\210\362\347!\210\363\3645	67&+\207" [text sender rcirc-ignore-list #1=#:buffer #2=#:table rcirc-nick-syntax-table "" syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table string-match "^\\([^/]\\w*\\)[:,]" match-string 1 rcirc-nick rcirc-target-buffer t point-marker marker-position decode-coding-string get-buffer-window nil set-marker-insertion-type rcirc-format-response-string propertize "\n" hard fill-region next-single-property-change rcirc-text rcirc-buffer-process rcirc-markup-timestamp rcirc-markup-fill add-text-properties (read-only t front-sticky t) rcirc-elapsed-lines put-text-property invisible rcirc-omit 0 walk-windows #[(w) "\302 =?\205 p\303!=\205 \304!	Y\205 \305d\"\207" [w rcirc-prompt-end-marker selected-window window-buffer window-point set-window-point] 3] #[(w) "\304!p=\205: r\304!q\210	\305=\2059 \306 \307\310\311 \"r\312\216\313\314\"\210\315\316 \317\320 \321 \"\322#\323X\2058 \324\325!,)\207" [w major-mode save-selected-window-alist save-selected-window-window window-buffer rcirc-mode selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030 \n@\306	@!\203) \307	\211A@)!\203) \310	@	\211A@)\311#\210\nA\211\204 *\307\f!\203< \312\f\311\"\210\305\207" [save-selected-window-alist elt #3=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window norecord - window-height count-screen-lines window-point window-start 1 0 recenter -1] 5] buffer-disable-undo buffer-enable-undo regexp-opt rcirc-channel-p rcirc-record-activity nick rcirc-log sit-for run-hook-with-args rcirc-print-hooks process response target buffer inhibit-read-only rcirc-prompt-end-marker rcirc-prompt-start-marker fill-start old-point moving rcirc-decode-coding-system overlay-arrow-position rcirc-omit-responses start rcirc-markup-text-functions fn #4=#:--cl-dolist-temp-- rcirc-fill-flag rcirc-read-only-flag last-activity-lines rcirc-omit-threshold rcirc-current-line rcirc-buffer-maximum-lines rcirc-scroll-show-maximum-output activity rcirc-ignore-buffer-activity-flag rcirc-dim-nicks rcirc-target rcirc-log-flag] 7 (#$ . 44110)])
#@538 A function to generate the filename used by rcirc's logging facility.

It is called with two arguments, PROCESS and TARGET (see
`rcirc-generate-new-buffer-name' for their meaning), and should
return the filename, or nil if no logging is desired for this
session.

If the returned filename is absolute (`file-name-absolute-p'
returns t), then it is used as-is, otherwise the resulting file
is put into `rcirc-log-directory'.

The filename is then cleaned using `convert-standard-filename' to
guarantee valid filenames for the current OS.
(custom-declare-variable 'rcirc-log-filename-function ''rcirc-generate-new-buffer-name '(#$ . 47587) :group 'rcirc :type 'function)
#@58 Record line in `rcirc-log', to be later written to disk.
(defalias 'rcirc-log #[(process sender response target text) "	\n\"\211\205: \306\f\"\307!\310\311	\f\n%!\312Q\211\2031 \211AP\241\2029 B\fB\211*)\207" [rcirc-log-filename-function process target filename rcirc-log-alist rcirc-time-format assoc-string format-time-string substring-no-properties rcirc-format-response-string "\n" sender response text line cell] 10 (#$ . 48262)])
#@164 Flush `rcirc-log-alist' data to disk.

Log data is written to `rcirc-log-directory', except for
log-files with absolute names (see `rcirc-log-filename-function').
(defalias 'rcirc-log-write #[nil "\306\211\203< \n@\307\310	@\"!\311\312\313!\314\"\210\315\316!rq\210\317\216	Ac\210\320ed\314\321%\210-\nA\211\204 *\306\211\207" [rcirc-log-alist cell #1=#:--cl-dolist-temp-- rcirc-log-directory coding-system-for-write filename nil convert-standard-filename expand-file-name utf-8 make-directory file-name-directory t generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) write-region quiet #2#] 7 (#$ . 48726)])
#@51 View logfile corresponding to the current buffer.
(defalias 'rcirc-view-log-file #[nil "\303\304\305 	\"\n\"!\207" [rcirc-log-filename-function rcirc-target rcirc-log-directory find-file-other-window expand-file-name rcirc-buffer-process] 5 (#$ . 49428) nil])
#@16 Join CHANNELS.
(defalias 'rcirc-join-channels #[(process channels) "\300\213\207" [((byte-code "\304\211\203 \n@r\305!q\210\306	\"\210)\nA\211\204 *\304\207" [channels channel #1=#:--cl-dolist-temp-- process nil process-buffer rcirc-cmd-join] 4))] 1 (#$ . 49695)])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list rcirc-nick-prefix-chars default-boundp set-default "~&@%+"] 3)
#@55 Return the nick from USER.  Remove any non-nick junk.
(defalias 'rcirc-user-nick #[(user) "\303 \304\216\305\306	\307Q\n\206 \310\"\203 \311\312\n\"\202 \n*\207" [save-match-data-internal rcirc-nick-prefix-chars user match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "^[" "]?\\([^! ]+\\)!?" "" match-string 1] 4 (#$ . 50119)])
#@35 Return list of channels for NICK.
(defalias 'rcirc-nick-channels #[(process nick) "r\303!q\210\304\305\306	\n\"\")\207" [process nick rcirc-nick-table process-buffer mapcar #[(x) "@\207" [x] 1] gethash] 5 (#$ . 50516)])
#@169 Add CHANNEL to list associated with NICK.
Update the associated linestamp if LINE is non-nil.

If the record doesn't exist, and LINE is nil, set the linestamp
to zero.
(defalias 'rcirc-put-nick-channel #[(process nick channel &optional line) "\306!r\307	!q\210\310\n\"\311\f\312#\211\203% \2053 \241\2023 \313\f\206. \314BB\n#,\207" [nick process rcirc-nick-table chans channel record rcirc-user-nick process-buffer gethash assoc-string t puthash 0 line] 5 (#$ . 50745)])
#@25 Remove NICK from table.
(defalias 'rcirc-nick-remove #[(process nick) "r\303!q\210\304	\n\")\207" [process nick rcirc-nick-table process-buffer remhash] 3 (#$ . 51238)])
#@52 Remove the CHANNEL from list associated with NICK.
(defalias 'rcirc-remove-nick-channel #[(process nick channel) "r\306!q\210\307	\n\"\310\f\311#\211\205 \312\240\210\313\312\")\211\203- \314	\n#\2021 \315	\n\"+\207" [process nick rcirc-nick-table chans channel record process-buffer gethash assoc-string t delete assq-delete-all puthash remhash newchans] 5 (#$ . 51415)])
#@74 Return the list of nicks associated with TARGET sorted by last activity.
(defalias 'rcirc-channel-nicks #[(process target) "\205\" \304!\203  r\305	!q\210\306\307\310\"\210\311\312\313\n\314\"\"*\207C\207" [target process nicks rcirc-nick-table rcirc-channel-p process-buffer nil maphash #[(k v) "\305	\306#\211\205 \nAB\fB\211)\207" [target v record k nicks assoc-string t] 5] mapcar #[(x) "@\207" [x] 1] sort #[(x y) "A\206 \304	A\206\f \304\nW*\207" [x y ly lx 0] 2]] 5 (#$ . 51805)])
#@88 Remove NICK from `rcirc-ignore-list'
if NICK is also on `rcirc-ignore-list-automatic'.
(defalias 'rcirc-ignore-update-automatic #[(nick) "	\235\205 \303	\"\303\n\"\211\207" [nick rcirc-ignore-list-automatic rcirc-ignore-list delete] 3 (#$ . 52315)])
#@36 Keymap for rcirc track minor mode.
(defvar rcirc-track-minor-mode-map (make-sparse-keymap) (#$ . 52577))
(byte-code "\301\302\303#\210\301\304\303#\207" [rcirc-track-minor-mode-map define-key " " rcirc-next-active-buffer [3 67108896]] 4)
#@287 Non-nil if Rcirc-Track minor mode is enabled.
See the command `rcirc-track-minor-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `rcirc-track-minor-mode'.
(custom-declare-variable 'rcirc-track-minor-mode 'nil '(#$ . 52825) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'rcirc :type 'boolean)
#@59 Global minor mode for tracking activity in rcirc buffers.
(defalias 'rcirc-track-minor-mode #[(&optional arg) "\304 	\305=\203 \n?\202( 	\203 \306	!\307V\202( \n\204\" \310\202( \311\312\302\"\210\313\204/ \314\n\203F \315>\204> \316\317\"\320\321\322\"\210\202P \323\315\"\324\321\322\"\210\325\326\n\203Z \327\202[ \330\"\210\331\332!\203\200 \333\302!\210\304 \203s \304 \232\203\200 \311\334\n\203} \335\202~ \336\"\210)\337 \210\n\207" [#1=#:last-message arg rcirc-track-minor-mode global-mode-string current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil ("") rcirc-activity-string append (rcirc-activity-string) add-hook window-configuration-change-hook rcirc-window-configuration-change delete remove-hook run-hooks rcirc-track-minor-mode-hook rcirc-track-minor-mode-on-hook rcirc-track-minor-mode-off-hook called-interactively-p any customize-mark-as-set "Rcirc-Track minor mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 53282) (list (or current-prefix-arg 'toggle))])
(byte-code "\302\303\304#\210\305	\236\204 \306	B\307	\236\204 \310	B\311	\236\204$ \312	B\302\207" [rcirc-track-minor-mode-map minor-mode-alist add-minor-mode rcirc-track-minor-mode "" rcirc-ignore-buffer-activity-flag (rcirc-ignore-buffer-activity-flag " Ignore") rcirc-low-priority-flag (rcirc-low-priority-flag " LowPri") rcirc-omit-mode (rcirc-omit-mode " Omit")] 4)
#@58 Toggle the value of `rcirc-ignore-buffer-activity-flag'.
(defalias 'rcirc-toggle-ignore-buffer-activity #[nil "?\301\203\f \302\202 \303!\210\304 \207" [rcirc-ignore-buffer-activity-flag message "Ignore activity in this buffer" "Notice activity in this buffer" force-mode-line-update] 2 (#$ . 54724) nil])
#@48 Toggle the value of `rcirc-low-priority-flag'.
(defalias 'rcirc-toggle-low-priority #[nil "?\301\203\f \302\202 \303!\210\304 \207" [rcirc-low-priority-flag message "Activity in this buffer is low priority" "Activity in this buffer is normal priority" force-mode-line-update] 2 (#$ . 55040) nil])
#@162 Toggle the Rcirc-Omit mode.
If enabled, "uninteresting" lines are not shown.
Uninteresting lines are those whose responses are listed in
`rcirc-omit-responses'.
(defalias 'rcirc-omit-mode #[nil "?\211\203 \302\303!\210\304\305!\210\202 \306\307!\210\304\310!\210\311`	V\205\" \312!\207" [rcirc-omit-mode rcirc-prompt-start-marker add-to-invisibility-spec (rcirc-omit) message "Rcirc-Omit mode enabled" remove-from-invisibility-spec (rcirc-omit) "Rcirc-Omit mode disabled" recenter -1] 4 (#$ . 55348) nil])
#@69 Switch to the server buffer associated with current channel buffer.
(defalias 'rcirc-switch-to-server-buffer #[nil "\301!\207" [rcirc-server-buffer switch-to-buffer] 2 (#$ . 55864) nil])
#@57 Move the point to the first unread line in this buffer.
(defalias 'rcirc-jump-to-first-unread-line #[nil "\301!\203	 b\207\302\303!\207" [overlay-arrow-position marker-position message "No unread messages"] 2 (#$ . 56058) nil])
(defalias 'rcirc-non-irc-buffer #[nil "\303 \304\211\2031 \2041 r	@q\210\n\305=\204) \306 \307H\310U\204) \311p!\204) p)	A\211\204	 *\207" [buffer buflist major-mode buffer-list nil rcirc-mode buffer-name 0 32 get-buffer-window] 3])
#@115 Switch to the next rcirc buffer with activity.
With prefix ARG, go to the next low priority buffer with activity.
(defalias 'rcirc-next-active-buffer #[(arg) "\306!\211@	A\f\204 \204 \f\2033 \n\2033 \307\f\203# \n\202$ @!\210`V\205Q \310\311!\202Q \312=\203A \307\313 !\202Q \314\315\316\n\205O \317\320\321 !\322QP\"+\207" [rcirc-activity pair lopri hipri arg rcirc-prompt-start-marker rcirc-split-activity switch-to-buffer recenter -1 rcirc-mode rcirc-non-irc-buffer message "%s" "No IRC activity." "  Type C-u " key-description this-command-keys " for low priority activity." major-mode] 7 (#$ . 56534) "P"])
#@215 Hook to be run when there is channel activity.

Functions are called with a single argument, the buffer with the
activity.  Only run if the buffer is not visible and
`rcirc-ignore-buffer-activity-flag' is non-nil.
(defvar rcirc-activity-hooks nil (#$ . 57164))
#@35 Record BUFFER activity with TYPE.
(defalias 'rcirc-record-activity #[(buffer &optional type) "rq\210	\n\306p\307\"\204< \310\311\301p\"\312\"\313\n\"\203' \n\210\202, \nB)	\f\232\2039 \235\204< \314 \210+\315\316\"\207" [buffer rcirc-activity rcirc-activity-types old-types old-activity type get-buffer-window t sort add-to-list #[(b1 b2) "rq\210	)r\nq\210	)\305\f\"*\207" [b1 rcirc-last-post-time b2 t2 t1 time-less-p] 3] memql rcirc-update-activity-string run-hook-with-args rcirc-activity-hooks x] 4 (#$ . 57431)])
#@28 Clear the BUFFER activity.
(defalias 'rcirc-clear-activity #[(buffer) "\303	\"rq\210\304\211)\207" [buffer rcirc-activity rcirc-activity-types remove nil] 3 (#$ . 57974)])
#@48 Erase the last read message arrow from BUFFER.
(defalias 'rcirc-clear-unread #[(buffer) "\302!\205 rq\210	\303\211\223)\207" [buffer overlay-arrow-position buffer-live-p nil] 3 (#$ . 58156)])
#@62 Return a cons cell with ACTIVITY split into (lopri . hipri).
(defalias 'rcirc-split-activity #[(activity) "\306\211\n\306\211\2035 \f@rq\210\203' \307\n\235\204' \310\301\311#\210\202- \310\300\311#\210)\fA\211\204\f *	*B\207" [hipri lopri rcirc-activity buf #1=#:--cl-dolist-temp-- rcirc-low-priority-flag nil nick add-to-list t rcirc-activity-types] 5 (#$ . 58357)])
#@51 Hook run whenever the activity string is updated.
(defvar rcirc-update-activity-string-hook nil (#$ . 58744))
#@26 Update mode-line string.
(defalias 'rcirc-update-activity-string #[nil "\305!\211@	A\211\204 \n\2037 \205 \306\304!\205# \n\205# \307\n\205- \310\304\n!\311Q\2052 \312\260\202A \313 \203@ \314\202A \314\315\316!+\207" [rcirc-activity pair lopri hipri rcirc-activity-string rcirc-split-activity "[" "," "(" ")" "]" rcirc-process-list "[]" run-hooks rcirc-update-activity-string-hook] 7 (#$ . 58860)])
(defalias 'rcirc-activity-string #[(buffers) "\301\302\303#\207" [buffers mapconcat #[(b) "\305\306!!rq\210\n\307\211\2034 \f@\310\311	G\312=\203# \313\202* \314=\205* \315	$\210\fA\211\204 +	)\207" [b s rcirc-activity-types type #1=#:--cl-dolist-temp-- substring-no-properties rcirc-short-buffer-name nil rcirc-add-face 0 nick rcirc-track-nick keyword rcirc-track-keyword] 6] ","] 4])
#@66 Return a short name for BUFFER to use in the modeline indicator.
(defalias 'rcirc-short-buffer-name #[(buffer) "rq\210	\206\n \302 )\207" [buffer rcirc-short-buffer-name buffer-name] 1 (#$ . 59675)])
#@62 Return a list of the visible buffers that are in rcirc-mode.
(defalias 'rcirc-visible-buffers #[nil "\301\302\303!\210)\207" [acc nil walk-windows #[(w) "r\303!q\210	\304=\205 p\nB\211)\207" [w major-mode acc window-buffer rcirc-mode] 2]] 2 (#$ . 59882)])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list rcirc-visible-buffers default-boundp set-default nil] 3)
(defalias 'rcirc-window-configuration-change #[nil "\300\301 !?\205\f \302\303\304\"\207" [minibuffer-window-active-p minibuffer-window add-hook post-command-hook rcirc-window-configuration-change-1] 3])
(defalias 'rcirc-window-configuration-change-1 #[nil "\n\302 \211\306\211\203\" @\307\f\"\310\f!\210A\211\204 *\306\211\203@ @\311!\210A\211\204- *\307\306\312\313\"\"	\232\204R \314 \210*\315\316\317\"\207" [rcirc-activity old-activity rcirc-visible-buffers hidden-buffers vbuf #1=#:--cl-dolist-temp-- nil delq rcirc-clear-activity rcirc-clear-unread mapcar #[(buf) "\301!\205 \207" [buf buffer-live-p] 2] rcirc-update-activity-string remove-hook post-command-hook rcirc-window-configuration-change-1 hbuf #2=#:--cl-dolist-temp--] 6])
(defalias 'rcirc-update-short-buffer-names #[nil "\304\305\306\307\310 \"\"\311!\312\211\203- \n@\313	A!\203& r	Aq\210	@)\nA\211\204 +\312\207" [bufalist i #1=#:--cl-dolist-temp-- rcirc-short-buffer-name apply append mapcar #[(process) "r\302!q\210	)\207" [process rcirc-buffer-alist process-buffer] 2] rcirc-process-list rcirc-abbreviate nil buffer-live-p] 5])
(defalias 'rcirc-abbreviate #[(pairs) "\301\302\303\304\305!\"\"\207" [pairs apply append mapcar rcirc-rebuild-tree rcirc-make-trees] 6])
(defalias 'rcirc-rebuild-tree #[(tree &optional acc) "\305@!A\306\211\2030 @\211<\203# \307\f\310\311\312\n!\"\"\202) 	\nB\fBA\211\204 *\f)\207" [tree ch x #1=#:--cl-dolist-temp-- acc char-to-string nil append mapcar #[(y) "	@P	AB\207" [ch y] 2] rcirc-rebuild-tree] 7])
(defalias 'rcirc-make-trees #[(pairs) "\302\303\304	\"\210\303\305\")\207" [alist pairs nil mapc #[(pair) ":\203Q @A\306	G!?\205 	\307H\306	G!?\205# 	\310\311O\205+ \236\211\n\203> \n\f\nB\nAB\241\202O \203J \f\nBD\202K \nB\211-\207B\211\207" [pair str data char rest alist zerop 0 1 nil part] 4] #[(x) "<\205* \211A@)<\205* \211AG\301V\203 \302A!\202) \211\211A@)AC\241\241\207" [x 1 rcirc-make-trees] 4]] 3])
#@19 Define a command.
(defalias 'defun-rcirc-command '(macro . #[(command argument docstring interactive-form &rest body) "\305\306\307\310!P!\311	\312\"\n\313\314Q\315\316\fBB\257\207" [command argument docstring interactive-form body defun intern "rcirc-cmd-" symbol-name append (&optional process target) "\n\nNote: If PROCESS or TARGET are nil, the values given" "\nby `rcirc-buffer-process' and `rcirc-target' will be used." let ((process (or process (rcirc-buffer-process))) (target (or target rcirc-target)))] 8 (#$ . 62296)]))
#@146 Send private MESSAGE to TARGET.

Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(defalias 'rcirc-cmd-msg #[(message &optional process target) "\206 \306 	\206 \n\2048 \307\310r\fq\210)\"\211G\311V\205T \312\313\314	\"!\211G\311V\205T \315	#\202T \316\317\"\204E \303\320!\202T \321\322\"\321\323\"\315	#*\207" [process target rcirc-target message rcirc-server-buffer rcirc-nick-table rcirc-buffer-process completing-read "Message nick: " 0 read-string format "Message %s: " rcirc-send-message string-match "\\([^ ]+\\) \\(.+\\)" "Not enough args, or something." match-string 1 2] 5 (#$ . 62837) "i"])
#@150 Open a private chat buffer to NICK.

Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(defalias 'rcirc-cmd-query #[(nick &optional process target) "\206 \305 	\206 \n\306\"\307\f\206 \310\"!\210\f?\205% \311!+\207" [process target rcirc-target nick existing-buffer rcirc-buffer-process rcirc-get-buffer switch-to-buffer rcirc-get-buffer-create rcirc-cmd-whois] 4 (#$ . 63528) (list (completing-read "Query nick: " (with-rcirc-server-buffer rcirc-nick-table)))])
#@128 Join CHANNEL.

Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(defalias 'rcirc-cmd-join #[(channel &optional process target) "\206 \305 	\206 \n\306\307!@\"\310\311P\"\210\312 \313 =?\205( \314\f!+\207" [process target rcirc-target channel buffer rcirc-buffer-process rcirc-get-buffer-create split-string rcirc-send-string "JOIN " selected-window minibuffer-window switch-to-buffer] 4 (#$ . 64072) "sJoin channel: "])
#@128 Part CHANNEL.

Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(defalias 'rcirc-cmd-part #[(channel &optional process target) "\206 \305 	\206 \nG\306V\203 \202 	\307\310\311\fR\"+\207" [process target rcirc-target channel rcirc-id-string rcirc-buffer-process 0 rcirc-send-string "PART " " :"] 6 (#$ . 64572) "sPart channel: "])
#@157 Send a quit message to server with REASON.

Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(defalias 'rcirc-cmd-quit #[(reason &optional process target) "\206 \305 	\206 \n\306\307\310G!\204 \202 \fP\"*\207" [process target rcirc-target reason rcirc-id-string rcirc-buffer-process rcirc-send-string "QUIT :" zerop] 5 (#$ . 64984) "sQuit reason: "])
#@135 Change nick to NICK.

Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(defalias 'rcirc-cmd-nick #[(nick &optional process target) "\206 \304 	\206 \n\204 \305\306\307!\"\310\311P\"*\207" [process target rcirc-target nick rcirc-buffer-process read-string "New nick: " rcirc-nick rcirc-send-string "NICK "] 4 (#$ . 65415) "i"])
#@263 Display list of names in CHANNEL or in current channel if CHANNEL is nil.
If called interactively, prompt for a channel when prefix arg is supplied.

Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(defalias 'rcirc-cmd-names #[(channel &optional process target) "\206 \304 	\206 \n\305\306!\203 \203 \307\310	\"G\311V\203' \202( 	\312\313P\"+\207" [process target rcirc-target channel rcirc-buffer-process called-interactively-p interactive read-string "List names in channel: " 0 rcirc-send-string "NAMES "] 4 (#$ . 65823) "P"])
#@190 List TOPIC for the TARGET channel.
With a prefix arg, prompt for new topic.

Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(defalias 'rcirc-cmd-topic #[(topic &optional process target) "\206 \305 	\206 \n\306\307!\203 \203 \310\311\f\"\312\313	G\314V\205* \315PQ\"*\207" [process target rcirc-target topic rcirc-topic rcirc-buffer-process called-interactively-p interactive read-string "New Topic: " rcirc-send-string "TOPIC " 0 " :"] 6 (#$ . 66438) "P"])
#@158 Request information from server about NICK.

Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(defalias 'rcirc-cmd-whois #[(nick &optional process target) "\206 \304 	\206 \n\305\306P\"*\207" [process target rcirc-target nick rcirc-buffer-process rcirc-send-string "WHOIS "] 4 (#$ . 66979) (list (completing-read "Whois: " (with-rcirc-server-buffer rcirc-nick-table)))])
#@134 Set mode with ARGS.

Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(defalias 'rcirc-cmd-mode #[(args &optional process target) "\206 \304 	\206 \n\305\306P\"*\207" [process target rcirc-target args rcirc-buffer-process rcirc-send-string "MODE "] 4 (#$ . 67427) (list (concat (read-string "Mode nick or channel: ") " " (read-string "Mode: ")))])
#@159 Request information on CHANNELS from server.

Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(defalias 'rcirc-cmd-list #[(channels &optional process target) "\206 \304 	\206 \n\305\306P\"*\207" [process target rcirc-target channels rcirc-buffer-process rcirc-send-string "LIST "] 4 (#$ . 67852) "sList Channels: "])
#@147 Send operator command to server.

Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(defalias 'rcirc-cmd-oper #[(args &optional process target) "\206 \304 	\206 \n\305\306P\"*\207" [process target rcirc-target args rcirc-buffer-process rcirc-send-string "OPER "] 4 (#$ . 68247) "sOper args: "])
#@148 Send MESSAGE literally to server.

Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(defalias 'rcirc-cmd-quote #[(message &optional process target) "\206 \304 	\206 \n\305\"*\207" [process target rcirc-target message rcirc-buffer-process rcirc-send-string] 3 (#$ . 68618) "sServer message: "])
#@146 Kick NICK from current channel.

Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(defalias 'rcirc-cmd-kick #[(arg &optional process target) "\206 \306 	\206 \n\307!\211@\310\311\312\fA\313#Q\314\315	\313R\",\207" [process target rcirc-target arg arglist argstring rcirc-buffer-process split-string " :" mapconcat identity " " rcirc-send-string "KICK "] 7 (#$ . 68989) (list (concat (completing-read "Kick nick: " (rcirc-channel-nicks (rcirc-buffer-process) rcirc-target)) (read-from-minibuffer "Kick reason: ")))])
(defalias 'rcirc-cmd-ctcp #[(args &optional process target) "\304\305\"\203 \306\307\"\306\310\"\311\312\313\n	\226#\"*\207\314\315!\316\317\320%\207" [args request target process string-match "^\\([^ ]+\\)\\s-+\\(.+\\)$" match-string 1 2 rcirc-send-string format "PRIVMSG %s %s" rcirc-print rcirc-nick "ERROR" nil "usage: /ctcp NICK REQUEST"] 6])
(defalias 'rcirc-cmd-me #[(args &optional process target) "\303\304\305	\n#\"\207" [process target args rcirc-send-string format "PRIVMSG %s :ACTION %s"] 6])
(defalias 'rcirc-add-or-remove #[(set &rest elements) "\304\211\203. \n@\211\203' 	\305\230\204' \306	\"\203# \307	\"\202& 	B\nA\211\204 *\207" [elements elt #1=#:--cl-dolist-temp-- set nil "" member-ignore-case delete] 4])
#@329 Manage the ignore list.
Ignore NICK, unignore NICK if already ignored, or list ignored
nicks when no NICK is given.  When listing ignored nicks, the
ones added to the list automatically are marked with an asterisk.

Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(defalias 'rcirc-cmd-ignore #[(nick &optional process target) "\206 \305 	\206 \n\306\307\310\f\311\312##\313\311\314	\315\316\317#%*\207" [process target rcirc-target rcirc-ignore-list nick rcirc-buffer-process apply rcirc-add-or-remove split-string nil t rcirc-print "IGNORE" mapconcat #[(nick) "\211	\235\203 \302\202\f \303P\207" [nick rcirc-ignore-list-automatic "*" ""] 3] " "] 9 (#$ . 70340) "sToggle ignoring of nick: "])
#@143 Manage the bright nick list.

Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(defalias 'rcirc-cmd-bright #[(nick &optional process target) "\206 \305 	\206 \n\306\307\310\f\311\312##\313\311\314	\315\316\317#%*\207" [process target rcirc-target rcirc-bright-nicks nick rcirc-buffer-process apply rcirc-add-or-remove split-string nil t rcirc-print "BRIGHT" mapconcat identity " "] 9 (#$ . 71116) "sToggle emphasis of nick: "])
#@140 Manage the dim nick list.

Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(defalias 'rcirc-cmd-dim #[(nick &optional process target) "\206 \305 	\206 \n\306\307\310\f\311\312##\313\311\314	\315\316\317#%*\207" [process target rcirc-target rcirc-dim-nicks nick rcirc-buffer-process apply rcirc-add-or-remove split-string nil t rcirc-print "DIM" mapconcat identity " "] 9 (#$ . 71623) "sToggle deemphasis of nick: "])
#@237 Manage the keyword list.
Mark KEYWORD, unmark KEYWORD if already marked, or list marked
keywords when no KEYWORD is given.

Note: If PROCESS or TARGET are nil, the values given
by `rcirc-buffer-process' and `rcirc-target' will be used.
(defalias 'rcirc-cmd-keyword #[(keyword &optional process target) "\206 \305 	\206 \n\306\307\310\f\311\312##\313\311\314	\315\316\317#%*\207" [process target rcirc-target rcirc-keywords keyword rcirc-buffer-process apply rcirc-add-or-remove split-string nil t rcirc-print "KEYWORD" mapconcat identity " "] 9 (#$ . 72120) "sToggle highlighting of keyword: "])
#@72 Add face NAME to the face text property of the text from START to END.
(defalias 'rcirc-add-face #[(start end name &optional object) "\205= 	\306\211\211W\205< \307\f\310#\311\f\310$\307\f\310#\235\2046 \312\f\310\nBD$\210\211\202 +\207" [name start prop next pos end nil get-text-property face next-single-property-change add-text-properties object] 7 (#$ . 72731)])
#@51 Return a copy of STRING with FACE property added.
(defalias 'rcirc-facify #[(string face) "\206 \302\303\304G	$\210)\207" [string face "" rcirc-add-face 0] 5 (#$ . 73127)])
#@69 Regexp matching URLs.  Set to nil to disable URL features in rcirc.
(defvar rcirc-url-regexp (byte-code "\302\303\304\305\306\307\"\203- \310\311\312\313	\314\315\313	\314\313	\316\313	\317\320\313	\314\313	\317\321\260*\202. \322\321\260\207" [punct chars "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|" "nntp\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)" "\\(//[-a-z0-9_.]+:[0-9]*\\)?" string-match "[[:digit:]]" "1" "-a-z0-9_=#$@~%&*+\\/[:word:]" "!?:;.," "\\(?:" "[" "]+" "(" "]*)" "]" "\\|" "\\)" "\\([-a-z0-9_=!?#$@~%&*+\\/:;.,]\\|\\w\\)+\\([-a-z0-9_=#$@~%&*+\\/]\\|\\w\\)"] 28) (#$ . 73312))
#@51 Prompt for URL to browse based on URLs in buffer.
(defalias 'rcirc-browse-url #[(&optional arg) "\305\306\"@A\307\310\311\312\211\n\301&\f\"+\207" [rcirc-urls history initial-input completions arg mapcar #[(x) "\301B\207" [x nil] 2] browse-url completing-read "rcirc browse-url: " nil] 8 (#$ . 73934) "P"])
#@36 Send URL at point to `browse-url'.
(defalias 'rcirc-browse-url-at-point #[(point) "\303T\304\"\305\304\"\306\307\n	\"!*\207" [point end beg previous-single-property-change mouse-face next-single-property-change browse-url buffer-substring-no-properties] 4 (#$ . 74256) "d"])
#@42 Send URL at mouse click to `browse-url'.
(defalias 'rcirc-browse-url-at-mouse #[(event) "\211:\203 \3028:\203 \302\202 \3038\202 \304 `\305\306F)r\307	\211@)!q\210\310	\311	8\206D 	A@:\203A 	A@@\202D 	A@)!*\207" [event position 2 1 selected-window (0 . 0) 0 window-buffer rcirc-browse-url-at-point 5] 5 (#$ . 74541) "e"])
(defalias 'rcirc-markup-timestamp #[(sender response) "eb\210\301\302!\303\"c\207" [rcirc-time-format rcirc-facify format-time-string rcirc-timestamp] 3])
(defalias 'rcirc-markup-attributes #[(sender response) "\301\302\303\304#\203K \305\306\224\306\225\307\224f\211\310=\203 \311\202, \312=\203% \313\202, \314=\205, \315)#\210\310\225Sf\316=\204> \310\224\310\225|\210\307\224\307\225|\210\307\224b\210\202  \301\317\303\304#\205\\ \306\224\306\225|\210\202K \207" [#1=#:--cl-var-- re-search-forward "\\([]\\).*?\\(\\1\\|\\)" nil t rcirc-add-face 0 1 2 bold 22 italic 31 underline 15 "+"] 6])
(defalias 'rcirc-markup-my-nick #[(sender response) "\304 p\305\216\306\n!\210\307\310\311\312\313 !!\310Q\314\315#\2057 \316\317\224\317\225\320#\210\321\230\203 \316ed\322#\210\323p\324\"\210\202 +\207" [#1=#:buffer #2=#:table rcirc-nick-syntax-table response syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table re-search-forward "\\b" regexp-quote rcirc-nick rcirc-buffer-process nil t rcirc-add-face 0 rcirc-nick-in-message "PRIVMSG" rcirc-nick-in-message-full-line rcirc-record-activity nick] 5])
(defalias 'rcirc-markup-urls #[(sender response) "\305\306\307#\205) \310\224\310\225\311\n	\312#\210\313\n	\314\315\316F#\210\317\n	\"\fB*\202  \207" [rcirc-url-regexp end start rcirc-browse-url-map rcirc-urls re-search-forward nil t 0 rcirc-add-face rcirc-url add-text-properties mouse-face highlight keymap buffer-substring-no-properties] 7])
(defalias 'rcirc-markup-keywords #[(sender response) "\306\230\205> 	\307\310 !\230?\205> \n\206 \311\312\313\314\315\f\"\"\211\205= \316\317\320\"\313\321#\205= \322\323\224\323\225\324#\210\325p\326\"\210\202\" *\207" [response sender rcirc-target target rcirc-keywords keywords "PRIVMSG" rcirc-nick rcirc-buffer-process "" delq nil mapcar #[(keyword) "\302	\"?\205	 \207" [keyword target string-match] 3] re-search-forward regexp-opt words t rcirc-add-face 0 rcirc-keyword rcirc-record-activity keyword] 6])
(defalias 'rcirc-markup-bright-nicks #[(sender response) "\205, 	\305\230\205, \306 p\307\216\310\f!\210\311\312\313\"\314\315#\205+ \316\317\224\317\225\320#\210\202 +\207" [rcirc-bright-nicks response #1=#:buffer #2=#:table rcirc-nick-syntax-table "NAMES" syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table re-search-forward regexp-opt words nil t rcirc-add-face 0 rcirc-bright-nick] 4])
(defalias 'rcirc-markup-fill #[(sender response) "\305\230?\2052 	\206 \306`\307 Z\310\"\n\311=\203 \311 S\202' \n\203& \n\202' \312Z\313`d\314\315$*\207" [response rcirc-fill-prefix rcirc-fill-column fill-column fill-prefix "372" make-string line-beginning-position 32 frame-width 3 fill-region nil t] 5])
(defalias 'rcirc-handler-001 #[(process sender args text) "\306\307	\n%\210r\310!q\210\311\312!\210	\n@\313 \210\203% \314 \210\315\")\207" [process sender args text rcirc-connecting rcirc-server-name rcirc-handler-generic "001" process-buffer nil rcirc-reschedule-timeout rcirc-update-prompt rcirc-authenticate rcirc-join-channels rcirc-nick rcirc-auto-authenticate-flag rcirc-startup-channels] 6])
(defalias 'rcirc-handler-PRIVMSG #[(process sender args text) "\306@!\203\f @\202 	\211A@)\206 \307\310\311\"\203- \312\f	\313\314\"$\210\2027 \315	\316\f\317&\210r\320\f\317#q\210\321	\f$+\207" [args sender x message target process rcirc-channel-p "" string-match "^\\(.*\\)$" rcirc-handler-CTCP match-string 1 rcirc-print "PRIVMSG" t rcirc-get-buffer rcirc-put-nick-channel rcirc-current-line] 8])
(defalias 'rcirc-handler-NOTICE #[(process sender args text) "@\211A@)\306\307\n\"\203 \310\f\311\312\n\"$\202K \313\f\314\315!\203+ \202G \306\316\n\"\2039 \311\312\n\"\202G \205G \317\f!\230?\205G \n\320&*\207" [args x message target process sender string-match "^\\(.*\\)$" rcirc-handler-CTCP-response match-string 1 rcirc-print "NOTICE" rcirc-channel-p "\\[\\(#[^] ]+\\)\\]" rcirc-server-name t] 8])
(defalias 'rcirc-handler-WALLOPS #[(process sender args text) "\303	\304	\n@\305&\207" [process sender args rcirc-print "WALLOPS" t] 7])
(defalias 'rcirc-handler-JOIN #[(process sender args text) "@r\306\n	\"q\210\307\n	\310\n	#\211\205# \fW\205# \311\n	#)$\210)\312\n\313	\314%\210\315\316 \"\205> \312\n\313	%)\207" [args channel process sender last-activity-lines rcirc-omit-threshold rcirc-get-buffer-create rcirc-put-nick-channel rcirc-elapsed-lines rcirc-last-line rcirc-print "JOIN" "" rcirc-get-buffer rcirc-buffer-process] 9])
(defalias 'rcirc-handler-PART-or-KICK #[(process response channel sender nick args) "\304!\210\305	!\230\204 \306	\n#\210\307	\n#\207\310\311\312	\n\"\"\210\313	\n\"\211\205, \314!)\207" [nick process channel buffer rcirc-ignore-update-automatic rcirc-nick rcirc-maybe-remember-nick-quit rcirc-remove-nick-channel mapc #[(n) "\303	\n#\207" [process n channel rcirc-remove-nick-channel] 4] rcirc-channel-nicks rcirc-get-buffer rcirc-disconnect-buffer] 6])
(defalias 'rcirc-handler-PART #[(process sender args text) "@\211A@)	\306Q\307\f\310	\f%\210\311\312 \f\"\203+ \307\f\310\f\f%\210\313\310	\f\211&+\207" [args channel x reason message process " " rcirc-print "PART" rcirc-get-buffer rcirc-buffer-process rcirc-handler-PART-or-KICK sender] 8])
(defalias 'rcirc-handler-KICK #[(process sender args text) "@\211A@)\211AA)@\306	\306\f\260\307\310	\311&\210\312\313 \"\2038 \307\310%\210\314\310	\f&,\207" [args channel x nick reason message " " rcirc-print "KICK" t rcirc-get-buffer rcirc-buffer-process rcirc-handler-PART-or-KICK process sender] 8])
#@58 Remember NICK as leaving CHANNEL if they recently spoke.
(defalias 'rcirc-maybe-remember-nick-quit #[(process nick channel) "\306	\n#\211\205D \fW\205D \307\n\"\211\205C rq\210\310	\311#\312	\n#\f\211\2038 \f\241\202B 	\fBB\211+))\207" [process nick channel elapsed-lines rcirc-omit-threshold buffer rcirc-elapsed-lines rcirc-get-buffer assoc-string t rcirc-last-line rcirc-recent-quit-alist line record] 6 (#$ . 80580)])
(defalias 'rcirc-handler-QUIT #[(process sender args text) "\302!\210\303\304\305	\"\"\210\306	\"\207" [sender process rcirc-ignore-update-automatic mapc #[(channel) "\304	\305\n\306\307\"%\210\310	\n#\207" [process sender channel args rcirc-print "QUIT" apply concat rcirc-maybe-remember-nick-quit] 8] rcirc-nick-channels rcirc-nick-remove] 5])
(defalias 'rcirc-handler-NICK #[(process sender args text) "\n@\306\f	\"\307	!\210		\235\203 \310\311\"\210\310\312\"\210\313\211\203@ @\314\f\315%\210A\211\204) *\316\f	\"\211\203c rq\210\314\f\315	%\210\317\320\f\"!\210))r\321\f!q\210\322	\"\323	\"\210\324#\210)	\230\205\225 \325\326!\210\205\225 \327 ,\207" [sender old-nick args new-nick process channels rcirc-nick-channels rcirc-ignore-update-automatic add-to-list rcirc-ignore-list rcirc-ignore-list-automatic nil rcirc-print "NICK" rcirc-get-buffer rename-buffer rcirc-generate-new-buffer-name process-buffer gethash remhash puthash rcirc-update-prompt t rcirc-authenticate target #1=#:--cl-dolist-temp-- chat-buffer rcirc-target rcirc-nick-table v rcirc-nick rcirc-auto-authenticate-flag] 8])
(defalias 'rcirc-handler-PING #[(process sender args text) "\302\303	@P\"\207" [process args rcirc-send-string "PONG :"] 4])
(defalias 'rcirc-handler-PONG #[(process sender args text) "\300\207" [nil] 1])
(defalias 'rcirc-handler-TOPIC #[(process sender args text) "\211A@)\306\f\307@\n%\210r\310@\"q\210\n\211*\207" [args x topic process sender rcirc-topic rcirc-print "TOPIC" rcirc-get-buffer] 7])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list rcirc-nick-away-alist default-boundp set-default nil] 3)
#@10 RPL_AWAY
(defalias 'rcirc-handler-301 #[(process sender args text) "\211A@)\306\n\"\211AA)@\f\203  \fA\230?\205< \307	\310\nA\n%\210\f\2035 \f\241\202< \nBB\211+\207" [args x nick rcirc-nick-away-alist rec away-message assoc-string rcirc-handler-generic "AWAY" process text] 7 (#$ . 82733)])
#@11 RPL_TOPIC
(defalias 'rcirc-handler-332 #[(process sender args text) "\305	\211A@)\"\206 \306	\211A@)\"rq\210	\211AA)@\211*\207" [process args x buffer rcirc-topic rcirc-get-buffer rcirc-get-temp-buffer-create] 4 (#$ . 83047)])
#@20 Not in rfc1459.txt
(defalias 'rcirc-handler-333 #[(process sender args text) "\306	\211A@)\"\206 \307	\211A@)\"rq\210	\211AA)@\310\311\312	\211AA)A@!!!\313\314	\211A@)\315\316\f$%,\207" [process args x buffer time setter rcirc-get-buffer rcirc-get-temp-buffer-create current-time-string seconds-to-time string-to-number rcirc-print "TOPIC" format "%s (%s on %s)" sender rcirc-topic] 11 (#$ . 83289)])
#@17 ERR_NOCHANMODES
(defalias 'rcirc-handler-477 #[(process sender args text) "\304	\305\n\211A@)\n\211AA)@%\207" [process sender args x rcirc-print "477"] 7 (#$ . 83714)])
(defalias 'rcirc-handler-MODE #[(process sender args text) "@\306\307A\310#\311\f\312\n\313!\230?\205 \n	%\210\314\315\211AA)\"*\207" [args msg target process sender x mapconcat identity " " rcirc-print "MODE" rcirc-nick mapc #[(nick) "\304	\"\205 \305\n\306	%\207" [process nick sender msg rcirc-get-buffer rcirc-print "MODE"] 6]] 8])
#@47 Return a buffer based on PROCESS and CHANNEL.
(defalias 'rcirc-get-temp-buffer-create #[(process channel) "\303\227\304\305	!R\306\n!)\207" [channel process tmpnam " " "TMP" process-name get-buffer-create] 5 (#$ . 84241)])
#@14 RPL_NAMREPLY
(defalias 'rcirc-handler-353 #[(process sender args text) "\211AA)@\304\305\306\211AA)A@\307\310#\"\210r\311\n\"q\210db\210\312!@\307\261*\207" [args x channel process mapc #[(nick) "\303	\n#\207" [process nick channel rcirc-put-nick-channel] 4] split-string " " t rcirc-get-temp-buffer-create last] 7 (#$ . 84472)])
#@16 RPL_ENDOFNAMES
(defalias 'rcirc-handler-366 #[(process sender args text) "\211A@)\306\n\"r\fq\210\307\310\ned{%\210)\311\f!*\207" [args x channel process buffer sender rcirc-get-temp-buffer-create rcirc-print "NAMES" kill-buffer] 8 (#$ . 84817)])
#@19 ERR_NICKNAMEINUSE
(defalias 'rcirc-handler-433 #[(process sender args text) "\306\307	\n%\210\n\211A@)\310Pr\311!q\210\312\313#*\207" [process sender args text x new-nick rcirc-handler-generic "433" "`" process-buffer rcirc-cmd-nick nil] 7 (#$ . 85077)])
#@118 Send authentication to process associated with current buffer.
Passwords are stored in `rcirc-authinfo' (which see).
(defalias 'rcirc-authenticate #[nil "rq\210	\306\211\203\233 @\307 \n@\n\211AA)@\n\211A@)\n\211AA)A\310\"\203\223 \310\"\203\223 \311\232\203` \312\313\211A@)\206W \314\315@R\"\210\202\223 \316\232\203z \312\317@\320\211A@)R\"\210\202\223 \321\232\203\215 \312\322@P\"\210\202\223 \323\324\"\210-A\211\204\f +\306\207" [rcirc-server-buffer rcirc-authinfo i #1=#:--cl-dolist-temp-- x args nil rcirc-buffer-process string-match nickserv rcirc-send-string "PRIVMSG " "nickserv" " :identify " chanserv "PRIVMSG chanserv :identify " " " bitlbee "PRIVMSG &bitlbee :identify " message "No %S authentication method defined" method nick server process rcirc-server rcirc-nick] 7 (#$ . 85346) nil])
(defalias 'rcirc-handler-INVITE #[(process sender args text) "\303	\304\305\306\307\n\310#\311&\207" [process sender args rcirc-print "INVITE" nil mapconcat identity " " t] 9])
(defalias 'rcirc-handler-ERROR #[(process sender args text) "\303	\304\305\306\307\n\310#%\207" [process sender args rcirc-print "ERROR" nil mapconcat identity " "] 9])
(defalias 'rcirc-handler-CTCP #[(process target sender text) "\306\307\"\205R \310\311\"\226\310\312\"\313\314	P!\315!\204/ \316\f\317\320\321#\322&\202Q \f\n$\210	\323\230\206@ 	\324\230?\205Q \316\f\325\320\326\"\322&+\207" [text request args handler process sender string-match "^\\([^ ]+\\) *\\(.*\\)$" match-string 1 2 intern-soft "rcirc-handler-ctcp-" fboundp rcirc-print "ERROR" format "%s sent unsupported ctcp: %s" t "ACTION" "KEEPALIVE" "CTCP" "%s" target] 9])
(defalias 'rcirc-handler-ctcp-VERSION #[(process target sender args) "\303\304	\305\n\306\260\"\207" [process sender rcirc-id-string rcirc-send-string "NOTICE " " :VERSION " ""] 7])
(defalias 'rcirc-handler-ctcp-ACTION #[(process target sender args) "\304	\305\n\306&\207" [process sender target args rcirc-print "ACTION" t] 7])
(defalias 'rcirc-handler-ctcp-TIME #[(process target sender args) "\302\303	\304\305 \306\260\"\207" [process sender rcirc-send-string "NOTICE " " :TIME " current-time-string ""] 7])
(defalias 'rcirc-handler-CTCP-response #[(process target sender message) "\303	\304\305\n\306&\207" [process sender message rcirc-print "CTCP" nil t] 7])
(byte-code "\300\301\302\303\304\305\304\306&\210\307\310\311\312\304\301%\210\307\313\314\315\304\301%\210\307\316\317\320\304\301%\210\307\321\322\323\304\301%\210\307\324\325\326\304\301%\210\307\327\330\331\304\301%\210\307\332\333\334\304\301%\210\307\335\336\337\304\301%\210\307\340\341\342\304\301%\210\307\343\344\345\304\301%\210\307\346\347\350\304\301%\210\307\351\352\353\304\301%\210\307\354\355\356\304\301%\210\307\357\360\361\304\301%\210\362\363\364\365#\207" [custom-declare-group rcirc-faces nil "Faces for rcirc." :group rcirc faces custom-declare-face rcirc-my-nick ((((class color) (min-colors 88) (background light)) (:foreground "Blue1")) (((class color) (min-colors 88) (background dark)) (:foreground "LightSkyBlue")) (((class color) (min-colors 16) (background light)) (:foreground "Blue")) (((class color) (min-colors 16) (background dark)) (:foreground "LightSkyBlue")) (((class color) (min-colors 8)) (:foreground "blue" :weight bold)) (t (:inverse-video t :weight bold))) "The face used to highlight my messages." rcirc-other-nick ((((class grayscale) (background light)) (:foreground "Gray90" :weight bold :slant italic)) (((class grayscale) (background dark)) (:foreground "DimGray" :weight bold :slant italic)) (((class color) (min-colors 88) (background light)) (:foreground "DarkGoldenrod")) (((class color) (min-colors 88) (background dark)) (:foreground "LightGoldenrod")) (((class color) (min-colors 16) (background light)) (:foreground "DarkGoldenrod")) (((class color) (min-colors 16) (background dark)) (:foreground "LightGoldenrod")) (((class color) (min-colors 8)) (:foreground "yellow" :weight light)) (t (:weight bold :slant italic))) "The face used to highlight other messages." rcirc-bright-nick ((((class grayscale) (background light)) (:foreground "LightGray" :weight bold :underline t)) (((class grayscale) (background dark)) (:foreground "Gray50" :weight bold :underline t)) (((class color) (min-colors 88) (background light)) (:foreground "CadetBlue")) (((class color) (min-colors 88) (background dark)) (:foreground "Aquamarine")) (((class color) (min-colors 16) (background light)) (:foreground "CadetBlue")) (((class color) (min-colors 16) (background dark)) (:foreground "Aquamarine")) (((class color) (min-colors 8)) (:foreground "magenta")) (t (:weight bold :underline t))) "Face used for nicks matched by `rcirc-bright-nicks'." rcirc-dim-nick ((t :inherit default)) "Face used for nicks in `rcirc-dim-nicks'." rcirc-server ((((class grayscale) (background light)) (:foreground "DimGray" :weight bold :slant italic)) (((class grayscale) (background dark)) (:foreground "LightGray" :weight bold :slant italic)) (((class color) (min-colors 88) (background light)) (:foreground "Firebrick")) (((class color) (min-colors 88) (background dark)) (:foreground "chocolate1")) (((class color) (min-colors 16) (background light)) (:foreground "red")) (((class color) (min-colors 16) (background dark)) (:foreground "red1")) (((class color) (min-colors 8) (background light))) (((class color) (min-colors 8) (background dark))) (t (:weight bold :slant italic))) "The face used to highlight server messages." rcirc-server-prefix ((default :inherit rcirc-server) (((class grayscale))) (((class color) (min-colors 16))) (((class color) (min-colors 8) (background light)) :foreground "red") (((class color) (min-colors 8) (background dark)) :foreground "red1")) "The face used to highlight server prefixes." rcirc-timestamp ((t (:inherit default))) "The face used to highlight timestamps." rcirc-nick-in-message ((((class grayscale) (background light)) (:foreground "LightGray" :weight bold)) (((class grayscale) (background dark)) (:foreground "DimGray" :weight bold)) (((class color) (min-colors 88) (background light)) (:foreground "Purple")) (((class color) (min-colors 88) (background dark)) (:foreground "Cyan1")) (((class color) (min-colors 16) (background light)) (:foreground "Purple")) (((class color) (min-colors 16) (background dark)) (:foreground "Cyan")) (((class color) (min-colors 8)) (:foreground "cyan" :weight bold)) (t (:weight bold))) "The face used to highlight instances of your nick within messages." rcirc-nick-in-message-full-line ((t (:bold t))) "The face used emphasize the entire message when your nick is mentioned." rcirc-prompt ((((min-colors 88) (background dark)) (:foreground "cyan1")) (((background dark)) (:foreground "cyan")) (t (:foreground "dark blue"))) "The face used to highlight prompts." rcirc-track-nick ((((type tty)) (:inherit default)) (t (:inverse-video t))) "The face used in the mode-line when your nick is mentioned." rcirc-track-keyword ((t (:bold t))) "The face used in the mode-line when keywords are mentioned." rcirc-url ((t (:bold t))) "The face used to highlight urls." rcirc-keyword ((t (:inherit highlight))) "The face used to highlight keywords." put rcirc-mode flyspell-mode-predicate rcirc-looking-at-input] 8)
#@49 Returns true if point is past the input marker.
(defalias 'rcirc-looking-at-input #[nil "`Y\207" [rcirc-prompt-end-marker] 2 (#$ . 92649)])
(provide 'rcirc)