An association list of command aliases used in irc-mode.
This is the first list checked when irc-mode is looking for a command and it
is maintained with the /ALIAS and /UNALIAS commands.")
(byte-code "└┴┬!¼é├─┬┼╞#ê┬!ê└┴╟!¼â├─╟┼╚#ê╟!ê└┴╔!¼â├ ─╔┼╩#ê╔!ê└┴╔!¼â├ ─╔┼╩#ê╔!ç" [make-variable-buffer-local boundp irc-cache-n+s nil put variable-documentation "Cache of known nicks and servers" irc-cache-c+n+s "Cache of known channels, nicks and servers" irc-called-from-buffer "Flag saying whether a command is called from the irc buffer with /names\nor invoked through pressing a key like C-c C-c."] 5)
An association list of the regular commands to which all users have access.
Form is (\"COMMAND\" . \"function\") where \"function\" is that last element in
an irc-execute-* symbol. See also irc-alias-alist and irc-operator-alist.")
(defvar irc-confirm t "\
*If non-nil, provide confirmation for messages sent on IRC.
It should be noted that confirmation only indicates where irc-mode
tried to send the message, not whether it was actually received.
Use the /CONFIRM command to change.")
(byte-code "└┴┬!¼é├─┬┼╞#ê┬!ê└┴╟!¼â╚─╟┼╔#ê╟!ç" [make-variable-buffer-local boundp irc-default-to "*;" put variable-documentation "The default recipient of a message if no : or ; is provided.\n\"*\" means the current channel, no matter what it is." irc-drop-ircII-text-kludge-control-characters t "*If nil, show CNTRL/B, CNTRL/V and CNTRL/_ as ^B. ^V and ^_ in text. These\ncharacters are used as a kludge by the client ircII to toggle the attributes\nreverse, underline and bold respectivly in text. If non-nil, drop those three\ncharacters."] 5)
*Non-nil if Kiwi shouldn't translate octets in incoming messages with
the high bit set to yz strings; nil if translation for such characters
(0240 - 0377) should occur.")
(byte-code "└┴┬!¼é├─┬┼╞#ê┬!ç" [make-variable-buffer-local boundp irc-events (ctcp join nick quit topic) put variable-documentation "Events in IRC that should get notification messages.\nA notification message is just one line to indicate that the event has\noccurred. The \"ctcp\", \"join\", \"nick\", \"quit\" and \"topic\"\nevents are currently supported by the /EVENT command."] 5)
(defconst irc-help-topic-alist (quote ((";" . "Usage: RECEIVER[,RECEIVER]...; MESSAGE\n\nSend a message to one or several receivers.\nAbout the same as /MSG and :, see /HELP : and /HELP MSG.\n\nWhen no receiver is given yet, on a line, and you press ; first on that line,\nthe last receiver is inserted (this may be a users nickname, a channelname,\na list of receivers, etc)\n\nDon't use any spaces left of the ;.") (":" . "Usage: RECEIVER [, RECEIVER] ... ; MESSAGE\n\nSend a message to one or several receivers.\nAbout the same as /MSG and ;, see /HELP ; and /HELP MSG\n\nWhen no receiver was given yet, and : is inserted first on the line, the\nlast person you sent to will be the default receiver.\n\nDon't use any spaces left of the :.") ("STARTUP" . "Initiation and startup\n\nTo make your GNU Emacs know of this IRC user interface, you can add\nthe following command to your GNU Emacs initialisation file (normaly\n.emacs) in your home directory:\n (autoload 'irc \"Kiwi\"\n \"Internet Relay Chat user interface.\" t nil)\n\nThis will make your Emacs to load the library file Kiwi.elc or Kiwi.el\nwhen you typing M-x irc RET. The file must be in one of the\ndirectories mentioned in the variable load-path. (You can check this\nvariables value by typing C-h v load-path RET). You can compile the\nfile Kiwi.el by typing M-x byte-compile-file RET Kiwi.el RET to get\nKiwi.elc.\n\nAt startup time of IRC, you may want to initiate some settings and\ngive some commands. This can be done by setting some variables in your\nGNU Emacs initialisation file (normaly called .emacs). Some typical\ninitialisations may be\n\n (setq irc-server \"minsk.docs.uu.se\" ;Which server to use.\n irc-msg-public \"%s%9s/%s: \" ;How to display public msgs\n irc-pop-on-signal 3 ;Use about 1/3 of screen when\n ; popping up a Kiwi buffer.\n ;; Give some information about yourself, whatever you want.\n irc-userinfo (concat\n \"Studying computer science at the university of\"\n \" Uppsala. Call me on +46 18 463253.\")\n ;; Commands to be executed when seeing the Welcome message\n ;; from a server we just connected to.\n irc-startup-hook '(lambda ()\n (irc-execute-command \"links *.se\")\n (irc-execute-command \"who *.se\")))\n\nThis will make IRC use about 1/3 of the screen when popping up a\nwindow (this happens for instance when you have deselcted all IRC\nwindows and someone sends you a message). Also, the information string\nfor you (which can contain any information you choose) is initiated.\nWhen a server says \"welcome\", you will be shown all active servers\nin Sweden (SE) and all active users using IRC in Sweden.\n\nDon't give the leading / in the arguments to irc-execute-command.\n\nIf you want more control over how to display public and/or private messages\n(at the time exluding WALLs and WALLOPSs) you can use this clumsy way (be\npatient, a more user friendly method is on it's way) of setting the variables\nirc-public-insert and irc-private-insert to functions taking 3 strings as\narguments, namely the name of the sender, name of the receiver (user or channel\nname normaly) and the message itself (in raw format, after extracting the\nclient-to-client protocol stuff). All this sums up to, that if you don't know\nelisp, you probaly don't want to use this method, or else just change the\ncontrol string constants in the examples below.\nExamples:\n (setq\n irc-public-insert '(lambda (from to msg)\n (let* ((same-chan (string= (upcase irc-channel)\n (upcase to)))\n (hdr\n (format (if same-chan\n \"%s %9s: \"\n \"%s %9s/%s: \")\n (if (and irc-message-stamp\n (not (eq irc-message-stamp\n 'private)))\n (irc-get-time)\n \"\")\n from\n to))\n (irc-msg-cont-used\n (make-string \n (min (length hdr)\n (/ (window-width (get-buffer-window\n (current-buffer)))\n 2))\n ? )))\n (irc-insert\n (concat hdr (irc-clean-up-message msg)))))\n irc-private-insert '(lambda (from to msg)\n (let* ((to-whom\n (cond ((string= (upcase irc-nick-used)\n (upcase to))\n \"*%s %s* \")\n ((irc-is-broadcastname to)\n (concat \"=%s %s BROADCAST to all\"\n \"users on IRC server(s)\"\n \" \\\"%s\\\"= \"))\n (t \"*%s %s/%s* \")))\n (hdr\n (format to-whom\n (if (and\n irc-message-stamp\n (eq irc-message-stamp\n 'private))\n (irc-get-time)\n \"\")\n from\n to))\n (irc-msg-cont-used (make-string \n (min (length hdr)\n (/ (window-width (get-buffer-window (current-buffer)))\n 2))\n ? )))\n (irc-insert\n (concat hdr (irc-clean-up-message msg))))))\n\nHint: the internal control strings uses 2 or 3 of the %s to write the time,\nthe senders name and the receivers name. If only 2 %s are given, the receivers\nname won't be written.\n\n[Note: this is a preliminary version of the help text, please send mail\nto Klaus.Zeuge@Student.DoCS.UU.SE if you think it needs to be changed.]"))) "\
A-list with car = keyword-string for a topic and cdr = descriptions string
of the keyword.")
(byte-code "└┴┬!¼é├─┬┼╞#ê┬!ê└┴╟!¼â├─╟┼╚#ê╟!ê└┴╔!¼â├ ─╔┼╩#ê╔!ê└┴╦!¼â├ ─╦┼╠#ê╦!ç" [make-variable-buffer-local boundp irc-history nil put variable-documentation "A list of messages which irc-mode has processed.\nThis includes both successfully and unsuccessfully sent messages, starting\nwith the most recent first. irc-max-history limits the number of items\nthat can appear in the list when using irc-add-to-history." irc-ignore-automatic-warnings "*Variable to say whether to to display or not display automatic warnings\nfrom users. Such warnings start with the marker \"<Automatic warning> \" in\na message either directly to to, or on a channel. The default and RECOMMENDED\nvalue is nil, ie to display. Set to non-nil to supress such messages." irc-ignores "A list of NICKNAMES whose events will be ignored.\nMessages or other actions (like joining a channel) generated by anyone in\nthe list will not be displayed or signalled. This list is maintained with\nthe /IGNORE and /UNIGNORE commands." irc-ignore-trunk "A trunk (for now an array of hash tables) of events and nicks to ignore."] 5)
*Set to true if you want the sevenbit ISO 646-SE2 characters @[]^`{|}~ to
be mapped into the corrosponding eightbith ISO 8859-1 characters when
being typed.
Set to nil to get no such mapping.
Set to neither t or nil if you want to get the mapping with the case
for ], [, \\ reversed, i.e. want to have the [ key treated as Σ and
the { key treated as ─.")
(defvar irc-max-history 40 "\
*The maximum number of messages retained by irc-mode.
This limits messages sent, not messages received. They are stored to be
easily recalled by irc-history-prev and irc-history-next (C-c C-p and C-c C-n
by default).")
(defvar irc-max-server-message-length 512 "\
The maximum length of a message one can send to a server. This include the
trailing CRLF, so the \"real\" message length is 2 less.")
(defvar irc-maximum-size 65536 "\
*Maximum size that the *Kiwi-server* buffer can attain, in bytes.
The default value of 64KB represents an average of about 1500 lines, or roughly
65 screens on a standard 24 line monitor. See also irc-minimum-size.")
(defvar irc-message-stamp (quote private) "\
*Mark messages received in IRC with the time of their arrival if non-nil.
If this is the symbol \"private\" or \"public\" then only messages of the
specified type are marked with the time. WALL messages are always
time-stamped.")
(defvar irc-minimum-size 32768 "\
*Minimum size that the *Kiwi-server* buffer will get truncated to after
hitting the size in irc-maximum-size.")
(defvar irc-mode-hook nil "\
*Hook to run after starting irc-mode but before connecting to the server.")
(defvar irc-mode-map nil "\
The keymap which irc-mode uses.
Currently set to: \\{irc-mode-map}")
(byte-code "└┴┬!¼è┴┬!½â\n¬ü├─┬┼╞#ê┬!ê└┴╟!¼î┴╟!½ä¬ü╚─╟┼╔#ê╟!ê└┴╩!¼æ┴╩!½ä\n¬å╦╠═╬!\"\n─╩┼╧#ê╩!ê└┴╨!¼î┴╨!½ä¬ü╤─╨┼╥#ê╨!ê└┴╙!¼î┴╙!½ä¬ü╘─╙┼╒#ê╙!ê└┴╓!¼î┴╓!½ä¬ü╫─╓┼╪#ê╓!ê└┴┘!¼î┴┘!½ä¬ü┌─┘┼█#ê┘!ê└┴▄!¼â▌ ─▄┼▐#ê▄!ê└┴▀!¼ëαß!«éΓ ─▀┼π#ê▀!ç" [make-variable-buffer-local boundp irc-msg-info-post "]" put variable-documentation "*String to end an information message with." irc-msg-info-pre "[" "*String to start an information message with." irc-msg-cont make-string 23 string-to-char " " "*The string put first on a continued line." irc-msg-priv "==%%s%%%ds == " "*The string put first on a line where a private message begins,\nusing TIME and SENDER strings, and EXTRA string." irc-msg-public "-- %s%9s (on %s) -- " "*The string put first on a line where a public message begins,\nusing TIME string, SENDER string and CHANNEL number" irc-msg-sent "(Message sent to %s)" "*Message displayed after sending a string to the server.\nContains TYPE (ie \"channel\" or \"person\") and RECEIVER (ie channel name or\nusers nick)." irc-msg-wall "##%s%s ## " "*The string put first on a line where awrite all (wall) message begins,\nusing TIME and SENDER strings." irc-multiple-leave-in-progress nil "Flag saying whether a multiple /LEAVE command is in progress, so that\nirc-parse-channel shouldn't call irc-show-subscribed-channels." irc-nick getenv "IRCNICK" user-login-name "*The nickname with which to enter IRC.\nThe default value is set from your login name. Using /NICKNAME changes it."] 5)
As association list of commands which only an IRC Operator can use.
It is kept as a separate list so that regular users won't wonder how
come the commands don't work for them.")
(byte-code "└┴┬!¼É┴┬!½â\n¬ç ½â─¬ü┼╞┬╟╚#ê┬!ç" [make-variable-buffer-local boundp irc-output-character-set irc-emacs-knows-ISO8859-1 ISO-8859-1 ASCII put variable-documentation "*Specifies whether the Emacs understands just ASCII (seven bit characters),\nISO-8859/1 (8 bits) or Kanjii (16 bits). The value is one of the following\natoms: ASCII ISO-8859-1 KANJII"] 5)
(defvar irc-pop-on-signal 4 "\
*An integer value means to display the *IRC* buffer when a signal is issued.
The number represents roughly how much of the Emacs screen to use when
popping up the IRC window if only one window is visible. The reciprocal
is used, so a value of 1 causes the window to appear full-screen, 2 makes
the window half of the screen, 3 makes it one third, et cetera. If the value
is not an integer then no attempt is made to show the *IRC* buffer if it
is not already visible.")
(byte-code "└┴┬!¼½┴┬!½â\n¬ó├─!ë ¡â╞!ë º½É╚V½è╔W½ä¬ü╩*╦┬╠═#ê┬!ç" [make-variable-buffer-local boundp irc-port getenv "IRCPORT" p string-to-int np 0 16384 6667 put variable-documentation "*The port on which the IRC server responds.\nMany sites don't have irc as a named service (ie, it has no entry in\n/etc/inetd.conf) so you might have to set this to a number; the most\ncommon configuration is to have IRC respond on port 6667. If there is\nan enviroment variable called IRCPORT and it's value is nummeric\nbetween 1 and 16387, that value is used instead."] 6)
(defvar irc-private-insert nil "\
*Hook to be used to insert private messages (PRIVMSG) sent to you.")
(defvar irc-processes nil "\
All currently open streams to irc-servers are kept in this list.
It is used so that the \"irc\" function knows whether to start a new process
by default.")
(defvar irc-public-insert nil "\
*Hook to be used to insert public messages (MSG) sent to channel.")
(byte-code "└┴┬!¼é├─┬┼╞#ê┬!ê└┴╟!¼â╚─╟┼╔#ê╟!ê└┴╩!¼â╦\n─╩┼╠#ê╩!ê└┴═!¼ë┴═!¡é─═┼╬#ê═!ê└┴╧!¼æ┴╧!½ä¬å╨╤!«ü╥─╧┼╙#ê╧!ê└┴╘!¼â╒─╘┼╓#ê╘!ê└┴╫!¼â╪─╫┼┘#ê╫!ç" [make-variable-buffer-local boundp irc-reply-count 0 put variable-documentation "Internal Kiwi variable to keep track of number of replies to /LINKS,\n/NAMES, or /WHO." irc-reply-count-interval 1 "Internal Kiwi variable to keep track of how many seconds should\npass at least between each display of irc-reply-count when waiting\nfor the reply of a /LINKS, /NAMES, or /WHO to finnish." irc-reply-count-time (0 0) "Internal Kiwi variable to keep track of en irc-reply-count was displayed\nlast." irc-scroll-step "*The scroll step used by irc-insert. Set to non-number to get\nthe nice automatic behaivour you get by default." irc-server getenv "IRCSERVER" "irc.ludd.luth.se" "*The name of the internet host running the IRC daemon.\nIRC servers generally restrict which machines can maintain connetions with\nthem, so you'll probably have to find a server in your local domain.\nInitiated from enviroment variable IRCSERVER." irc-show-japanese-characters nil "*If nil, replace Kanjii characters in text by a marker like \"Old Kanjii\"\nfollowed by a list of integers denoting the 16 bit values of the characters.\nIf t, enter the text \"as is\" e.i., keep even the ESCape characters.\nIf neither nil nor t, enter the text in \"raw\" mode e.i., replace the ESCapes\nby ^[ and insert the resulting text in the buffer.\nThe default is nil." irc-signals ((backtalk t) (detect nil) (invite t) (join nil) (nick nil) (private t) (topic nil) (wall t) (public nil) (user nil)) "Events in IRC that should get signalled when they occur.\nGenerally the signal is an audible beep. The value of irc-signals is an\nassociation list of events recognized by irc-mode and is maintained with\nthe /SIGNAL command."] 5)
(defvar irc-spacebar-pages t "\
*When this variable is non-nil, the following keys are in effect when
point is in the output region.
SPC scroll-forward DEL scroll-backward
TAB previous-line LFD or RET next-line")
(defvar irc-time-stamp 5 "\
*How often to insert a time-stamp into *IRC* buffers.
The first time one is based from the hour the IRC process was started so that
values which divide evenly into 60 minutes (like the default of 10) will split
the hour evenly (as in 13:10, 13:20, 13:30, et cetera). To disable the
time-stamping set this variable to 0. This can be set with the /STAMP command.
The accuracy of the time-stamping can be improved greatly by running
M-x display-time; with default settings this guarantees that Emacs will have
some sort of predictable activity every minute. If display-time is not running
and the IRC session is idle, the time-stamp can be up to two minutes late.")
*Translation table for incoming characters to translate from SIS E47
to ISO 8859-1. Also handles some MSDOS characters.")
(byte-code "└┴┬!¼ç┴┬!¡ü\n├┬─┼#ê┬!ç" [make-variable-buffer-local boundp irc-userinfo put variable-documentation "*If non-nil, a user settable string to be replied with when the client is\nqueried by some other user."] 5)
(fset 'subfield '(macro . #[(str n) "└┴┬├\fDD┬┼\fDDE╞├\fD┼\fDF╚BBBç" [if and numberp match-beginning n match-end substring str ("")] 7 "\
Return a substring of STR. The substring is field N, as used in the latest
Take the first line from STR and pass it on to the appropriate irc-parse-*
function. If the message is one which irc-mode doesn't recognize, just display
it as the raw server message.
It returns a dotted-pair whose car is the remainder of STR after the first
newline and whose cdr is either t or nil, indicating whether a signal should
be issued."])
(fset 'irc-parse-channel #[(str) "└┴┬P \"¼▒└┴─P \"¼⌐└┼┬P \"¼í└┼─P \"¼Ö└╞─P \"¼æ╟╚╔P\n\"ê╟╦ \"ê╟╠!ç═öº½ì═òº½ê ═ö═òO¬ü╬ ╨öº½ì╨òº½ê ╨ö╨òO¬ü╬ ╥öº½ì╥òº½ê ╥ö╥òO¬ü╬ ╘öº½ì╘òº½ê ╘ö╘òO¬ü╬ ╓ÿ«è╫ÿ¡ä╪ÿ ┌█GS]▄\" P ÿ½Æ½êßΓ\"ê¬åπΓ\"ê ÿ½╕½ÑΣ ½Üû%ûÿ¼å%╪ÿ½ç╪%µ ¬▐µ ¬┌╪%µ ¬╙%τΦ%P!êµ ¬─ΘΩ\"¼╕δ,>½▓½ÿ╟φ./Σ ½ä¬é%0&¬¢π±\"ê╟≥./0&¬à≤δ\".ç" [string-match "^: *\\([^ ]+\\) +\\(JOIN\\)" " +:?\\([^ ]+\\) +\\([^ ]*\\) *$" str " +:?\\([^ ]+\\) *\\(\\)$" "^: *\\([^ ]+\\) +\\(PART\\)" "^: *\\([^ ]+\\) +\\(CHANNEL\\)" irc-insert "%%Unknown format on command from server," " please notify %s, it migh be a bug." irc-hacker "%% str=\"%s\"." "%% Function irc-parse-channel." 1 "" user 2 type 3 channel 4 mode "PART" "CHANNEL" "0" left make-string 0 32 pd irc-msg-cont cont irc-nick-used irc-forget irc-subscribed-channels irc-remember irc-server-has-multijoinable-channels irc-channel irc-show-subscribed-channels irc-send "MODE " irc-recall irc-ignored-ppl join irc-events "%s%s%s has LEFT channel %s%s" irc-msg-info-pre irc-userhost irc-msg-info-post irc-nicknames "%s%s%s has JOINED channel %s%s" irc-signal] 7 "\
Examine CHANNEL, JOIN and PART messages from the IRC server.
CHANNEL indicates a user entering or leaving the channel which you are
on, JOIN indicates a user entering a channel and PART indicates a user
leaving the channel. If the user is not being ignored and \"join\" is
in irc-events, a message is inserted indicating the change. A
message is always provided as confirmation if the user is the irc-mode
user.
This function returns t if a bell should be issued for the \"join\" event,
nil otherwise."])
(fset 'irc-parse-CLIENT-answer #[(sndr rcvr str) "└ ┬\"½é├┼╞\f\"¼æ╟╚!ê╟╔\f\"ê╟╩ \"ê¬ë╠\f═ö═òO!┼╬╧╨╤R\f\"¼ò├\fÖà$╟╥!ê╟╔╙\f!\"ê╟╘!ç═öº½ì═òº½ê\f═ö═òO¬ü├ ╓öº½ì╓òº½ê\f╓ö╓òO¬ü├ ┘ ┌R ▄G▌\" ▀ÿå#αÿ½æ╟ßΓπQ$%é#σÿ½î╟µ$$é#τÿ½▐┼Φ\"¼ï╟ΘΩP #é#δ A@ ,φ! .,.Zë /≡W½ë,±.Z\\¬é/≥_╓Ñë 3≥Ñ 434≥_Z 5╟÷≈P458$&.é#∙ÿ½╗┼·\"½ƒ√ <²■═öº½Ä═òº½ë═ö═òO¬ü├\"#é#┼ \"å#╟ü@ ΩP #é#üA ÿâ%┼üB üC üD Q\"½è≡òüE O¬é F┼üG üH PF\"â═öº½Ä═òº½ëF═ö═òO¬ü├ IüJ öº½öüJ òº½ìFüJ öüJ òO¬ü├ KüL ╙I!P MφK!ë N═U½àüO ¬âüP QNüR Y½æ²üS KQüT N!$¬ïKüU QüL R V╟üW MVP$$.¬ï╟üX F$$)é#üY ÿâ╖┼üZ \"½î╟ü[ $#é#┼ü\\ \"½▐═öº½Ä═òº½ë═ö═òO¬ü├╓öº½Ä╓òº½ë╓ö╓òO¬ü├üJ öº½öüJ òº½ìüJ öüJ òO¬ü├ ] ^ _╟ü` _^]$&+é#╟üa $é#üb ÿ½°┼üZ \"¼ó┼üc û\"¼ÿüd ÿ¼Éüe ÿ¼êüf ÿ½É╟üg üh P$#é#┼üi \"ê≡ëöO╓öº½Ä╓òº½ë╓ö╓òO¬ü├ j k╟ül üm P╙k!j$%*é#ün ÿ¼ëüo ÿâô┼üp \"½σ═öº½Ä═òº½ë═ö═òO¬ü├╓öº½Ä╓òº½ë╓ö╓òO¬ü├üJ öº½öüJ òº½ìüJ öüJ òO¬ü├ q r s╟üt üu P s╙r!q$&+é#╟üv ╙┼üw üx üy üz R\"¼¥┼üw ü{ ü| Q\"¼ì┼üw ü} P\"½«ü~ ═öº½Ä═òº½ë═ö═òO¬ü├╓öº½Ä╓òº½ë╓ö╓òO¬ü├Q¬╢┼ü üÇ P\"½û═öº½Ä═òº½ë═ö═òO¬û├¬ô┼üü \"½ê≡ëòO¬é éüâ ┼üä é\"¼û┼üà üå Pé\"¼ë┼üç é\"½ôé≡ëöOé≡òüE OPé¬Né!)!$$é#üo ÿ½≈┼üp \"½Γ═öº½Ä═òº½ë═ö═òO¬ü├╓öº½Ä╓òº½ë╓ö╓òO¬ü├üJ öº½öüJ òº½ìüJ öüJ òO¬ü├ q r s╟üt üu P srq$&+¬¥╟üê $¬æ╟üë üè üï Q $,ç" [irc-recall sndr irc-ignored-ppl "" str string-match "^\\([^]*\\)$" irc-insert "%%Got non-clientmessage in irc-parse-CLIENT-answer:" "%% \"%s\" (str)." "%% Please tell %s, probaly en internal error." irc-hacker irc-ctcp-dequote 1 " *\\([^ ]+\\)" " *:?" " *\\([^]*\\)" " *$" "%%Received unknown CTCP answer message:" irc-clean-up-message "%% This is probaly NOT a bug." keyw 2 args irc-msg-info-pre "User \"" "\" " pre make-string 32 irc-msg-cont-used "ACTION" "CLIENTINFO" "%sis using a client which is using the" " client-to-client-protocol keyword %s in the" " following way: %s%s" irc-msg-info-post "ECHO" "%sechoed back \"%s\" to us with (CTCP) ECHO%s" "PING" "^[0-9]+$" "%%Received bogus (CTCP) PING reply from" " user %s: \"%s\"." irc-current-time cur string-to-int rep ans 0 65536 10 tos int-part dec-part "%sis about %d.%d seconds" " away from you, %s%s" irc-nick-used "ERRMSG" "^PING +RELAY +\\([0-9]+\\)\\( +:.*\\)? *$" irc-parse-CLIENT-answer rcvr format "PING %s" "^ACTION " "%%Errormessage from client of" "FINGER" "^ *Please +check +" "my +USERINFO +instead" " *:" nil data "^\\(.* +Idle *\\)\\(for +\\)?" "\\([0-9]+\\) *seconds? *$" m 3 idle "\"" xpre idle-time "second" "seconds" xpost 60 "%s %s\" (%s)" irc-sec-to-time " " idle-string "%shas FINGER-info %s%s" "%shas fingerinfo \"%s\"%s" "SOURCE" "^ *$" "%sEnd of source site listing%s" "^ *\\([^: ]+\\) *: *\\([^: ]+\\) *: *\\(.*\\) *" files dir site "%sSource site: %s (directory %s, files %s)%s" "%%Received unknown CTCP %s reply from %s: %s" "USERINFO" "^ *\\(HUH *\\?\\) *WHO +WANTS +TO +KNOW *\\? *$" "<None Supplied>" "And what you want to know?" "No user info given." "%shasn't given any information" " about him/herself%s" "\\(\\.?\\)$" dot info "%shas given the information" " \"%s\"%s about him/herself%s" "VERSION" "VRSN" "^ *\\([^:]+\\) *: *\\([^:]+\\) *: *\\(.*\\) *$" env vrsn name "%sUser \"%s\" claims to be using" " client %s version %s (%s)%s" "%sclaims to be using client %s%s" "^ *[Ii][Rr][Cc][Ii][Ii] +" "\\([0-9]+\\.[0-9]+[^:]+\\) *:" "[^0-9]*\\([0-9]\\.[0-9][^ \\.]+" "*\\).*$" "[^:]*: *\\(.*[0-9]\\." "[0-9].*\\) *\\(\\)$" "\\([^:]+\\) *:.*\\(\\)$" "ircII " "^[^:]*: *\\(.*[0-9]+\\." "[0-9]+.*.*\\) *$" "^[^:]*[0-9]+\\.[0-9]+[^:]*" c irc-nuke-whitespace " The one true client\\." " Who could ask for" " anything more\\." "SIAWPIO!" "%%Received unknown (CTCP) %s reply from %s: %s" "%%Received unknown answer with keyword" " \"%s\" from client of user \"%s\":" " \"%s\"."] 10 "\
Examine a client answer message from another client.
Generally, incoming message will look like \"^ACLIENT keyword arg1 .. argN^A\"
one or several pasted together."])
(fset 'irc-parse-CLIENT-query #[(sndr rcvr str) "└ ┬\"½é├ç─┼\"¼É╟╚!ê╟╔\"ê╟╩ \"ç╠═ö═òO!─╬╧╨Q\"¼£àU╥ÖàU╟╙!ê╟╔╘!\"ê╟╒!ç═ö═òO╓ö╓òO╫> ë ▄ÿ½¥╥ÿ½è▌▐▀ α#!éT╟ß\" ╘!$éTπÿâ_─Σ\"½ó▌σ µτΦΘΩδR!∞░!êàT╟φ.\" /%éT─≡\"â ═ö═òOë 1ûë 2▄ÿ½î≤⌠⌡÷≈°∙░é├2πÿ½è·√ⁿ²■░é├2 ÿ½èü@ üA Pé├2üB ÿ½áüC üD üE üF üG üH üI üJ üK ░ é├2üL ÿ½ìüM üN üO Qé├2üP ÿ½îüQ üR üS Q¬≥2üT ÿ½«üU üV üW üX üY üZ ü[ ü\\ ü] ü^ ü_ ü` üa üb ░¬╝2üc ÿ½ƒüd üe üf üg üh üi üj ük ül ░ ¬ò2üm ÿ½îün üo üp Q¬ü├ë q;½¬▌σ µτür qP!∞░!ê¡╝╟üs üt P.2\" /&¬º▌σ µτüu ½êüv P¬ü╥üw üx üy ░!∞░!+éT▌σ µτüu üv üz ü{ ü| ü} ü~ ░ !∞░!êàT╟ü üÇ üü Q. \"/%éT ÿ½¿▌▐üé τ!#!êàT╟üâ üä P.\" /&éTüB ÿ½╩▌▐üà #!ê?åT─üå \"½ô╟üç üê P.\" /%éT╟üë üè üï Q.\" üî P/&éTüL ÿ½ⁿüì ÄüÅ üÉ Ä!üæ Q ÆÄ═U? ô▌▐üö üò üû üù üÿ ░ üÖ üÜ ü¢ Äô½àü£ ¬ü╥Äü¥ Y½äƬü╥ô½àü₧ ¬âü£ ƒ&\n!ê+àT╟üá .\" /%éTüP ÿ½Γ─üí \"½í▌▐üó τ!#!êàT╟üú .\" /%éT▌▐üñ üÑ τ!üª %!êàT╟üº ü¿ ü⌐ Q\" #ê╟ü¬ \"ê╟ü½ !éTüT ÿ½α¼ ¡¡½╗¡@ë «@ »«A@ ░╓«8 ▒▌σ µτ▐ü▓ »░ü│ ▒üv ╥#$!∞░!ê¡A¡,¬A▌σ ü┤ Q!ê¡î╟ü╡ .\" /%)éTüm ÿ½¡▌σ µτü╢ ╖;½ä╖¬ü╥P!∞░!êàT╟ü╕ .\" /%éTüc ÿâB─ü╣ ü║ P╗\"â ▌σ µτ▐ü╝ ═öº½Ä═òº½ë╗═ö═òO¬ü╥╓öº½Ä╓òº½ë╗╓ö╓òO¬ü╥ü╜ öº½öü╜ òº½ì╗ü╜ öü╜ òO¬ü╥╛½àü┐ ¬ô└½àü┴ ¬èü┬ ü├ ü─ Q┼&!∞░!ê¡┌╟ü╞ .\" /&¬╔▌σ µτ▐ü╟ ╗#!∞░!ê¡▒╟ü╞ .\" /&ê╟ü╚ !ê╟ü╔ \"¬Æ¡Ä╟ü╩ ü╦ P\" $+ç" [irc-recall sndr irc-ignored-ppl nil string-match "^\\([^]*\\)$" str irc-insert "%%Got non-CTCP query in irc-parse-CLIENT-query:" "%% \"%s\" (str)." "%% Please tell %s, probaly an internal error." irc-hacker irc-ctcp-dequote 1 " *\\([^ ]+\\)" " *\\([^]*\\)" " *$" debug-on-error "" "%%Received unknown CTCP request:" irc-clean-up-message "%% This is probaly not a bug." 2 ctcp irc-events tell args keyw "ACTION" irc-send format "NOTICE %s :ERRMSG ACTION :%s" "No argument supplied." ">>> (To %s) User %s %s" rcvr "CLIENTINFO" "^ *$" "NOTICE " " :" irc-ctcp-enquote "CLIENTINFO :You can request help of the" " commands ACTION CLIENTINFO ECHO ERRMSG" " FINGER PING SOURCE USERINFO VERSION" " by giving an argument to CLIENTINFO." "" "%sAnswered (CTCP) CLIENTINFO query to %s by %s%s" irc-msg-info-pre irc-msg-info-post "^ *\\([^: ]+\\) *$" w uw "ACTION takes one or more arguments," " and displayes them as a \"MUD like" " feeling\" to this user. If nick" " sojge sends \"falls down\", this" " user gets a message looking more or" " less like \"User sojge falls" " down\"." "CLIENTINFO with 0 arguments gives" " a list of known client query" " keywords. With 1 argument," " a description of the client query" " keyword is returned." "ECHO" "ECHO returns whatever argument is" " given." "ERRMSG" "ERRMSG is returned either when the" " query keyword is ERRMSG (in which" " case all arguments are echoed) or" " when an error in a query is" " detected or some other error" " happens in connection to CTCP (in" " which case the query is returned as" " the replies arguments, with a short" " error message added)." "FINGER" "FINGER shows user's real name, login" " name, client machine and idle" " time." "PING" "PING takes a integer number as its" " argument and echoes it back to the" " sender." "SOURCE" "SOURCE takes 0 arguments and returns" " a description of where to find the" " source code of the client. The" " description is made up out of zero" " or more lines followed by an end" " marker. Every line is a CTCP" " reply with the SOURCE keyword," " a space, the name of a FTP-server, a" " colon, a directory name, a colon," " and 0 or more file names." " If no file names are given, all the" " files in the named directory are" " needed. The end marker contains just" " the keyword." "VERSION" "VERSION takes 0 arguments and" " returns a list of words consisting" " of clients name, any number of" " versions (starting with the major" " version), and ending with the" " enviroment the client runs in. A" " colon and a plain text descrpition" " of the clients version is appended" " after the list." "USERINFO" "USERINFO takes no arguments and" " returns a user settable" " string." info "CLIENTINFO :" "%sAnswered (CTCP)" " CLIENTINFO %s to %s by %s%s" "ERRMSG " " " " :Unknown keyword in CLIENTINFO" " client query. Send CLIENTINFO" " CLIENTINFO for help." " :" "CLIENTINFO takes 0 or 1" " argument. Send" " CLIENTINFO CLIENTINFO" " for help." "%sComplained about user %s's" " corrupted CTCP CLIENTINFO query to" " %s%s" "NOTICE %s :ECHO %s" "%sAnswered to (CTCP) ECHO request" " from %s to %s, echoed back \"%s\"%s" "NOTICE %s :ERRMSG %s :No errors." "^ *PING +RELAY +[0-9]+ *$" "%sAnswered to (CTCP) ERRMSG PING" " RELAY request to %s from %s%s" "%sAnswered to (CTCP) ERRMSG" " request to %s from %s, echoed" " back \"%s\"%s" " :No errors" irc-idle-time idle "(" irc-sec-to-time ") " verbose-idle plur "NOTICE %s :FINGER :Please" " check my USERINFO instead :%s" " (%s@%s) %d second%s %sha%s" " passed since %s gave a command" " last." user-full-name user-real-login-name system-name "s" 60 "ve" irc-nick-used "%sAnswered (CTCP) FINGER query to %s by %s%s" "^[0-9]+$" "NOTICE %s :PING %s" "%sAnswered to (CTCP) PING query to %s from %s%s" "NOTICE %s :%s %s :%s" "ERRMSG PING" "Argument was not a number" "%%Received unknown CTCP PING" " query to %s from user" " \"%s\":" "%% \"%s\" (args)." "%% This is probaly NOT a bug." irc-ftp-source s r site dir files "SOURCE %s:%s:%s" irc-listify " :SOURCE" "%sAnswered (CTCP) SOURCE query to %s by %s%s" "USERINFO :" irc-userinfo "%sAnswered (CTCP) USERINFO query to %s by %s%s" "^ *\\([^: ]+\\) +v?\\([0-9]+[^ ]+\\)" " +\\(.*\\) *$" irc-version "%s %s:%s:%s, %s, emacs %s" 3 irc-emacs-knows-ISO8859-1 "8bit ISO 8859-1 characters" irc-translation-table-incoming "8bit characters" "7bit ISO 646 characters" " (ie ASCII with" " friends)" emacs-version "%sAnswered (CTCP) %s query to %s by %s%s" "%s Kiwi::%s" "%% Client doesn't know who it is!" "%% Please tell %s." "%%Received unknown CTCP \"%s\" to %s" " from user \"%s\"."] 15 "\
Examine a client query message from another client.
Generally, incoming message will look like \"^A CLIENT keyword data
... ^A\" where sndr is nick of client query is comming from, rcvr is
nick of receiver (either one self or a channel or a broadcast), and
keyword being a token in the set VERSION, USERINFO, ERRMSG etc. Arg1
to argN are optional."])
(fset 'irc-parse-ERR #[(str) "└┴┬P \"¼ö─┼╞P!ê─╟ \"ê─╚ \"êéí ╩öº½ì╩òº½ê ╩ö╩òO¬ü╦ \f═öº½ì═òº½ê ═ö═òO¬ü╦ ╧öº½ì╧òº½ê ╧ö╧òO¬ü╦ ╤! \fûûÿ½â╦¬à╘\f╒Q ╫ \f╦ÿ¼å┘\f┌\"ê█Uâ└▄▌P \"äƒ └▄▐▀Q \"½ë─α\"êéƒ └ß\"½╦ΓöΓòO #Σ#σ\"ë &½ï─τΦΘQ&\"ê¬ûΩ#!½åδ#∞\"ê─φεP##ê/═Y½ì0±Y½ç≥≤#P!ê*éƒ ─⌠⌡P #ê─╟ \"ê─÷!êéƒ ≈U½╫└°∙·Q\"¼ï└√ⁿ²■R\"½Ñ─ ü@ PüA ╩öº½Ä╩òº½ë╩ö╩òO¬ü╦!#êéƒ ─üB üC P!ê─üD \"ê─üE \"êéƒ üF U½╚\fûûÿ⃠└üG \"¡ö╩öº½Ä╩òº½ë╩ö╩òO¬ü╦ë H½É─üI üJ PH#ê¬ê─üK \"ê)éƒ üL U½│└üM \"½ƒ─üN ╩öº½Ä╩òº½ë╩ö╩òO¬ü╦#êéƒ ─üO \"êéƒ üP U½╛└üQ üR P\"½ñ─üS üT üU Q╩öº½Ä╩òº½ë╩ö╩òO¬ü╦\"êéƒ ─üV #êéƒ üW U½┴└üX \"½á═ö═òO╩ö╩òO Y Z─ü[ Y\f#ê*éƒ ─ü\\ !ê─ü] \"ê─ü^ \"êéƒ ü_ U½ì─ü` #êéƒ üa U½ï─üb \"êéƒ üc U½ï─üd \"êéƒ üe U½ï─üf \"êéƒ üg Uâè└üh \"½¼üA ╩öº½Ä╩òº½ë╩ö╩òO¬ü╦!ë iû j─ük lm#ê*éƒ └ün üo P\"äƒ └üp \"½ïüq ür !êéƒ └üs \"¼ë└üt \"½⌐û\fûÿ⃠─üu ╩öº½Ä╩òº½ë╩ö╩òO¬ü╦#êéƒ ─üv üw P\"ê─üx \"ê─üy !êéƒ üz U¼êü{ U½ì─ü` #êéƒ ü| U½ï─ü} \"êéƒ ü~ U½æ─ü üÇ Pü#êéƒ üé Uâp└üâ üä üà Q \"¼î└üå üà P \"½ß╩öº½ì╩òº½ê ╩ö╩òO¬ü╦═öº½ì═òº½ê ═ö═òO¬ü╦ ç ê─üë üè Pç#ê─üï lê╦ÿ½îüî üì üÄ Q¬ëüÅ êüÅ Qm$ê*éƒ ─üÉ !ê─ü] \"ê─üæ \"êéƒ üÆ U½╨└üô \"½«╩öº½Ä╩òº½ë╩ö╩òO¬ü╦ ö─üò lö\fm%êδö∞\"ê)éƒ ─üû !ê─üx \"ê─üæ \"êéƒ üù U½òû\fûÿ⃠─üÿ \"êéƒ üÖ Uâ└üÜ ü¢ ü£ ü¥ R\"¼ì└ü₧ üƒ P \"âô╩öº½Ä╩òº½ë╩ö╩òO¬ü╦ á═öº½Ä═òº½ë═ö═òO¬ü╦ íüó öº½öüó òº½ìüó öüó òO¬ü╦ úí╦ÿ½äñ¬éí Háúÿ½äá¬ïúüÑ áüª R º─ü¿ ü⌐ ü¬ QºH#ê-éƒ └ü½ ü¼ ü¡ ü« R\"½°╩öº½Ä╩òº½ë╩ö╩òO¬ü╦═öº½Ä═òº½ë═ö═òO¬ü╦üó öº½öüó òº½ìüó öüó òO¬ü╦ » H ░└ü▒ »\"½ô─ü▓ ü│ ü┤ Q░H#ê¬Ä─ü╡ ü┤ P░H#ê+éƒ └ü╢ ü╖ ü╕ ü╣ R \"½Ñ╩öº½ì╩òº½ê ╩ö╩òO¬ü╦ ║─ü╗ ü╝ P║\"ê)éƒ └ü╜ ü╛ ü┐ Q \"¼¬└ü└ ü┴ P \"¼₧└ü┬ ü├ ü─ Q \"¼Å└ü┼ ü╞ ü─ Q \"½í╩öº½ì╩òº½ê ╩ö╩òO¬ü╦ í─ü╟ í\"ê)éƒ └ü╚ \"½▒─ü╔ ═öº½Ä═òº½ë═ö═òO¬ü╦╩öº½Ä╩òº½ë╩ö╩òO¬ü╦#êéƒ û\fûÿ⃠─ü╩ ü╦ ü╠ ü═ R \"ê─ü] \"ê─ü╬ !êéƒ ü╧ U½α└ü╨ ü╤ P\"½║╩öº½Ä╩òº½ë╩ö╩òO¬ü╦═öº½Ä═òº½ë═ö═òO¬ü╦ ╥ ö─ü╙ ö╥#ê*éƒ ─ü╘ !ê─üx \"ê─üæ \"êéƒ ü╒ U½╬└ü╓ \"½║╩öº½Ä╩òº½ë╩ö╩òO¬ü╦═öº½Ä═òº½ë═ö═òO¬ü╦ ╫ #─ü╪ ##ê*éƒ ─ü┘ \"êéƒ ü┌ U½ì─ü` #êéƒ ü█ U½ì─ü▄ #êéƒ ü▌ U½ï─ü▐ \"êéƒ ü▀ U½ƒ\f╦ÿ¼èû\fûÿ⃠─üα üß P\"êéƒ üΓ U½ï─üπ \"êéƒ üΣ U½ï─üσ \"êéƒ üµ U½ï─üτ \"êéƒ üΦ U½ï─üΘ \"êéƒ üΩ U½î─üδ #êéƒ ü∞ U½╧└üφ \"½╖─üε ü∩ P╩öº½Ä╩òº½ë╩ö╩òO¬ü╦╩öº½Ä╩òº½ë╩ö╩òO¬ü╦$êéƒ ─ü≡ ü± P\"êéƒ ü≥ U½ñ└ü≤ \"êΓöΓòO ⌠─ü⌡ ü÷ P⌠ë$ê)éƒ ü≈ U½µ└ü° ü∙ ü· Q \"¼Ü─ü√ üⁿ P \"ê─╟ \"ê─ü² !êéƒ ╩ö╩òO ═ö═òO üó öüó òO ■ ö \fû ûÿ¼å┘ ┌\"ê┘ö∞\"ê─ü ■\"ê+éƒ üU½╟└üüP \"¼í─üüüQ #ê─ü] \"ê─ü!êéƒ ╩ö╩òO H─üü PH#ê)éƒ ü\nU½╩└ü \"½¿╩öº½Ä╩òº½ë╩ö╩òO¬ü╦ \f─üüP\f\"ê)éƒ ─ü!ê─ü\"ê─üE \"êéƒ üU½╩└ü \"½¿╩öº½Ä╩òº½ë╩ö╩òO¬ü╦ \f─üüüQ!ê)éƒ ─ü!ê─ü\"ê─üE \"êéƒ üU½─û\fûÿ⃠└ü \"½ú─üü└üüP \"½àü ¬âü Q\"êéƒ ─ü ü P\"êéƒ ü U½╜ü! ½¿└ü\"\"½ƒ─ü#╩öº½Ä╩òº½ë╩ö╩òO¬ü╦#êéƒ ─ü$ü%P\"êéƒ ü&U½Å─ü'ü(P\fû\"ê¬ⁿü)U½è─ü*\"ê¬Ωü+U½î─ü,ü-P!ê¬╓ü.U½│└ü/\"½á≥ü0ü1╩öº½Ä╩òº½ë╩ö╩òO¬ü╦\"!ê¬Ñ─ü2\"ꬢ─ü3ü4P #ê─ü] \"ê─ü5!ê.╫ç" [string-match "^:\\(.*\\) +\\([4-5][0-9][0-9]\\) +" "\\([^: ]*\\)? *:? *\\(.*\\) *$" str irc-insert "%%Received an ERR message with unknown format in" " function irc-parse-ERR:" "%% \"%s\"." "%%Please report this to %s." irc-hacker 1 "" srvr 2 code 4 txt string-to-int num irc-server "(" ") " parorg nil tmp1 irc-remember irc-servernames 401 "^[^: ]+ +401 +[^: ]+ +" ":Hunting +for +ghosts +?.*$" ":Cannot +kick +user +off +" "channel *$" "%%%sCan't boot that user from that channel." "^@?[^:@ ]+" 0 user irc-recall irc-services is-service "%%Service %s isn't reachable at" " the moment, please try again" " later." irc-is-nickname irc-forget irc-nicknames "%%%sThere is no user called" " \"%s\" on IRC at the moment." irc-major-version irc-minor-version 6 irc-send "WHOWAS :" "%%%sUnrecognized NO SUCH NICK" " message follows; please tell %s:" "%%Function irc-parse-err, at 401." 402 "^ *\\(.+\\) *: *" "\\(\\*\\*\\* * \\)?No +such +" "server *.? *$" "^:? *\\** *No +such" " +server *( *" "\\([^: ]+\\) *) *.?" " *$" "%%%sThere is no server \"%s\" on the" " IRCnet at the moment." irc-nuke-whitespace "%%Unknown ERR 402 message received" " in function irc-parse-ERR:" "%% txt=\"%s\"." "%% Please tell %s, it might be a bug." 403 "^\\([^: ]+\\) *:.*$" chn "%%%sThere is no channel called" " \"%s\" in use right now." "%%%sNo such channel in use." 404 "^ *\\([^ :]+\\) *:" "%%%sChannel %s rejected the message." "%%%sChannel rejected the message." 405 "^ *\\([^ ]+\\) *: *You +have +joined" " +too +many +channels.? *$" "%%Failed joining channel %s, as you're" " already listening to too many" " channels." "*** %s %s." 406 "^ *\\([^: ]+\\) *: *\\(.*\\) *$" n m "%%No trace left about \"%s\" in history of server %s." "%%Unknown type 406 error message from server:" "%% \"%s\" (str)." "%% Please tell %s, it migth be a bug." 409 "%%%s%s" 411 "%%%sThe last message had no recipient." 412 "%%%sThe last message had no text to send." 413 "%%%sNo top level domain specified (no such receiver)." 421 "^CLIENT-SYNCH :?\\(.*\\) *:Unknown command$" cmd ucmd "%sEnd of quoted command%s" irc-msg-info-pre irc-msg-info-post "^\\(MODE\\|KICK\\|JOIN\\|PART\\)" ".*Unknown :?command *$" "^CLIENT-START *: *Unknown *command *$" run-hooks irc-startup-hook "^\\(.*\\) :?Unknown :?command$" "^:?Unknown command \\(.*[^ ].*\\) *$" "%%%sUnknown server command: %s." "%%%sUnkown server command," " reported in unknown format:" "%% \"%s\" (txt)." "%% Function irc-parse-err, at 421." 422 423 431 "%%%sNo nickname give to change to." 432 "%%%sBad format for nickname change. Your" " nickname is \"%s\"." irc-nick-used 433 "^:[^: ]+ +433 +" "\\([^: ]+\\) +" "\\([^: ]+\\) +:" "^:[^: ]+ +433 +\\(\\)" failed current "%%%sNickname \"%s\" is already being" " used, please choose another one." "%sHmmm ... looks like you're still %s%s" "without a nickname, use \"/HELP" " NICK\" to get help about how to" " set one" "\"" "%%Unknown ERR 433 type message received:" "%% Please tell %s." 436 "^\\([^ :]+\\) :Nickname collision KILL$" nick "%sUser %s killed due to NAMECLASH at %s%s" "%%Unknown ERR 436 type message received:" 441 "%%%sYou're not on any channel." 442 "^ *\\([^ :]+\\) +" "\\([^ :]+\\) *: *" "\\([^ :]+\\) +is +not" " +here *.? *$" "^ *\\([^: ]+\\) *\\(\\):\\" "([^: ]+\\) +is +not +here *$" o1 c 3 o2 irc-channel " (" ")" name "%%You can't change the channel" " operator status of %s while s/he" " isn't here on %s." "^ *\\([^ :]+\\) +\\([^ :]+\\)" " *: *\\(isn't +on +your" " +channel\\|Cannot +kick" " +user +off\\ +channel\\)" msg who "^isn't" "%%Can't /KICK %s while" " s/he's not on your" " channel %s." "%%Failed to /KICK %s from" "^: *[^: ]+ +442 +[^: ]+" " +\\([^: ]+\\) *: *" "isn't *on *your *" "channel *!* *$" u "%%Can't /kick user %s while s/he's" " not on this channel." ":[^: ]+ +442 +[^: ]+" " +\\([^: ]+\\) +: *You're +not" " +on *\\(that\\)? +channel *$" "^:[^: ]+ +442 +[^: ]+ +\\([^ ]+\\) *: *Not" " *On *Channel$" "^[^: ]+ +442 +[^: ]+" " +\\([^ ]+\\): *You're +not +on" " +channel +\\([^ ]+\\) *$" "^:[^: ]+ +442 +[^: ]+" " *: *You're +not on" "%%You're not on channel %s." "^\\([^ :]+\\) *:\\(.*\\)$" "%%%s: %s" "%%Unknown format on" " ERR_NOTONCHANNEL message;" " please tell %s, it might be" " a bug:" "%% Function irc-parse-ERR, at 442." 443 "^\\([^: ]+\\) +\\([^: ]+\\) +" ":is already on channel.?$" chan "%%User %s is already on channel %s." "%%Unknown ERR433 message seen in irc-parse-ERR:" 444 "^\\([^: ]+\\) +:\\(.*\\)$" mesg "%%%sNo such user as \"%s\" logged in." "%%%sNo such user logged in." 445 446 "%%%sCommand /%s" 451 "%%%sYou haven't checked in yet. Choose a nickname." 461 "%%%sThere weren't enough arguments for" " the last command." 462 "%%%sYou've already registered." 463 "%%%sYour host isn't permitted." 464 "%%%sThat password is incorrect." 465 "%%%sYou've been banned from IRC." 466 "%%%sYou will be banned from IRC (%s)." 467 "^\\([^ :]+\\) :" "%%%sChannel %s already has a key, use" " /MODE %s to see it." "%%%sChannel already has a key, use /MODE" " to see it." 471 "^[^: ]+" s "%%%sChannel %s is full. (Check limit with" " /MODE %s)" 472 "^: *\\([^: ]+\\) +472 +" "\\([^: ]+\\) +\\(.*\\) +:?is +" "unknown +mode +char +to +me *$" "%%Unrecognized type 472 message;" " please tell %s:" "%% Function irc-parse-ERR, at 472." chr srv "%%Character \"%s\" is not a MODE character." 473 "^:[^: ]+ +473 +[^: ]+ +" "\\([^ ]+\\) +.*" "%%%sUnknown format on" " ERR_INVITEONLYCHAN; please tell" " %s, it might be a bug:" "%% Function irc-parse-ERR, at 473." "%%%sYou need an invitation to join" " invitation-only channel \"%s\"." 474 "^\\([^ ]+\\) +:" channel "%%Can't join channel %s -- you're" " banned from it." "%%Unknown ERR474 seen in irc-parse-ERR:" "%% \"%s\" (txt)" 475 "%%Can't join channel %s -- you" " haven't supplied the right channel" " key/password." "%%Unknown ERR475 seen in irc-parse-ERR:" 481 "CHANNEL" "%%%sYou must be a channel operator" " to " ":Cannot set topic, not" " channel OPER$" "set the channels topic." "do that." "%%%sYou must be an enabled IRC" " Operator to do THAT!" 482 irc-server-has-channelname-in-msgs "^\\([^ ]+\\) *:.*$" "%%%sYou're not a channel operator for %s!" "%%%sYou're not a channel operator on" " that channel!" 491 "%%Password check failed at server %s," " you're still a disabled luser." 501 "%%%s." 502 "%%You can't change, not even look at, other" " user's modes." 513 "^To connect, type /QUOTE PONG \\([1-9][0-9]*\\)$" format "PONG :%s" "%%Unknown MSG 513 \"%s\"" "%%%sUnrecognized numeric ERR message" " follows; please tell %s:" "%%Function irc-parse-err, at catch all."] 8 "\
Examine a numeric ERR_ message from the IRC server. Numeric
control messages are used by newer servers to aid in generalized
client design; while people are converting to the new servers the
older irc-parse-error, irc-parse-notice, et al, functions are
redundant with irc-parse-ERR and irc-parse-RPL. Values used by this
function are found in the IRC source file numeric.h.
Note well that some things are still going to come out wrong because the
servers are currently still doing things inconsistently."])
NAMREPLY is used in repsonse to NAMES to indicate what users are on what
channels. All users on secret or private channels which the client is not
on are grouped together on one private channel.
No signals are issued for NAMREPLYs."])
(fset 'irc-parse-nick #[(str) "└┴\n\"âì ├öº½ì├òº½ê\n├ö├òO¬ü─ ╞öº½ì╞òº½ê\n╞ö╞òO¬ü─ ╩╦\"¼à╠═\"ê╬═\"êûûÿ½ë╧╨ !ê╩╤\"½Ä╠╤\"ê╬╤\"ê╥¬í╙>½Üû ûÿ¼æ╒╓%ê┘┌\"¬ü╥+ç╒█!ê╒▄\n\"ê╒▌ \"ç" [string-match "^: *\\([^ :]+\\) +NICK +:?\\([^ :]+\\) *$" str 1 "" old 2 new irc-nick-used current irc-recall irc-services irc-forget irc-nicknames irc-remember set-buffer-modified-p buffer-modified-p irc-ignored-ppl nil nick irc-events irc-insert "%s%s is now known as %s%s" irc-msg-info-pre irc-msg-info-post irc-signal user "%%Unknown NICK seen in irc-parse-nick:" "%% \"%s\" (str)." "%% Please tell %s, this might be a bug." irc-hacker] 6 "\
Examine a NICK message from the IRC server.
NICK is sent when a user's nickname is changed, but it is only sent to the
people on the same channel as the user. If the person changing names is
being ignored, this fact is tracked across the change. If notification
is not enabled for \"nick\" then no message is inserted.
This function returns t if a signal should be issued for the \"nick\" event,
nil otherwise."])
(fset 'irc-parse-notice #[(str) "└┴┬P \"½ö ─ö─òO ┼ö┼òO ╞ò╟OE¬ä╚ë Eë @╚ÿ½ä\n¬â @ë û\nûÿ½â╚¬é ë \f╚ÿ½â╚¬à═\f╬Q A@ AA@ ╥! ╟ \n;¼Ä╒╩!;½à╒╩!¬ü╚\n½è╓!½ä╪\f┘\"ê\fû┌ÿ½ê└█\"ä▄▄\f▌\"½¢╪\f▌\"ê╪\f▐\"ê▀α!\f\"%êé▄└πΣP\"½╣─öº½Ä─òº½ë─ö─òO¬ü╚┼öº½Ä┼òº½ë┼ö┼òO¬ü╚ % &▀τ%û&#ê*é▄└ΦΘP\"½º─öº½Ä─òº½ë─ö─òO¬ü╚ *▀δ! û*\"%ê)é▄└∞φεQ\"âτ┼öº½Ä┼òº½ë┼ö┼òO¬ü╚∩öº½Ä∩òº½ë∩ö∩òO¬ü╚≡±öº½Ä±òº½ë±ö±òO¬ü╚! 2 3 4└⌡2\"½▐▀÷≈P!\"#ê°∙4·√ⁿ²■3 2ü@ üA üB üC üD üE üF GüH ░!ê°∙4üI üJ üK üL üM üN üO üP GüQ üR ░!ê+é▄└üS üT P\"½╔╥─öº½Ä─òº½ë─ö─òO¬ü╚! U\fûUûÿ¼å╪U┘\"ê▀üV \f\nÿ¼å\f╚ÿ½â╚¬à═\f╬QUû#ê)é▄└üW \"½│╥─ö─òO! X\fûXûÿ¼å╪X┘\"ê▀╚!ê▀üY X\"êüZ ü[ !ê)é▄└ü\\ \"½öü] ^╥╞ò╟O!C\"^é▄└ü_ \"½û^â▄▀ü` ^@\"ê^Aë^¬l└üa üb P\"½Æ▀üc üd üe Q\"êé▄└üf \"½│\f╚ÿ½Ä▀üg !\"$ê¬Ä▀üh !\f\"%êüi jüZ ü[ !êé▄└ük ül P\"½ÿ▀üm ün üo Q≡╞ò╟O!\"êé▄└üp üq ür Q\"½▄üs ╥┼öº½Ä┼òº½ë┼ö┼òO¬ü╚!!ë t;½ät¬ü╚ U\fûUûÿ¼å╪U┘\"ê▀üu !\f╚ÿ½â╚¬ç═\füv QUû\"%ê*üw êé▄└üx üy P\"¼╡└üz ü{ P\"¼¿└üz ü| P\"¼¢└ü} ü| P\"¼Ä└ü~ ü| P\"âu─ö─òO ┼ö┼òO Ç∩ö∩òO ü±ö½ë±ö±òO¬éü éüûéûÿ¼ë═éüv Q¬√└üâ ü\"½±─öº½Ä─òº½ëü─ö─òO¬ü╚üä ┼öº½Ä┼òº½ëü┼ö┼òO¬ü╚!üä ∩öº½Ä∩òº½ëü∩ö∩òO¬ü╚! à åë çüüê üë åë─U½â╚¬âüè àë─U½â╚¬âüè %+¬ü╚ ï└üî Ç\"½½┼öº½Ä┼òº½ëÇ┼ö┼òO¬ü╚─öº½Ä─òº½ëÇ─ö─òO¬ü╚B¬ª└üì Ç\"½Ö\f─öº½Ä─òº½ëÇ─ö─òO¬ü╚B¬äÇ╟B Ä≡Ä@! ÅÄA Éüs Å! æüs ü! Ææ½Å\fûæûÿ¼å╪æ┘\"êƽÅ\fûÆûÿ¼å╪ü┘\"êûüô ÿ½ÿ▀üö !üûïÅû\"&êép└üò û\"½≤└üû ü\"º½Θ─öº½Ä─òº½ëü─ö─òO¬ü╚┼öº½Ä┼òº½ëü┼ö┼òO¬ü╚ ù 4╪4▐\"êÉ;½Ö▀üÿ !ÉÅû4ùû\"&ê¬ò▀üÖ !Åû4ùû\"&ê*ép└üÜ û\"½╔└üû ü\"º½┐ü┼ö┼òO ù▀ü¢ ü£ P!ûü¥ ÿ½àü₧ ¬Éüƒ üá üí óüú ░Åûùû\"&ê)¬├▀üñ !ûüÑ ÿ½àüª ¬Éûüº ÿ½àü¿ ¬éÅûÉ;½ïüê ü⌐ É\"¬ü╚üûïù\"&ê.\né▄└ü¬ ü½ ü¼ Q\"½ò▀ü¡ ┼ö┼òO\"êüw êé▄└ü« ü» P\"½╘üä ─öº½Ä─òº½ë─ö─òO¬ü╚!üä ┼öº½Ä┼òº½ë┼ö┼òO¬ü╚! ░ É▀ü▒ !░ë─U½â╚¬âüè É\"&ê*é▄└ü▓ ü│ ü┤ Q\"½╤─ö─òO┼ö┼òO ╡ ╢▀ü╖ !\f╚ÿ½ä\n¬é\fûü╕ ╞ü╣ ╡GZ]ü║ \"╡ëü╗ ÿ½àü╝ ¬âüè ╢\"&ê*é▄└ü╜ \"½¼╞ò╟O ╛ü┐ ╛┘\"ê▀ü└ \f╚ÿ½â╚¬ç═\füv Q╛#ê)é▄└ü┴ ü┬ P\"½¥▀ü├ !─ö─òOû┼ö┼òOû\"%êé▄└ü─ ü┼ ü╞ Q\"âb─ö«ü╞─ò«ü╞O ╟┼ö«ü╞┼ò«ü╞O ╚∩ö«ü╞∩ò«ü╞O ╔±ö±òO \fü╣ öü╣ òO ╩ü╦ öü╦ òO ╠╟╚ÿ¼àü═ ¬Ö╚╚ÿ¼àü╬ ¬Ä╔╚ÿ¼àü╧ ¬âü╨ ╪╩▐\"ê▀üÖ !\fû╩╠û\"&ê.é▄└ü╤ ü╥ ü╙ Q\"½┐üä ┼öº½Ä┼òº½ë┼ö┼òO¬ü╚! ╘▀ü╒ ╘─U½àü╓ ¬âü╫ ╘ë─U½â╚¬âüè $ê)é▄└ü╪ ü┘ P\"½┐üä ∩öº½Ä∩òº½ë∩ö∩òO¬ü╚! ╘▀ü┌ ╘─U½àü╓ ¬âü╫ ╘ë─U½â╚¬âüè $ê)é▄└ü╪ ü█ ü▄ Q\"½╫üä ∩öº½Ä∩òº½ë∩ö∩òO¬ü╚!±öº½Ä±òº½ë±ö±òO¬ü╚ å ╘▀ü▌ ╘─U½àü╓ ¬âü╫ ╘ë─U½â╚¬âüè å%ê*é▄└ü▐ \"½¡╞ò╟O ▀▀üα \f╚ÿ¼ë\fû\nûÿ½â╚¬ç═\füv Q▀#ê)é▄└üß üΓ P\"½á─öº½Ä─òº½ë─ö─òO¬ü╚ 4╪4▐\"ê)é▄└üπ üΣ ü┬ Q\"âs ─öº½Ä─òº½ë─ö─òO¬ü╚ å┼öº½Ä┼òº½ë┼ö┼òO¬ü╚ σüs å!ù åüµ p! τüΦ åΘ\" Ω╟ δü∞ ╩å\"êå\nτΩÖ½çüφ Ω!ê\fûåûÿ¼å╪å┘\"ê└üε ü∩ ü≡ Qσ\"¼¢└üε ü± Pσ\"¼Ä└üε ü≥ Pσ\"â3 ╟ ┼öº½Ä┼òº½ëσ┼ö┼òO¬ü╚ ≤∩öº½Ä∩òº½ëσ∩ö∩òO¬ü╚ ⌠±öº½Ä±òº½ëσ±ö±òO¬ü╚ ⌡ü╣ öº½öü╣ òº½ìσü╣ öü╣ òO¬ü╚ ÷⌠╚ÿ½â╞¬åüä ⌠! ⌠÷╚ÿ½â╞¬åüä ÷! ÷└ü≈ ≤\"½öüê ü° ≤╞H\"≤─╟O≤∙üä ≤!·⌠√⌡δ÷ⁿ.¬ê▀ü² σ\"ê·┼U½Ö√ü╦ U½æδûü■ ÿ¼êⁿü \\ⁿ▀╚!ê▀ü å\"ê▀üσ\"ê.é▄└ü\"½Å▀ü╞ò╟O\"êé▄└üüP\"½≥≡╞ò╟O! σ└üüPσ\"½║σ─ö─òOσ┼ö┼òOσ∩ö∩òO \nüä \n!·üä !√üä !ⁿ+°ü !ê▀ü\füPσ\n#êüZ ü[ !ê)é▄└üüüüR\"â┼öº½Ä┼òº½ë┼ö┼òO¬ü╚ ∩öº½Ä∩òº½ë∩ö∩òO¬ü╚ ±öº½Ä±òº½ë±ö±òO¬ü╚ ü╣ öº½öü╣ òº½ìü╣ öü╣ òO¬ü╚ ü╦ öº½öü╦ òº½ìü╦ öü╦ òO¬ü╚ ╚ÿ½â╚¬ìü╝ R üä ! ╘▀ü╘─U½àü╓ ¬âü╫ ╘─U½â╚¬âüè üä !─U½â╚¬âüè &ê.é▄└üüP\"½▓┼ö┼òO ░▀ü░ü╗ ÿ½àü╓ ¬âü╫ ░ëü╗ ÿ½â╚¬âüè $ê)é▄└ü ü P\"âα┼öº½Ä┼òº½ë┼ö┼òO¬ü╚ à∩öº½Ä∩òº½ë∩ö∩òO¬ü╚ åüä à! üä å! ─U½àü╓ ¬âü╫ ─U½àü!¬âü\" # ─U½àü$¬âü% &▀ü' # &&ê.é▄└ü(ü)ü*Q\"â╞─ö─òO +┼öº½Ä┼òº½ë┼ö┼òO¬ü╚ ,╞ò╟O -└ü.,\"½ê╞ò╟O¬Åü/,!½à,¬ü╚ 0└ü1-\"â█─öº½Å─òº½è-─ö─òO¬ü╚ 2┼öº½Å┼òº½è-┼ö┼òO¬ü╚ 3∩öº½Å∩òº½è-∩ö∩òO¬ü╚ 4╓3! Åü╕ !ü5PGü║ \" 6▀ü7Žàü8¬âü9P!+≡2!û≡3!û≡4!û\"&ê-é┬└ü:-\"¼ï└ü;-\"â▓─öº½Å─òº½è-─ö─òO¬ü╚ å┼öº½Å┼òº½è-┼ö┼òO¬ü╚ <∩öº½Å∩òº½è-∩ö∩òO¬ü╚ ▀≡å! =≡<! >└ü?>\"½àü@¬âüA ≡▀!ë B╚ÿ½â╚¬ê Büv Q C└ü?>\"½ë╪>┘\"ê¬ç╪>▐\"ê▀üD!>=+C\"&ê.°üE+P!ê¬É▀üF!+-\"%ê,é▄└üG\"¼ë└üH\"½ÿ\f╚ÿâ▄▀üIüJP!\"#êé▄└üK\"½ö\f╚ÿâ▄▀üL!\"#êé▄└üMüNüOüPüQüRüSüT░\"½╧─ö─òO┼ö┼òO∩ö∩òO ü U 4▀üV4ü╕ ╞üW4GZ]ü║ \"Uü╕ ╞üXUGZ]ü║ \"ü&ê+é▄└üY\"½┴─öº½Ä─òº½ë─ö─òO¬ü╚ åüs å!ë X;½Å\fûXûÿ¼å╪X┘\"ê▀üZü[PX\"ê*é▄└ü\\\"½í─ö─òO ▀▀ü]ü^P!ê▀ü_ü`P!ê)é▄└üaübücQ\"½ù▀üd!±ö±òOû\"%êé▄└ü¬ üeüfügR\"½ù▀ühüiP┼ö┼òOû#êé▄└üjükP\"½▒─ö─òO U╞ò╟O &üs U!û Xü┐ X┘\"ê▀ülXû&#ê+é▄└ümünP\"½▌─ö─òO┼ö«âüoT┼ò«ü─SO p q▀ürüsütQp╚ÿ½àq¬âpp╚ÿ¼ïqûpûÿ½â╚¬èüuqüvQ#ê*é▄└üwüxüyQ\"½⌐─ö─òO zü┐ z┘\"ê▀ü{ü|Pz\"ê)üw êé▄└ü}ü~üQ\"¼ô└üÇüüüéüâR\"½½üs ┼ö┼òO! Uü┐ U┘\"ê▀üäüàPUû\"ê)üw êé▄└üåüçP\"½æ▀üê─ö─òOû\"êé▄└üëüèP\"½╗─öº½Ä─òº½ë─ö─òO¬ü╚┼öº½Ä┼òº½ë┼ö┼òO¬ü╚ & t▀üïtû&#ê*é▄└üîüìüÄüÅR\"½∩─öº½Ä─òº½ë─ö─òO¬ü╚ É┼öº½Ä┼òº½ë┼ö┼òO¬ü╚ æüs É! Æüs æ! ô╚ÆÖ½æ\fûÆûÿ¼ç╪Æ┘\"ê▀üöüòPÉûæ#ê,é▄└üûüùüÿüÖR\"½╘─öº½Ä─òº½ë─ö─òO¬ü╚╞ò╟O Ü ¢ü/¢!½æ\fû¢ûÿ¼ç╪¢┘\"ê▀ü£ü¥ü₧üƒR¢Ü#ê*é▄└üáüíP\"½Æ▀üó─ö─òO #êé▄└üúüñP\"½û▀üÑ!─ö─òO \"%êé▄└ü}üªüºü¿R\"½¬┼ö┼òO∩ö∩òO ⌐ ¬▀ü½ü¼P⌐¬\n$ê*é▄└ü¡ü«P\"½╬─öº½Ä─òº½ë─ö─òO¬ü╚┼öº½Ä┼òº½ë┼ö┼òO¬ü╚ » ░╪░┘\"ê╪»┘\"ê▀ü▒░û»û#ê*é▄└ü}ü▓ü│ü┤R\"½╠┼ö┼òO∩ö∩òO Å ü\fûüûÿ¼å╪ü┘\"ê▀ü╡ü╢PüûÅû\nûÿ½ïü╖Åüv Q¬åü╕ÅP#ê*é▄└ü}ü╣ü║Q\"½á┼ö┼òO üü┐ ü┘\"ê▀ü╗üû#ê)é▄└ü}ü╝ü╜Q\"½╒╞ò╟O üüs ü!ë å;½äå¬ü╚ XüXG╟O ╛≡╛!ë t╚ÿ½äX¬étû U▀ü┐ü└ü┴ü┬RXU\n$ê.é▄└ü}ü├ü─Q\"½¡┼ö┼òO╞ò╟O & üü┐ ü┘\"ê▀ü┼üû&#êüw ê*é▄└ü╞ü╟P\"½₧─ö─òO U▀ü╚ü╔ü╩QU\n#ê)é▄└ü╦\"½ó▀ü╠ü═P─öº½Ä─òº½ë─ö─òO¬ü╚û\"êé▄└üîüìü╬üÅR\"½╙─öº½Ä─òº½ë─ö─òO¬ü╚┼öº½Ä┼òº½ë┼ö┼òO¬ü╚ ╧ ¢\fû¢ûÿ¼ç╪¢┘\"ê▀ü╨ü╤P¢╧#ê*é▄ü/\f!½▒└ü╥ü╙P\"½ñ▀ü╘ü╒P─öº½Ä─òº½ë─ö─òO¬ü╚\fû#êé▄└ü╓\"¼Ñ└ü╫\"¼£└ü╪\"¼ô└ü┘\"¼è└ü┌\"â¼─ö«ü╞ █─ò«â█ ▄█▄O ▀▀ü▌!╚ÿ¼ëûûÿ½â╚¬¼ü▐╓!½àü▀¬ÿüα!½àü߬ïüΓ!¡âüπü╝ R\f╚ÿ½â╚¬»└üΣ▀\"¼ë└üσ▀\"½ä¬Öüµü/\f!½àüτ¬âüΦü╝ \fR\f╚ÿ½Æ╚ÿ¼ëûûÿ½â╚¬âüΘ▀\"&ê+é▄└üΩüδü∞üφR\"¼É└üεü∩üÅQ\"½ê▀!êé▄└ü≡\"½╩─öº½Ä─òº½ë─ö─òO¬ü╚ ▀└ü±▀\"½ê▀╞ò╟O▀└ü≥▀\"½ê▀╞ëöO▀▀ü≤! ▀\"%ê)é▄û⌠ûÿ½ª\fû⌡ûÿ½£⌠\f⌡ü÷ 6▀ü≈\"ê)é▄⌠\f⌡╓\f!½ê╪\f▐\"ê¬Äü/\f!½å╪\f┘\"ê▀╚!êü° 6▀ü∙\f╚ÿ½àü·¬Ä╓\f!½àü√¬âüⁿ\f╚ÿ½àü$¬ëü²\fü²QûGûÿ½àü■¬é$êü 6▀ü≈\"ê*.ç" [string-match "^ *:? *\\([^: ]*\\)? *NOTICE *" "\\([^: ]*\\)? *:" str 1 2 0 nil "" lst irc-server srvnam srvr "(" ") " parorg rcvr msg irc-clean-up-message cmsg retval default-value irc-is-nickname irc-nick-used irc-remember irc-servernames "POXAV" "weenie" irc-recall irc-services irc-nicknames irc-insert "%s%s%s %s" irc-msg-info-pre irc-msg-info-post "^\\*\\*\\* *Notice *-- *Access *denied *" "(\\(.*\\)) *\\(.*\\) *$" refused-server reason "%%Refused server-link connection from server %s: %s." "^\\*\\*\\* *Notice *-- *Rehashing *Server" " *config *file *(\\(.*\\)) *$" file "%sServer %s has reloaded it's configuration file %s%s" "^\\*\\*\\* *Notice *-- *\\(Hack\\|Fake\\) *:" " *\\([^ ]+\\) +MODE +\\([^ ]+\\)" " *\\([^ ]*\\).*$" 3 irc-nuke-whitespace 4 mode channel user "\\+[^-]*[sp]" "%sWarning a user about seeing her/his" " secret channel join%s" irc-send "NOTICE " " :<Automatic warning> My" " client (but not I myself -- I don't even" " know who you are unless you'll tell me or" " you happen to be marked as being AWAY)" " saw you join channel " " (" "). The fact was broadcasted to everyone" " seeing WALLOPS messages on 2.7 (and later)" " servers. Your channel is probably" " without any special mode on other servers." " (But still look \"valid\" at yous site)." " If you have any questions, then don't send" " them to " irc-nick " but to the channel #Twilight_Zone." " :<Automatic warning> If" " you don't care about getting warned, but" " want to think you're invisible while being" " visible, and you happen to use a Kiwi" " client, you can do M-x set-variable RET" " irc-ignore-automatic-warnings RET t" " RET. If you're using ircII, instead do" " /on ^notice \"" " <Automatic" " warning>*: /^comment" "^\\*\\*\\* Message-of-today is missing" " on host \\([^: ]+\\)? *$" host "%%%sNo message of the day at server %s." "^MOTD *- ?*\\([^: ]+\\)? *message +of +the +day *-? *$" server ">>> Message of the day at server %s:" set-buffer-modified-p buffer-modified-p "^MOTD *- ?" append irc-motd-lines "^\\* *end +of +/?motd +command. *$" ">>> %s" "^\\*\\*\\* *Error *: *No +mere +mortals +" "may +trace +the +nets +of +the +universe *$" "%%%sYou must be an enabled IRC operator to trace" " the IRCnet, use /OPER to enable yourself. An" " alternative is to use /STATS L, do /HELP STATS." "^Good afternoon, gentleman\\. I am a HAL 9000" "%sOperator status for %s ENABLED%s" "%sOperator status at %s for %s ENABLED%s" " IOPR" irc-operator "^\\*\\*\\* *notice *-- *Received" " +unauthorized +connection +from +" "%%Something at internet host %s tried to" " establish a connection with us. Refused" " as it isn't enabled in the confiugation file." "^\\*\\*\\* *Notice *\\(:\\|--\\) *Link" " +with +\\([^ ]+\\) +established" " *.? *$" irc-extract-hostname h "%s%sLink with %s established%s" ")" irc-later-execute-lusers "^\\*\\*\\* *\\([^ ]+\\) +\\([^:]+\\) *" "==> *\\(.+\\) *$" "^\\*\\*\\* +\\(Connection\\) +\\([^ ]+\\) +" "==> +\\([^ ]+\\) +\\[\\([^ ]+\\)\\] *$" "==> +\\([^ ]+\\) *$" "^\\*\\*\\* +\\(Link\\) +\\([^ ]+\\) +" "^\\*\\*\\* +\\(<newtype>\\) +\\([^ ]+\\) +" type lcl remote address "^\\([^ ]+\\) +\\([0-9]+\\)S +\\([0-9]+\\)C$" string-to-int c s x format " (%d server%s, %d client%s)" "s" extra "^ *CLASS\\[\\([0-9]+\\)\\] +\\([^: ]+\\) *$" "^ *CLASS\\[\\([0-9]+\\)\\] *$" p local class lserv rserv "LINK" "%s%s to %s%s goes through %s%s" "\\(CHANOP\\|OPER\\|USER\\)" "^\\([^[]*\\)\\[\\([^: ]+\\)\\]$" cm "%s%s of class %3s at server %s: \"%s\" (client on %s)%s" "%s%s at server %s: \"%s\" (client on %s)%s" "\\(UNKNOWN\\)" "%s%s at server %s from internet" " host %s%s" "UNKNOWN" "Half open connection" "<Unknown type (%s) in function" " irc-parse-notice, please" " tell " irc-hacker ">" "%s%s at server %s to%s server %s%s%s" "CONNECTION" "Serverlink" "CONNECTING" "Server-search" " class %3s" "^\\*\\*\\* *Notice *\\(:\\|--\\)" " *No +response +from +" "\\([^ ]+\\) *, *closing +link *$" "%%Closed serverlink to %s due to lack of respone." "^\\*\\*\\* *Class +\\([0-9]+\\) *" "Entries *linked *: *\\([0-9]+\\) *$" count "%s%s%d service%s linked for class %3d%s" "^\\([A-Za-z]+\\) +has +been +used +" "\\([0-9]+\\) +times? +after +" "startup *$" cnt cmd "%sServer %s has seen %s%s command%s of type %s%s" make-string 5 32 "1" " " "^\\*\\*\\* *No +such +server *" unknown irc-forget "%%%sNo such server: \"%s\"." "^\\*\\*\\* *unknown \\([^: ]+\\) *==> *" "\\([^: ]+\\) *$" "%sUnknown connection at server %s to host %s%s" "^\\*\\*\\* *\\(User\\)?\\(ChanOp\\)?" "\\(Oper\\)? +\\([^: ]+\\) *==> *" "\\([^: ]*\\) *\\[\\(.\\|\n\\)*\\] *$" first second third nick 6 client "User" "Channel operator" "IRC operator" "?UNKNOWN?" "^\\(\\*\\*\\*\\)? *\\([0-9]+\\) +users* +" "\\(have\\|has\\) +connection +to +the +" "twilight +zone *$" n "*** There %s %d enabled operator%s online." "is" "are" "^\\(\\*\\*\\*\\)? *There \\(is\\|are\\) +" "+\\([0-9]+\\) +channels*. *$" "*** There %s %d channel%s." "+\\([0-9]+\\) +clients* +connected +" "to +\\([^ ,]+\\).*$" "*** There %s %d client%s on %s." "^###" m "###%s%s" "^\\*\\*\\* *welcome +to +the +internet +" "relay +network *, *\\([^: ]+\\) *$" "^\\*\\*\\* *Your +host +is +" "\\([^ ,]+\\) *, *running +version +" vrsn buffer-name cur-bufname irc-host+port-to-buffer-name irc-port new-bufname pre-kludge set-default rename-buffer "^\\([Ii][Rr][Cc][Dd]?\\)?\\([u0-9]+\\)" "[^0-9]+\\([0-9]+\\)\\([^0-9]+\\)" "\\([0-9]+\\)" "[^0-9]+\\([0-9]+\\)\\(\\)" "\\(\\)\\(\\)" major minor kludge edit "^u" "%c" irc-type-version irc-major-version irc-minor-version irc-edit-version "%%Failed parsing vrsn \"%s\" in irc-parse-notice." "PRE" 10000 "*** Welcome to the IRC server at %s!" "*** The server's version is %s," "^\\*\\*\\* *This +server +was +created +" "*** and it was created %s." "^\\*\\*\\* *Welcome +to +Internet +Relay +" "Server *" "^[^0-9]*\\([0-9]+\\)\\.\\([0-9]+\\)" "[^0-9]+\\([0-9]+\\)?.*$" edt min maj "MOTD" "*** Welcome to the Internet Relay Chat server " "version %s at %s!" "^\\(\\*\\*\\*\\)? *There +are +\\([0-9]+\\) +" "users +\\(and +\\|(\\)?" "\\([^0-9]*[0-9]+ invisible\\)?\\()\\)? *" "on +\\([0-9]+\\) +servers *$" ucount sdelim invstr edelim scount inv "*** There %s %s user%s%s on %s server%s." "^\\(\\*\\*\\*\\)? *There +are \\([0-9]+\\) +" "yet +unknown +connections *$" "*** There %s yet %s unknown connection%s." "^\\(\\*\\*\\*\\)? *I +have +\\([0-9]+\\)" " +clients +and \\([0-9]+\\) +servers *$" cn sn isare "client" "clients" cstr "server" "servers" sstr "*** There %s %d %s and %d %s on this server." "^\\*\\*\\* +Notice *:?-?-? +Received +KILL" " +message +for +\\([^ ]+\\).\\( +From [^ ]+\\)?" " +Path: *" sender f path "^From " irc-is-hostname from "\\([^!]+\\)!?(\\([^ ]*\\) *<- *\\([^ ]*\\)) *$" at old new "User " irc-msg-cont-used "%s%s COLLIDED at %s, " "local user %s seen on link from %s%s" "was on %s, now from %s%s" "\\([^!]+\\)!\\([^=][^! ]*\\) +(\\(.*\\))$" "\\([^!]+\\)!\\([^=][^! ]*\\) *\\(\\)$" o site oper "\\." "Server" "Operator" m2 mesg "%sOperator %s (@%s) /KILL'ed user %s%s%s" "WHOWAS :" "%sUser %s KILL'ed, path: %s%s" "^ *You +have +been +marked +as +being +away *$" "^ *You +have +marked +as +being +away *$" "%sYou have been marked as being away," " use /HERE to revert the effect%s" "^ *You +are +no +longer +marked +as +being +away *$" "%sYou are no longer marked as being away%s" "^ *\\([^: *]*\\) *" "\\(tty[^: ]+" "\\|pty/tty[^: ]+" "\\|vt[0-9]+" "\\|pt[^: ]+" "\\|display" "\\|console\\) *" "\\([ -~]+\\)?.*$" tty "%s%s %s%s %s" 39 14 " *Nobody +logged +in +on +\\([^: ]+\\) *$" "%%No users logged in on the Internet node" " which runs the IRC server %s at the moment." "^ *\\(UserId +Terminal +Host\\) *$" "Login name " "TTY Logged in from" "--------------------------------------- " "-------------- --------------" "^\\*\\*\\* *\\(Notice\\)? *\\(:\\|--\\)?" " *Connecti\\(ng\\|on\\) *to" " +\\(.+\\) +activated.? *$" "%s%sTrying to establish a serverlink to %s%s" " *Failed *in *connecting *to" " *\\([^: ]+\\) *: *Socket *is" " *not *connected *.? *$" "%%%sFailed to establish a serverlink to %s;" " no active server at other end." "^\\*\\*\\* *Notice *: *Connect +" "to +host +\\(.\\|\n\\)* +failed *:" "%%Failed to establish a serverlink to %s; %s." "^\\*\\*\\* Notice: Access denied (no such server" " enabled) \\([^ ]+\\) *\\(\\[[^ ]+\\]\\)? *$" -1 truename claimed "%%Rejected attemp by internethost \"%s\"%s to" " establish a serverlink; that host isn't enabled" " in the configuration file." " (claiming to be \"" "\")" "^ *\\*\\*\\* +Notice *: +No +" "response +from +\\([^: ]+\\) +, +" "closing +link *$" removed-server "%%Failed to get any response whatsoever from" " server %s, removing the serverlink to it." "^ *\\*\\*\\* *Notice *\\(:\\|--\\)" " *Max +buffering +limit +exceed" " +for +\\([^ ]+\\)" "^ *\\*\\*\\* *Notice\\ *\\(:\\|--\\)" " *SendQueued +called +for +a" " +DEADSOCKET +\\([^: ]*\\) *" "\\(:-(\\)? *$" "%%Closed serverlink to %s, max buffering limit" " got exceeded." "^ *\\*\\*\\* *Host +\\(.*\\) +is" " +unknown *\\.* *$" "%%Host \"%s\" is unknown." "^ *\\*\\*\\* *Notice *-- *Connect +to +host" " +\\(.+\\) +failed *: *\\(.+\\) *$" "%%Connect to host %s failed: %s" "^ *\\*\\*\\* *Notice *-- *ERROR +" "from +\\(.*\\) *: *SUMMON +No +" "such +host *( *\\(.\\|\n\\)* *) *found" " *$" fld1 fld2 at-server unknown-host "%%Summon command failed as server %s doesn't" " know of any Internet host called \"%s\"." "^ *\\*\\*\\* *Notice *-- *ERROR" " +from\\ +\\(.*\\) *: *Access +" "denied *( *no +such +server +" "enabled *) *" disabled complainer "%%Server %s refuses to accept serverlink from" " host %s as that host isn't enabled in the" " configuration. Use \"/STATS C %s\" to check" " which hosts ARE enabled." "^ *\\([^: ]+\\) +seems +to +have +" "disabled +summoning" "%%User %s@%s has disabled summoning." "^ *Summoning +user *\\([^: ]*\\) +" "to +irc *$" "%sSummoning user %s@%s to IRC%s" " *Link +\\(.*\\) +cancelled *," " *server +\\(.*\\) +already" " +exists *$" rsrvr rhost "%%Server %s %s tried to establish a serverlink" " to us (%s). Refused as we already are linked." "^ *Connect *: *Server +\\([^ ]+\\) +already" " +exists +from +\\([^ ]+\\) *$" trying-side other-side "%%Server %s is already connected to %s" " *ERROR +from +\\(.*\\) *:" " *Server +\\(.*\\) +already +exists" " *\\.?\\.?\\.? *$" "%%Server %s refused to accept a serverlink from" " %s, the servers are already connected." "this server (" "other server " " *Server +\\([^: ]+\\) +closed +the" " +connection *.? *$" "%%%sServerlink from %s closed by remote side." " *Access +denied *( *no +such" " +server +enabled *) *" rest "%%Server %s (on host %s) tried to set up a" " server-link to us (%s) but we refused as there" " is no N line accepting that host/server" " combination." " *Lost +server +connection +to" " +\\(.*\\) *:" "%%Lost serverlink to %s (%s)." "^ *Connect *: *Host +\\(.\\|\n\\)*" " +not +listed +in +ircd?.conf *$" "%%There is no host matching the description" " \"%s\" in the servers (%s) configuration" " file." "^ *\\(.\\|\n\\)* *: *Privileged +command *$" "%%You must be an ENABLED IRC operator to use" " command \"%s\". Use /OPER to enable yourself." "such +host *( *\\(.*\\) *) *found" nonfound "%%Command /SUMMON found as server \"%s\" doesn't" " know about any server \"%s\"." "^ *User +\\(.\\|\n\\)* +not +logged" " +in *$" "%%Command /SUMMON failed as no user called \"%s\"" " is logged in at %s at the moment." "^\\*\\*\\* *Notice *:?-* *\\([^ ]*\\) *$" "^\\*\\*\\* *\\([^ ]*\\) *$" "^ *Notice *:?-* *\\([^ ]+\\) *$" "^ *\\([CNIYQK] *:.*\\) *$" "^ *\\*\\*\\* *\\(.*\\) *$" b e "%s%s%s%s%s%s" "To " "user " irc-is-channelname "channel " irc-is-broadcastname "server " "^C:" "^N:" "from " "server (user?)" "user (server?)" ": " "^[^: ]+ +[0-9]+ *[0-9]+ *[0-9]+ *" "[0-9]+ *[0-9]+ +\\(" "Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun" "\\) +" "^ *Link +SendQ +SendM +SendBytes" " +RcveM +RcveBytes +Open +since" "^\\(.*\\) +ToolZ V[0-9]+\\.[0-9]+[a-zA-Z]* *$" "^[ :;\\.?]*" "[ :;\\.?]*$" "%sToolZ-notice from %s: %s%s" irc-last-NOTICE-rcv irc-last-NOTICE-src " " "*** %s" " " "****** %s %s says to %s:" "Your" "User (or possible server)" "Server (or possible user)" "\"" "you" " "] 21 "\
Examine a NOTICE message from the IRC server.
NOTICE is the catch-all for IRC messages; if it can't be classified as
one of the other currently existing messages then the information is
sent as NOTICE. This message is overused, even when it another could be
used instead. For example, if an attempt is made to send to a nickname
which is not on IRC the error reply is sent via NOTICE.
No signal is issued for NOTICE because it is way too random with what it
Exit IRC. The connection is closed but the buffer is left behind.
If you want, you can give a reason for quitting IRC." (quote (""))])
(fset 'irc-execute-away #[(text) "┴ÿ½ê\n¼à├─!¬üë ┴ÿ½ª½ÿ╚P ╩╦╠P ═╬O$ê)¬ó╩╨#ê¬ÿ\n¼ë╩┴!ê╩╤\"ê╥╙P!ê╘╒Q╓╫ !ê)╪ ëç" [text "" irc-called-from-buffer read-string "Reason to be away? " reason irc-away irc-msg-info-pre "You are " pre irc-insert "%smarked as being away: \"%s\", " "use /HERE to remove the mark%s" 2 -1 irc-msg-info-post "%sYou are not currently marked as being away%s" "/AWAY %s" irc-send "AWAY :" " [" "]" set-buffer-modified-p buffer-modified-p irc-current-time irc-idle-last-sent] 7 "\
Usage: /AWAY [message]
Mark yourself as away, giving TEXT to people who send you private messages.
Without any arguments it will just insert a message about your current status." (quote (""))])
Mark yourself as present (ie, not \"away\") on IRC. Any arguments to this
command are ignored." (quote (""))])
(fset 'irc-execute-topic #[(topic) "┴ÿ½ï\n¼ê├─╞Q!¬ü ╚╔\"½ê╩ò╦O¬é \f╚╔\"½û═öº½Ä═òº½ë═ö═òO¬ä┴¬ü \n¼î╧┴!ê╧╨\f#ê╤ÿ½å╧╥!ê¬╕╙!½á╘ ½£╚╒\f\"½ë╓╫P!ê¬₧╓╫╪\fR!ê¬Æ╙!½å╧┘!ê¬ç╓┌\fP!ê+█ ë ç" [topic "" irc-called-from-buffer read-string "Topic for channel " irc-channel "? (RET to check) " top1 string-match "^\\([#&][^ :]+\\) *" 0 nil top 1 chn irc-insert "/TOPIC %s %s" "0" "%%You aren't on any channel." irc-is-multijoinable-channel irc-server-has-settable-topic-on-multijoinable-channel "^ *$" irc-send "TOPIC " " :" "%%Can't set the topic of a #channel." "TOPIC :" irc-current-time irc-idle-last-sent] 5 "\
Usage: /TOPIC channel [topic ...]
or: /TOPIC [topic ...]
Make 'topic' the description of the named channel; * for channelname means
the current channel you're talking to.
With no topic, doesn't change the topic but only inspects it.
If no channel is given (and the first word of the topic doesn't looks like
a channel name), the command operates on the current channel you're talking to.
" (quote (""))])
(fset 'irc-execute-oper #[(oper) "└┴\n\"½¢├öº½ì├òº½ê\n├ö├òO¬ü─\n┼ò╞OB¬á└╟\n\"½ù├öº½ì├òº½ê\n├ö├òO¬ü──B¬â─ëBë @ë ─ÿ½è╩╦\fû═Q!¬é ╧! ╧A!ë ─ÿ½ö─Ö½Ä╥╙╘\fû═░!¬é ╧! ─ÿ½å╫╪!ê¬ó─ÿ½å╫┘!ê¬û¼ê╫─!ê╫█!ê▄▌▐R!ê.▀ ë ç" [string-match "^ *\\([^: ]+\\) +" oper 1 "" 0 nil "^ *\\([^: ]+\\) *$" pair n read-string "Operator name at server " irc-server "? " n1 irc-nuke-whitespace name p irc-read-passwd "Password for operator " " at server " p1 password irc-insert "%%No operator name given." "%%No password given." irc-called-from-buffer "/OPER ..." irc-send "OPER " " " irc-current-time irc-idle-last-sent] 7 "\
Usage: /OPER [ name [ password ]]
Attempt to become an IRC Operator. Can take the name of the operator
and the password as arguments. If name is missing then it will be read
from the minibuffer; if password is missing it will be read and hidden
in the minibuffer.
If you become an operator then the word \"operator\" will appear in the
minibuffer along with the mode name." (quote (""))])
(fset 'irc-execute-summon #[(user) "└┴┬P \"½Å ─ö─òO ┼ö┼òOB¬ô└╞ \"½è ─ö─òO╟B¬â╟ëB ╔@╟ÿ½ë\n¼à╦╠!¬â@! ╔╟ÿ¼ÿA╟ÿ½æ\n¼ì╬╧╨\"╟╤╥!#¬âA!ë ╟ÿ½ä¬é ╟ÿ½å╓╫!ê¬Ü\n¼î╓╟!ê╓╪#ê┘┌█R!ê,▄ ë ç" [string-match "^ *\\([^ @]*\\) *@ *" "\\([^ @]*\\) *$" user 1 2 "^ *\\([^ @]*\\) *$" "" pair irc-nuke-whitespace irc-called-from-buffer read-string "Login-name of person to summon? " login irc-read-object format "Server \"%s\" is on? " irc-recall-all irc-servernames s irc-server server irc-insert "%%No login name given." "/SUMMON %s@%s" irc-send "SUMMON " "@" irc-current-time irc-idle-last-sent] 7 "\
Usage: /SUMMON login-name@server
Summon a user not on IRC to join IRC. The argument provided may either be
a user name on the local machine or user@server, where server is another
machine on the IRC-net. The user must be signed on to the specified server." (quote (""))])
(fset 'irc-execute-users #[(host) "└ ┬ÿ½Æ ¼Å─┼╞╟P\"┬╔╩!#¬ü !ë ┬ÿ½ä¬é \f ¼è═┬!ê═╬\f\"ê╧╨\fP!ê*╤ ëç" [irc-nuke-whitespace host "" irc-called-from-buffer irc-read-object format "List users on which host?" " (RET for %s) " irc-server irc-recall-all irc-servernames h hst irc-insert "/USERS %s" irc-send "USERS " irc-current-time irc-idle-last-sent] 7 "\
Usage: /USERS [ server ]
Get a list of the users signed on to \"server\". If no server name is provided
then the server to which you are connected is used. When called interactively
a prefix argument means to prompt for the server to query." (quote (""))])
(fset 'irc-execute-ignore #[(user) "└ ┬ÿ½î ¼ë─┼ ╞╟!#¬ü !ë ┬ÿ½ú╔╩!¼ö╦╠╬╧╨╞╩!╤#╥\"$ê¬Ü╦╘#ê¬É╒╩\"ê╦╓$ê)╫ ëç" [irc-nuke-whitespace user "" irc-called-from-buffer irc-read-object "Ignore which user? (RET to view) " irc-recall-all irc-nicknames usr irc-nothing-remembered-p irc-ignored-ppl irc-insert "%sYou are currently ignoring %s%s" irc-msg-info-pre irc-subst-comma mapconcat eval ", " "and" irc-msg-info-post "%sYou are not ignoring anyone%s" irc-remember "%sYou are now ignoring %s%s" irc-current-time irc-idle-last-sent] 9 "\
Usage: /IGNORE username@host [event]
Used to ignore a user. The first argument is a specification of whose messages
to ignore. The second specifies which kind of messages should be ignored from
that particular user.
When specifying a user, you can give either just the user's login name at the
remote site (you can see what it is by doing a /whois), or you can give the
user's login name followed by a @ and the name of the user's and the host of
the user (i.e. the name of host the user's client is running on). You can give
a * instead of a username to ignore everyone at the given client machine.
One can either ignore all signs of the user, or just certain events. The events
include
CTCP-ANSWER = Don't display any client to client protocol answers (they
*might* be spurios). Also, don't react on erronous answers.
CTCP-QUERY = Neither display nor answer any client to client protocoll
questions from the user.
INVITE = Don't display
JOIN
NICK
NOTICE
PART
PRIVMSG
QUIT
channel
THIS IS ALL NOT YET IMPLEMENTED.
" (quote (""))])
(fset 'irc-execute-info #[(nick) "└ ┬ÿ½Ä ¼ï─┼╞╟Q┬╚ #¬ü !ë ┬ÿ½Ñ\n;½á ╠P ╬G╧\" ╤╥╙╘╒R\n$ê*é╘ ┬ÿ½¢ ╫P ╬G╧\" ╤╪┘P#ê*¬± ┌ÿ½æ ¼ê╤┬!ê╤█!ê▄▌!ê¬┌▐ !½▒ ¼ï╤┬!ê╤▀ P!ê╤αßP $ê▄Γπ ë#!ê▄Σ σµτΦ░!ê¬úΘ !½ù ¼ï╤┬!ê╤Ω P!ê▄δ P!ê¬å╤∞ \"ê)φ ë.ç" [irc-nuke-whitespace nick "" irc-called-from-buffer irc-read-object "Info for which user or server? (RET" " for yourself, * for server program)" " " irc-get-names-and-servers name irc-userinfo irc-msg-info-pre "You have " pre make-string 32 irc-msg-cont-used irc-insert "%sgiven the information \"%s\" about" " yourself. Use /USERINFO to change it." " (Warning: /USERINFO with no argument will" " clear the information)%s" irc-msg-info-post "You haven't " "%sgiven any information about" " yourself yet. Use /USERINFO to do so%s" "*" "/INFO *" irc-send "INFO" irc-is-receiver "/INFO " "%sQuerying client of user %s for user supplied" " information%s" format "WHOIS %s %s" "PRIVMSG " " :FINGER" "VERSION" "USERINFO" "SOURCE" irc-is-hostname "/ADMIN " "ADMIN " "%%Can't be a users nickname: \"%s\"." irc-current-time irc-idle-last-sent] 8 "\
Usage: /INFO nick
With * as the argument, show some information about who built IRC.
Else query a users client and show the information she/he has given
about her/himself. With no argument, show the information you have
given about yourself. You can set the information with the command
/USERINFO." (quote (""))])
(fset 'irc-execute-userinfo #[(information) "┴ÿ½è\n¼ç├─┼P!¬ü ╟!ë ┴ÿ½ì╔\n╦╠#ê¬Ä\n╦╧\n$ê*╨ ëç" [information "" irc-called-from-buffer read-string "What information do you wish to" " disclose? (RET to remove) " info irc-nuke-whitespace inf nil irc-userinfo irc-insert "%sCleared your information string%s" irc-msg-info-pre irc-msg-info-post "%sThe information string is: \"%s\"%s" irc-current-time irc-idle-last-sent] 6 "\
Usage: /USERINFO [information]
Set some information (any text you want) to be given out to anybody
querying this client for it. With no argument, remove all information
you have given about yourself, making further queries \"draw a
blank\". You can use /INFO to query other clients. Be warned though,
other clients may or may not know of this query so you may sometimes
get back no answer or strange responses." (quote (""))])
(fset 'irc-execute-kill #[(user-etc) "└┴\n\"½⌐├öº½ì├òº½ê\n├ö├òO¬ü─┼öº½ì┼òº½ê\n┼ö┼òO¬ü─B¬á└╞\n\"½ù├öº½ì├òº½ê\n├ö├òO¬ü──B¬â─ëB ╚@! ╚ ─ÿ½ì\n¼ë╦╠─═╬!#¬é ! ╚A! ╚─ÿ½Å─Ö½ë\n¼à╤╥!¬é! ─Ö½¿─Ö½£\n¼î╘─!ê╘╒#ê╓╫╪R!ê¬è╘┘!ê¬ä╘┌!ê-█ ë ç" [string-match "^ *\\([^ ]+\\) +\\(.\\|\n\\)+ *$" user-etc 1 "" 2 "^ *\\([^ ]+\\) *$" pair irc-nuke-whitespace u irc-called-from-buffer irc-read-object "Nuke which user? " irc-recall-all irc-nicknames user c read-string "Comment? (In English please) " comm irc-insert "/KILL %s %s" irc-send "KILL " " " "%%No comment given to /KILL command." "%%No user given, no killing take place." irc-current-time irc-idle-last-sent] 6 "\
Usage: /KILL user comment
Forcibly remove a user from IRC. The mandotory comment will be displayed to
the victim and to all the IRC operators online. The topic should be in English,
which after all is the lingua franca of IRC.
This command is reserved for IRC operators." (quote (""))])
Find the route from the server to which you are attached to 'server'; if the
server argument is not provided then the servers to which the current server
is directly connected are listed. This command is only available to IRC
Operators." (quote (""))])
(fset 'irc-execute-squit #[(server) "┴ÿ½î\n¼ë├─┴┼╞!#¬ü \n¼è╚┴!ê╚╔\"ê╩╦P!ê╚╠$ê)╧ ëç" [server "" irc-called-from-buffer irc-read-object "Shut down link to which server? " irc-recall-all irc-servernames srvr irc-insert "/SQUIT %s" irc-send "SQUIT " "%sClosing the link to server %s%s" irc-msg-info-pre irc-msg-info-post irc-current-time irc-idle-last-sent] 5 "\
Usage: /SQUIT [ server ]
Shut down a server-to-server link.
The link shut down is the the one next farest away from you, ie if you do a
/SQUIT BYE.EDU and the path to it is your.server.edu!a!b!bye.edu, then the
link between b and bye.edu will be disconnected.
You have to be an enabled IRC operator to issue this conmmand." (quote (""))])
(fset 'irc-execute-connect #[(new) "└┴┬P \"½╜─öº½ì─òº½ê ─ö─òO¬ü┼╞öº½ì╞òº½ê ╞ö╞òO¬ü┼╟öº½ì╟òº½ê ╟ö╟òO¬ü┼BB¬╒└╚ \"½½─öº½ì─òº½ê ─ö─òO¬ü┼╞öº½ì╞òº½ê ╞ö╞òO¬ü┼┼BB¬ñ└╔ \"½Ö─öº½ì─òº½ê ─ö─òO¬ü┼┼ëBB¬à┼ëëBBë \n@ë ┼ÿ½Å\f¼ï═╬╧P┼╨╤!#¬é ╙! \nA@ë ┼ÿ½ò┼Ö½Å\f¼ï═╓╫P┼╪┘D#¬é ╙!ë ┼ÿ½â▄¬ä▌! \nAAë ┼ÿ½û┼Ö½É\f¼î═αßΓQ┼╨╤!#¬é #╙#!ë $┼ÿ½ä%¬é$ &└τ\"½çΦΘ\"¬╒└τ&\"½çΦΩ&\"¬╟\f¼ÜΦ┼!ê┼ÿ½åΦδ!ê¬èΦ∞ &$ê┼ÿ½àΦφ!¬₧ε∩≡ &$!êΦ±≥P3û &û4&.\fç" [string-match "^ *\\([^ ]+\\) +\\([^ ]+\\) +" "\\([^ ]+\\) *$" new 1 "" 2 3 "^ *\\([^ ]+\\) +\\([^ ]+\\) *$" "^ *\\([^ ]+\\) *$" tri h1 irc-called-from-buffer irc-read-object "Connect server-link to which" " internet host? " irc-recall-all irc-servernames h2 irc-nuke-whitespace new-host p1 "Use which TCP-port for" " server-link? (RET for 6667) " "194" "6667" p2 p3 6667 string-to-int new-port s1 "Execute connect command at which" " (reachable) server? (RET for" " local) " s2 s3 irc-server remote-server " " irc-insert "%%Spaces aren't allowed in hostnames (%s)." "%%Spaces aren't allowed in servername (%s)." "/CONNECT" "/CONNECT %s %d %s" "%%No host to connect too given." irc-send format "CONNECT %s %d %s" "%sConnecting a server-link to host %s on" " port %d from server %s%s" irc-msg-info-pre irc-msg-info-post] 8 "\
Usage: /CONNECT [ newhost [ port [remoteserver ] ] ]
Connect the local server to SERVER on tcp-port PORT.
You have to be an enabled IRC operator to issue this conmmand." (quote (""))])
(fset 'irc-execute-send #[(slist) "└ !┬ ─ÿ½ä┬¬á╞┬╟╚╔ !\"\"ë½è╩╦ ╠#═P¬ë╬ ÿ¼ä╧╨!ê¼ë╧╤╥╙Q!ê¬╢╘ÿ½ÿ╧╒╓╫Q┌ÿ½â█¬é $ê¬Ö╧▌▐P▀╩╦╔αGSO!ß#Γ\" $ê)π ë$ç" [irc-nuke-whitespace slist nil matches "-" irc-default-to delq mapcar #[(arg) "└┴┬! \" ┼ÿ½é ç ╞ÿ½å╟╚!ê╔ç\fG╩U½â\f@ç\f╔=½ç╟╦ \"ê╔ç╟╠═P ╬╧╨\f╤#╥\"#ê╔ç" [irc-check-list irc-recall-all irc-nicknames arg matches "*" "0" irc-insert "%%You can't send to channel 0." nil 1 "%%No names found to match \"%s\"." "%%Ambiguous recipient %s;" " could be %s." irc-subst-comma mapconcat #[(arg) "└ └Qç" ["\"" arg] 3] ", " "or"] 8] irc-burst-comma mapconcat eval "," ";" "" irc-insert "%%No matches -- sendlist not changed." "%%Your default sendlist is disabled. (Ie you" " are not sending to anyone when failing to" " give an explicit receiver)" "*;" "%sYou are now using the default send list (ie" " sending to the current channel (%s) when" " failing to give an explicit receiver)%s" irc-msg-info-pre irc-channel "0" "none" irc-msg-info-post "%sYou are sending to %s, use /SEND * to" " get back default sendlist%s" irc-subst-comma 0 ", " "and" irc-current-time irc-idle-last-sent] 11 "\
Usage: /SEND [ sendlist | - ]
Set the default sendlist for IRC messages. This is a comma separated list
of the intended recipient(s) of messages which do not have an explicit
sendlist. '-' as an argument means to disable the default sendlist; every
message sent then must have an explicit recipient provided with the message.
Without any arguments this command just displays the current default sendlist.
Each item specified is checked to see whether you can send there; ambiguous
references to users are not allowed.
\"*\" is always allowed and means to send to the current channel, ie the
channel you are talking to.
If no item in the new list can be set then the sendlist is not changed." "sDefault recipient(s) for messages? "])
(fset 'irc-execute-service #[(service) "└┴┬P \"½⌐─öº½ì─òº½ê ─ö─òO¬ü┼╞öº½ì╞òº½ê ╞ö╞òO¬ü┼B¬á└╟ \"½ù╚─öº½ì─òº½ê ─ö─òO¬ü┼B¬â┼ëBë @ \n╦\n┼ÿ½ì\f¼ë═╬╧P┼╨#¬é\n! └╥ù\"?¡ü╙ A ╦┼ÿ½⌐\f¼Ñ═╓╫½â╪¬ü┘½â┌¬ü█▄$┼½à▌▐!¬â▌▀!#¬é! ▌▀!ë !Gë \"─U½â┼¬üπ $σ!µτ# (\f¼ÆΘ┼!êΘΩ½â╚¬üδ #ê ┼ÿ½ñ∞▀!½èΘφ./#ê¬╩Θ≡±≥Q.\"$ë(/&ê¬╡╙ \fΘ≤.½â⌠¬ü⌡ ½â÷¬ü≈/&ê½ê° ▀\"ê¬å∙ ▀\"ê·┼!ê).\n√ ë<ç" [string-match "^ *\\(+\\|-\\) *" "\\([^ ]+\\) *$" service 1 "" 2 "^ *\\([^ ]+\\) *$" "+" pair a irc-nuke-whitespace irc-called-from-buffer irc-read-object "Mark or unmark nick as" " service? (RET to mark) " ("mark" "unmark") a2 "\\(unmark\\|-\\)" t action n format "%sark which %s as service? (%s) " "M" "Unm" "nick" "service" "RET to view existing" irc-recall-all irc-nicknames irc-services nick s-list s-len "s" plural irc-listify ", " "and" lst irc-insert "/SERVICE %s%s" "-" irc-nothing-remembered-p "%sNo users marked as automatons%s" irc-msg-info-pre irc-msg-info-post "%s%d \"user%s\" marked as being" " automaton%s (which provide some service):" " %s%s" "%s%sing \"%s\" %s being treated as a service%s" "Add" "Remov" "as" "from" irc-remember irc-forget irc-execute-service irc-current-time irc-idle-last-sent] 9 "\
Usage: /SERVICE [ [+]nick | -nick ]
Show or update list of services. A service is an automaton which looks
like a normal user, ie it has a nickname. It doesn't act as a normal
user though; normaly you can ask it for some service. For instance, at
NICKSERV you can register your nick name (do \"nickserv; help\" for
more information). Services often talk to you with so called NOTICE's.
When a service isn't marked as being one, these messages will be
displayed in a somewhat annoying format. Use this command to get a
nicer display.
With no argument, show which nicknames are assumed to be services." (quote (""))])
Set time-stamping for IRC. + means to turn it on for all messages from users
and - means to turn it off for them. +event or just event will turn it on for
that class of message and -event means to disable it for those messages. An
integer interval means to insert a message indicating the time every N minutes,
where N is the interval. With no arguments simply insert a message indicating
the current time-stamps.
The current time in HH:MM format can appear two different ways in IRC. One is
to have it associate with 'event'; two events, 'private' and 'public' messages,
are supported this way. The other is to have it as a stand-alone message
indicating the current time. Both can be very useful in noting when someone
actually sent you a message or when another event happened if you happen to be
away for a while. The accuracy of the interval timer is currently limited to
0-2 minutes beyond the interval if display-time is not running; accuracy is
greatly improved if it is. It can be turned off by setting the interval
to 0." "sSet time-stamp: "])
(fset 'irc-execute-alias #[(alias) "t½á└┴\n\"½Ü\n├─┼╞╟P\n\"╚╔╩╦\f╦\"\"\"#Q╧\n!└╨\n\"ê╤öº½ì╤òº½ê\n╤ö╤òO¬ü╚û╥öº½ì╥òº½ê\n╥ö╥òO¬ü╚û╧\n╥ò╙O!╙ ë ╚ÿ½╝\fë G┘V½ª½ÿ┌█ @@@A %êAë¼h┌▐ #ê¬ê┌▀ #ê)é+╚ÿ½Ñα\f\"ë½Ä┌█ \n@\nA %ê¬è┌ß $ê)¬█Γ╔π╦\"\"Σ#ëG╤U¼¥½æ┌σµτΦΘ#Ω\"#ê¬░┌δ\"ꬿ∞@ù╚ÿ½â╚¬ü├Qφ#ê┌ε α\f\"A %ê,∩ ë0ç" [string-match "[^: ]+" alias " " irc-read-object format "Alias \"%s\" to which command? " "(Including optional arguments) " "" mapcar #[(pair) "Aûç" [pair] 1] append irc-alias-alist irc-command-alist irc-operator-alist irc-nuke-whitespace "^/?\\([^: ]*\\) */?\\([^: ]*\\) *" 1 2 nil match arg cmd new aliases 0 irc-insert "%s/%s is aliased to mean \"/%s\"%s" irc-msg-info-pre irc-msg-info-post "%sListed all aliases%s" "%sYou don't have any aliases%s" assoc "%s\"/%s\" is not aliased%s" irc-check-list car start-only "%%Ambiguous command /%s; could be %s." irc-subst-comma mapconcat #[(arg) "└ └Qç" ["\"" arg] 3] ", " "or" "%%Command not found: /%s." irc-change-alias add "%s\"/%s\" has been aliased to mean \"/%s\"%s" irc-current-time irc-idle-last-sent] 13 "\
Usage: /ALIAS alias [command] [args for command]]]
Allow 'alias' to be equivalent to 'command'.
For example, \"/ALIAS tf time tut.fi\" will make typing \"/tf\" be equivalent
to having issued the command \"/time tut.fi\". Aliases can only be made
to existing commands, not other aliases. They are also only recognized when
in the command name position of a line. If given with no arguments then
all aliases are displayed; if given with just an alias name then the alias
with that name will be shown. Aliases can be removed with /UNALIAS." "sWhat name should the new alias have? (RET to view all) "])
(fset 'irc-execute-unalias #[(alias) "┴ÿ½Å\n¼î├─┴┼╞╟╚!\"#¬ü ╩ ! ╠┼═\" ╬#ë G╨U¼¥½æ╤╥û╙╘╒╓#╫\"#ꬢ╤╪û\"ê¬ô┘@┌█#ê╤▄ @ $ê+▀ ë ç" [alias "" irc-called-from-buffer irc-read-object "Remove which alias? " mapcar #[(p) "@ûç" [p] 1] irc-recall-all irc-alias-alist tmpalias irc-nuke-whitespace a irc-check-list car t match 1 irc-insert "%%%s is an ambiguous alias. Could be %s." irc-subst-comma mapconcat #[(arg) "└ └Qç" ["\"" arg] 3] ", " "or" "%%No alias found to match %s." irc-change-alias nil remove "%s\"%s\" is no longer aliased%s" irc-msg-info-pre irc-msg-info-post irc-current-time irc-idle-last-sent] 9 "\
Usage: /UNALIAS alias
Remove the 'alias' for a command." (quote (""))])
(fset 'irc-execute-help #[(topic) "└┴\n\"└┴\f\" └┴\" └┴\" ╩ ╠ÿ½û¼Æ╬╧╠╨ ¡ü $#¬é ! ¼è╙╠!ê╙╘\"ê╠ÿ½╒╒╓P ╪╨ ¡ü $┘\"ë ½▒█▄@A@«ü╠▌8«ü╠▐8«ü╠▀8«ü╠&Pα¢ë¼OßÉΓ!æ*é½π╨ ¡ü $Σ# %µ%\" 'µ%\" (µ% \" )Ω +%A½╝∞└φ%A\"!½▓(½£%@C%ε)½â∩¬ê'½â≡¬ü±≥Q+¬ÆßÉΓ█≤⌠⌡÷R%@7#!æê%¼Å¼ïπΣ#ë%'%¼ê╙°û\"¬·%A½æ╙∙û·√ⁿ%²#■\"#¬Σ%@ ?ßÉ(½╛ü@ ?\"A AΓ█üB ?A#!ê+½àΓ+!êΓ█üC üD AüE üF üG A\"Oû!\"!)¬Ö)½ìΓü@ ?\"A!¬êΓüD ?!!æ)--ç" [mapcar car irc-command-alist normal-commands irc-operator-alist oper-commands irc-alias-alist alias-commands irc-help-topic-alist help-topics irc-nuke-whitespace topic "" irc-called-from-buffer irc-read-object "Help for which command or topic? " append irc-operator top irc-insert "/HELP %s" "Help is available for the following IRC-mode" " commands:\n" str sort string< topics format "\n%14s%14s%14s%14s%14s" 2 3 4 5 "*Help*" princ irc-check-list t matches irc-common-element matches-oper matches-alias matches-topic nil shadowingalias irc-all-true #[(x) " @ÿç" [x matches] 2] "\n\nThis shadows the " "general help on the topic" "operator command" "command" " with the same name." "There are several things called %s, " "and no way to know \nwhich one you " "want help on. This is a bug--please " "contact \n%s." irc-hacker "%%No help is available for \"%s\"." "%%Ambiguous help topic %s; could be %s." irc-subst-comma mapconcat #[(arg) "└ └Qç" ["\"" arg] 3] ", " "or" match assoc aliasfor "%s is an alias for \"/%s\"." "\n\n%s" irc-help-for-command 0 string-match " "] 11 "\
Usage: /HELP topic
Get the documentation for \"command\". If no command is given then a list
of the possible topics is shown. Note that commands for IRC Operators will
not appear in the help topics when not an IRC Operator." (quote (""))])
Check to see whether it is time to insert a current-time message into
the *IRC* buffer."])
(fset 'irc-wrap-display-time #[nil "└┴!¡Ä└┬!?¡ê┬┴KMê┴├Mç" [fboundp display-time-filter original-display-time-filter #[(proc str) "è└ ½û┬├ @!!ë ½å\fqê┼ ê A)¬g*╞\"ç" [irc-active-servers procs buffer-name process-buffer buf irc-check-time original-display-time-filter proc str] 4 "\nThe filter for the display-time-process. This function has been modified\nfor IRC-mode to call irc-check-time before calling the original\ndisplay-time-filter."]] 2 "\
Set up a wrapper around the display-time-filter to hopefully provide a
(fset 'irc-nothing-remembered-p #[(bag) "Jë\nHë½ê ─=½â ¬« H Hë ╩ ╦V½Å S H?ë¼k\f½ä╠!ê\f,*ç" [bag htbl irc-hash-index-cleanflag flg empty irc-hash-index-bucketarray a irc-hash-index-size size i t 0 irc-forget-all] 3 "\
True if the BAG is empty."])
(fset 'irc-remember #[(item bag) "Jë\nH─=½«┼û!ë ¼â╚¬¥╔╩\"½ö╦╠═╬Q\"ê½ä╨╤!ê╚¬é)é╒ ╥=¼Å╙=¼è╘=¼à╒=½àé╒ ╓=¼è╫=¼à╪=½╓┘ÿ½ç╦┌!ê╚¬µ█H▄U½ç▌╚O¬╫╔▐\"½ö╦╠▀αQ\"ê½ä╨ß!ê╚¬╝╔Γ\"½ö╦╠παQ\"ê½ä╨Σ!ê╚¬í¬¥╔▐\"½ö╦╠σµQ\"ê½ä╨τ!ê╚¬éë (¡╧Θ( *H\" + +HG , +φ( +H\"Iê, +HGU¼ì .∩ Iê 0±Iê╓=¡ö≥(╫\"?¡î≥(╪\"¡à≤⌠╪!!*+ç" [bag htbl irc-hash-index-bucketarray a irc-servernames irc-extract-hostname item i nil string-match "^ *$" irc-insert "%%Function irc-remember" " found a space in" " a hostname %s)." debug-on-error error "SPC in hostname" irc-linksinfo irc-namtree irc-whotree irc-listtree irc-nicknames irc-notify-detected irc-notify-looked-for "" "%%Skipped \"\" in irc-nicknames." 0 64 1 " " " found a space in a" " nickname (%s)." "SPC in nickname" "\\." " found a dot in a" "Dot in nickname" " found a space in an item" " (%s)." "SPC in item" fixed irc-hash-value irc-hash-index-size idx oldlen irc-list-remember irc-hash-index-timestamp irc-internal-time irc-hash-index-cleanflag dirty irc-recall irc-who-is-on irc-recall-all] 7 "\
