(provide (quote irc)) (defvar irc-server (or (getenv "IRCSERVER") "garfield.mit.edu") "\ *A host running the IRC daemon. IRC servers generally restrict which machines can maintain connexions with them, so you'll probably have to find a server in your local domain.") (defvar irc-port 6667 "\ *The port on which the IRC server responds. Many sites don't have irc as a named service (ie, it has no entry in /etc/inetd.conf) so you might have to set this to a number; the most common configuration is to have IRC respond on port 6667.") (defvar irc-oops "Oops ... please ignore that." "\ *The text to send to the original IRC message recipient when using /OOPS.") (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-time-stamp 0 "\ *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.") (make-variable-buffer-local (defvar irc-nick (or (getenv "IRCNICK") (user-login-name)) "*The nickname with which to enter IRC. The default value is set from your login name. Using /NICKNAME changes it.")) (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-maximum-size 20480 "\ *Maximum size that the *IRC* buffer can attain, in bytes. The default value of 20k represents an average of about 512 lines, or roughly 22 screens on a standard 24 line monitor.") (defvar irc-mode-hook nil "\ *Hook to run after starting irc-mode but before connecting to the server.") (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.") (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-conserve-space nil "\ *If this variable is set non-nil then the C client will be partially mimicked for message insertion. Private messages will be prefixed by \"*SENDER*\" and public messages will be prefixed by \"\". No blank lines are put in the buffer.") (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.") (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.") (make-variable-buffer-local (defvar irc-signals (quote ((private t) (invite t) (wall t) (public) (join) (nick) (topic) (user))) "Events in IRC that should get signalled when they occur. Generally the signal is an audible beep. The value of irc-signals is an association list of events recognized by irc-mode and is maintained with the /SIGNAL command.")) (make-variable-buffer-local (defvar irc-ignores nil "A list of users whose events will be ignored. Messages or other actions (like joining a channel) generated by anyone in the list will not be displayed or signalled. This list is maintained with the /IGNORE and /UNIGNORE commands.")) (make-variable-buffer-local (defvar irc-notifies (quote (join nick topic)) "Events in IRC that should get notification messages. A notification message is just one line to indicate that the event has occurred. The \"join\", \"nick\" and \"topic\" events are supported by the /NOTIFY command.")) (make-variable-buffer-local (defvar irc-history nil "A list of messages which irc-mode has processed. This includes both successfully and unsuccessfully sent messages, starting with the most recent first. irc-max-history limits the number of items that can appear in the list when using irc-add-to-history.")) (make-variable-buffer-local (defvar irc-default-to "*;" "The default recipient of a message if no : or ; is provided. \"*\" means the current channel, no matter what it is.")) (defvar irc-mode-map nil "\ The keymap which irc-mode uses. Currently set to: \\{irc-mode-map}") (defvar irc-alias-alist (quote (("QUERY" . "send") ("N" . "names") ("W" . "who") ("?" . "help") ("TF" . "time tut.fi") ("IDLE" . "who") ("WHAT" . "list") ("L" . "list") ("EXIT" . "quit") ("BYE" . "quit") ("STOP" . "quit"))) "\ 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.") (defconst irc-command-alist (quote (("WHO" . "who") ("HELP" . "help") ("INFO" . "info") ("LIST" . "list") ("OOPS" . "oops") ("OPER" . "oper") ("QUIT" . "quit") ("SEND" . "send") ("TIME" . "time") ("MSG" . "privmsg") ("ADMIN" . "admin") ("LINKS" . "links") ("NAMES" . "names") ("QUOTE" . "quote") ("TOPIC" . "topic") ("USERS" . "users") ("WHOIS" . "whois") ("STAMP" . "stamp") ("LUSERS" . "lusers") ("INVITE" . "invite") ("NOTIFY" . "notify") ("SIGNAL" . "signal") ("SUMMON" . "summon") ("NICKNAME" . "nick") ("CONFIRM" . "confirm") ("REDIRECT" . "redirect") ("AWAY" . "away") ("HERE" . "here") ("JOIN" . "join") ("LEAVE" . "leave") ("ALIAS" . "alias") ("UNALIAS" . "unalias") ("IGNORE" . "ignore") ("UNIGNORE" . "unignore"))) "\ 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.") (defconst irc-operator-alist (quote (("KILL" . "kill") ("WALL" . "wall") ("TRACE" . "trace") ("REHASH" . "rehash"))) "\ 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.") (defconst irc-version "IRC-mode Version 2.0" "\ The currently loaded version of irc-mode") (or irc-mode-map (progn (setq irc-mode-map (make-keymap)) (define-key irc-mode-map " " (quote irc-process-input)) (define-key irc-mode-map " " (quote irc-process-input)) (define-key irc-mode-map " " (quote irc-tab)) (define-key irc-mode-map "" (quote irc-execute-alias)) (define-key irc-mode-map "" (quote irc-execute-names)) (define-key irc-mode-map "" (quote irc-execute-help)) (define-key irc-mode-map " " (quote irc-execute-invite)) (define-key irc-mode-map " " (quote irc-execute-join)) (define-key irc-mode-map " " (quote irc-execute-list)) (define-key irc-mode-map " " (quote irc-history-menu)) (define-key irc-mode-map "" (quote irc-history-next)) (define-key irc-mode-map "" (quote irc-execute-oops)) (define-key irc-mode-map "" (quote irc-history-prev)) (define-key irc-mode-map "" (quote irc-execute-leave)) (define-key irc-mode-map "" (quote irc-execute-redirect)) (define-key irc-mode-map "" (quote irc-execute-send)) (define-key irc-mode-map "" (quote irc-kill-input)) (define-key irc-mode-map "" (quote irc-execute-who)) (define-key irc-mode-map "" (quote irc-kill-input)) (define-key irc-mode-map "#" (quote irc-execute-lusers)) (define-key irc-mode-map "a" (quote irc-execute-admin)) (define-key irc-mode-map "i" (quote irc-execute-info)) (define-key irc-mode-map "k" (quote irc-execute-quit)) (define-key irc-mode-map "l" (quote irc-execute-links)) (define-key irc-mode-map "n" (quote irc-news)) (define-key irc-mode-map "o" (quote irc-execute-oper)) (define-key irc-mode-map "p" (quote irc-yank-prev-command)) (define-key irc-mode-map "q" (quote irc-execute-quote)) (define-key irc-mode-map "s" (quote irc-execute-summon)) (define-key irc-mode-map "u" (quote irc-execute-users)) (define-key irc-mode-map "v" (quote irc-version)) (define-key irc-mode-map "" (quote irc-del-backward-char)) (mapcar (function (lambda (key) (define-key irc-mode-map key (quote irc-self-insert)))) (where-is-internal (quote self-insert-command) nil nil)))) (defun irc-filter (proc str) "\ Filtering procedure for IRC server messages. It waits until everything up to a newline is accumulated before handing the string over to irc-parse-server-msg to be processed. If irc-pop-on-signal is an integer and a signal is issued then the *IRC* buffer will be displayed." (byte-code " !q!`bZ  P  \"] !  A @ ?O˂Y!!\"- Wh j \\))! \"q b) ! ??˂ !\"!\"! U \"  \"Z\"!!." [ibuf proc bell irc-mark-to-point new-point old-irc-mark win irc-maximum-size irc-mark irc-scratch str nil irc-pop-on-signal process-buffer irc-truncate-buffer irc-check-time string-match " " irc-parse-server-msg ding no-terminate minibuffer-message " [Bell in %s]" buffer-name 0 get-buffer-window set-window-point integerp selected-window /= count-windows no-mini 1 display-buffer select-window next-window set-window-buffer split-window screen-height /] 27)) (defun irc-parse-server-msg (str) "\ 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." (byte-code " \"O #+ !O !OQ!T \"TO \"A ! \"N ! \"[ ! \"h ! \"u ! \" ! \" ! \" ! \" ! \" ! \" ! \" ! \"  \" ! \" ! \" ! \" ! !!B*" [loc line str t nil 0 string-match " " "%" match-end "^:\\S +\\s +MSG" irc-parse-public "^:\\S +\\s +CHANNEL" irc-parse-channel "^:\\S +\\s +INVITE" irc-parse-invite "^:\\S +\\s +NICK" irc-parse-nick "^:\\S +\\s +WALL" irc-parse-wall "^:\\S +\\s +QUIT" irc-parse-quit "^:\\S +\\s +KILL" irc-parse-kill "^:\\S +\\s +TOPIC" irc-parse-topic "^:\\S +\\s +3[0-9]+" irc-parse-RPL "^:\\S +\\s +4[0-9]+" irc-parse-ERR "^\\(: \\)?NOTICE" irc-parse-notice "^\\(:\\S *\\s +\\)?PRIVMSG" irc-parse-priv "^PING" irc-pong "^ERROR" irc-parse-error "^WHOREPLY" irc-parse-whoreply "^NAMREPLY" irc-parse-namreply "^LINREPLY" irc-parse-linreply irc-insert "(Please let tale@pawl.rpi.edu know about this; it might be a bug.)"] 44)) (defun irc-parse-channel (str) "\ Examine a CHANNEL message from the IRC server. CHANNEL indicates a user entering or leaving the channel which you are on. If the user is not being ignored and 'join' is in irc-notifies, 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." (byte-code " \"O !O!# \"8 !+ \"/ \" łe#F>?Młe ![ #` #\"*" [user str channel irc-nick irc-channel nil irc-ignores irc-notifies 1 string-match "\\s CHANNEL " string-to-int match-end 0 irc-maintain-list irc-wholist add string= zerop irc-insert "You have left channel %d." "You are now a member of channel %d." member-general join "*** %s has left channel %d ***" "*** %s has joined channel %d ***" irc-signal] 15)) (defun irc-parse-invite (str) "\ Examine an INVITE message from the IRC server. INVITE is sent when one user invites another to a channel. If the inviter is not being ignored a message is inserted in the buffer. This function returns t if a bell should be issued for the 'invite' event, nil otherwise." (byte-code " \"O ! !#O !O# #3Q!M ! !\"E؂F $\"+" [user str to channel irc-ignores irc-nick 1 string-match "\\s +INVITE " match-end 0 "\\s +" nil irc-maintain-list irc-wholist add member-general string= irc-send "PRIVMSG " " :You are being ignored." irc-insert "*** %s invites %s to join channel %s ***" downcase "you" irc-signal invite] 16)) (defun irc-parse-public (str) "\ Examine a MSG message from the IRC server. MSG is sent when someone has sent a message to a channel. In reality, sometimes PRIVMSG is used but irc-parse-private should hand those off to to here. This function returns t if a bell should be issued for the 'public' event, nil otherwise." (byte-code " \"O !O  =? Q!# #6ƂXH %\"S  $ !\"+" [user str msg time irc-message-stamp irc-ignores nil irc-conserve-space t irc-channel 1 string-match "\\s MSG :" match-end 0 private " (" irc-get-time ") " " " irc-maintain-list irc-wholist add member-general string= irc-insert-message concat "<" ">" irc-insert " ->%sFrom %s to %d:" irc-signal public] 12)) (defun irc-parse-priv (str) "\ Examine a PRIVMSG message from the IRC server. PRIVMSG is intended to be used for private message sent between users. This is not always the case at the moment; servers will use it like either NOTICE or MSG on occasion. If it really is a private message, this function returns t if a signal should be issued for the 'private' event, nil otherwise." (byte-code " \"( \"O ! !#O3 \"O !O?J !ł !UX!?e R!## \"Q!P  =? Q # ! !\" \"  %\" !\"," [from to msg time str nil irc-channel irc-ignores irc-last-private irc-message-stamp irc-conserve-space irc-nick t string-match "^:\\S +\\s +PRIVMSG\\s +" 1 "\\s +PRIVMSG\\s +" match-end 0 "\\s +:" 9 "\\s :" irc-insert string-to-int zerop irc-parse-public ":" " MSG :" irc-maintain-list irc-wholist add member-general string= "You are being ignored." irc-send "PRIVMSG " " :You are being ignored." public " (" irc-get-time ") " " " " >>%sPrivate message from %s:" downcase " (apparently to %s)" irc-insert-message concat "*" irc-signal private] 28)) (defun irc-parse-quit (str) "\ Examine a QUIT message from the IRC server. QUIT is used to tell of a user's departure from IRC. It is currently sent by the servers to those clients which are on the same channel as the departing user. This function returns t if a signal should be issued for the 'join' event, since it also signals someone leaving the channel. It returns nil if no bell should be issued." (byte-code " \"O# #Â#\"\")" [user str irc-ignores nil 1 string-match "\\s +QUIT" irc-maintain-list irc-wholist remove member-general string= irc-insert "*** %s has left IRC ***" irc-signal join] 7)) (defun irc-parse-wall (str) "\ Examine a WALL message from the IRC server. WALL is sent by IRC operators to everyone on IRC. A WALL message will always be displayed even if the sender is being ignored. This function returns t if a signal should be issued for the 'wall' event, nil otherwise." (byte-code " \"O !O# ) &\"3 # !\"*" [user str msg irc-conserve-space t 1 string-match "\\s +WALL\\s +:" match-end 0 nil irc-maintain-list irc-wholist add irc-insert-message concat "#" "# (" irc-get-time ") " irc-insert " ## Message from %s at %s to everyone:" irc-signal wall] 12)) (defun irc-parse-nick (str) "\ 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." (byte-code " \"O !O# # #3# #ĂP >?? \"FĂP #\"*" [old str new irc-ignores nil irc-notifies irc-nick 1 string-match "\\s NICK " match-end 0 irc-maintain-list irc-wholist remove add member-general string= nick irc-insert "*** %s is now known as %s ***" irc-signal user] 12)) (defun irc-parse-error (str) "\ Examine an ERROR message from the IRC server. ERROR is used when something bogus happens like an unparsable command is issued to the server. Usually this will not happen unless something like /QUOTE is used. This message is also used when a user attempts to change to a name that already exists. Returns nil; currently no signals are issued for an error." (byte-code "\"!O!\"2Nʉ !N/͂0 \"‡" [str irc-nick nil string-match "\\s +:" irc-insert match-end 0 "Nickname\\s +\\S *\\s +\\(is \\)?\\(already\\|not\\s +chan\\|in use\\)" o-nick "NO NAME YET (/NICK to set one)" set-buffer-modified-p buffer-modified-p "Hmmm ... looks like you're still \"%s\"." "%s"] 9)) (defun irc-parse-notice (str) "\ 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 means." (byte-code "\"!O ! \"& !!O#5 \"5Љ !)Ç" [str msg irc-operator nil string-match "\\s +:" match-end 0 irc-insert "^\\*\\*\\* Error: No such nickname (\\(.+\\))$" irc-maintain-list irc-wholist match-beginning 1 remove "^Good afternoon, gentleman\\. I am a HAL 9000" " Operator" set-buffer-modified-p buffer-modified-p] 11)) (defun irc-parse-topic (str) "\ Examine a TOPIC message from the IRC server. TOPIC is sent to all of the users on a channel when someone changes the topic of the channel. Secret channels can not have the topic set. TOPIC messages are displayed as long as 'topic' is in irc-notifies, even if the user changing the topic is being ignored. This function returns t if a signal should be issued for the 'topic' event, nil otherwise." (byte-code " \"O !O# >? Ă+ $\"*" [user str topic irc-notifies nil irc-channel 1 string-match "\\s +TOPIC\\s +" match-end 0 irc-maintain-list irc-wholist add irc-insert "*** %s has changed the topic of %d to \"%s\" ***" irc-signal] 8)) (defun irc-parse-kill (str) "\ Examine a KILL message from the IRC server. For a client this means its connexion will be closing momentarily. This rather drastic turn of events will always get a signal so this function returns t." (byte-code " \"O ! !#O !O# # ! !\"; #A $+" [oper str user path irc-nick t 1 string-match "\\s +KILL\\s +" match-end 0 "\\s +:" nil irc-maintain-list irc-wholist add remove string= downcase irc-insert "*** Your session has been killed by %s via path %s ***" "*** %s has killed %s via path %s ***"] 16)) (defun irc-parse-whoreply (str) "\ Examine a WHOREPLY message from the IRC server. The message is formatted into a line that is more easily understood than the raw data. People who have marked themselves as AWAY are preceded by a '-' (provided the AWAY message has propogated to this client's server); users being ignored are marked by a '#'; IRC Operators are shown with a '*'; and IRC Operators who are away are shown as '='. '#' has priority over the others because if a user is being ignored the other information about that user's status is not really relevant. No signals are issued for lines from the WHOREPLY." (byte-code "\"!O\"?.\"O B!O B 8\"B‚I 8# 8 #ZՂ 8\"gׂ 8\"tق 8\"ۂ 8\"݂ 8\"ׂ 8 8 8GZ\" 8!! 8\" 8\" 8 8 @O& !)‡" [str split nil irc-ignores t string-match "^WHOREPLY\\s +" match-end 0 "^:" "\\(\\s +\\|$\\)" string= 1 "S" irc-maintain-list irc-wholist 2 add irc-insert concat member-general "#" "H" " " "H*" "*" "G" "-" "G*" "=" make-string 10 32 format "%4s " zerop string-to-int 6 "Chan" "" 5 "@" 4 " (" ")"] 31)) (defun irc-parse-linreply (str) "\ Examine a LINREPLY message from the IRC server. LINREPLY is used to answer a LINKS request to show all the servers on line. \"Links\" is a bit of a misnomer since little information regarding the actual structure of the IRCnet can be gained from these messages. No signals are issued for lines from the LINREPLY." (byte-code "\"!!O!O#" [str nil string-match "^LINREPLY\\s +\\(\\S +\\)\\s +" irc-insert "Server: %s (%s)" match-beginning 1 match-end 0] 10)) (defun irc-parse-namreply (str) "\ Examine a NAMREPLY message from the IRC server. 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." (byte-code "\"!!O!O \"\"Ђ# \" \"h !O !O # G G\\ ZXZ Qd ! \"' !,Ň" [str channel users to-insert nick nil string-match "^NAMREPLY\\s +\\S +\\s +\\(\\S +\\)\\s +" match-beginning 1 match-end 0 format "%7s " string= "*" "Private" "^\\(\\S +\\)\\(\\s \\|$\\)" irc-maintain-list irc-wholist add window-width 2 " " irc-insert " %s"] 16)) (defun irc-parse-ERR (str) "\ 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." (byte-code "\"!!O!!!O U> \" !!O # \" UY \" !!ZO\" Ur \" !!O\" U~! U! U \" !!O\" U! U! U\"!!O\"!!\"N !!!U \" U ! U! U%! U1! U=! UI! UU! Un \" !!O\" @U~ԁA! BUԁC!ԁD!!+Ƈ" [str num txt tmp1 irc-nick t nil string-match "^\\S +\\s +\\(4[0-9][0-9]\\)\\s +\\S +\\s +\\(.*\\)$" string-to-int match-beginning 1 match-end 2 401 "^\\S +" 0 irc-maintain-list irc-wholist remove irc-insert "'%s' is not on IRC." 402 "^.*\\s :" "'%s' is not a server on the IRCnet now." 403 "Channel %s is not in use." 411 "The last message had no recipient." 412 "The last message had no text to send." 421 "^\\(.*\\) Unknown command$" "Unknown server command: '%s'." 431 "No nickname give to change to." 432 "Bad format for nickname change." 433 "^\\S + 433 \\(\\S *\\) \\(\\S +\\) " "Nickname '%s' is already being used; please choose another." /= o-nick "NO NAME YET (/NICK to set one)" set-buffer-modified-p buffer-modified-p "%s" "Hmmm ... looks like you're still \"%s\"." 441 "You're not on any channel." 451 "You haven't checked in yet. Choose a nickname." 461 "There weren't enough arguments for the last command." 462 "You've already registered." 463 "Your host isn't permitted." 464 "That password is incorrect." 465 "You've been banned from IRC." 471 "Channel %s is full." 481 "You must be an IRC Operator to do that." 482 "You can't be that IRC Operator from your host." "Unrecognized numeric ERR message follows; please tell tale@pawl.rpi.edu:"] 55)) (defun irc-parse-RPL (str) "\ Examine a numeric RPL_ 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." (byte-code "\"!!O!!!O UC \" !!O !!O#. U \" !!O !!O !!O !!O !!O\"ނ P&. U \" !!O !!O \" \" \". U \" !!O\". U!. U \" !!O \"  !!O !!O$. U.+!. U:!. US \" !!O\". U|\"!!O!!O!!O$. U \" !!O !!O#. U \" !!O\". U O!. U O!. U@A !ԁB!. CUԁD!. EU% \"ԁF !!O !!O#.ԁG!!.ʇ" [str num txt tmp1 tmp2 tmp3 tmp4 irc-conserve-space irc-operator t nil string-match "^\\S +\\s +\\(3[0-9][0-9]\\)\\s +\\S +\\s +\\(.*\\)$" string-to-int match-beginning 1 match-end 2 301 "^\\(\\S +\\) :\\(.*\\)$" irc-insert "%s is away, \"%s\"." 311 "^\\(\\S +\\) \\(\\S +\\) \\(\\S +\\) \\(\\S +\\) :\\(.*\\)$" "%s is %s <%s@%s> on %s." 5 3 string= 4 "*" "a private channel" "channel " 312 "^\\(\\S +\\) :?\\(.*\\)$" "On via server %s." 313 "^\\S +" "%s is an IRC Operator." 0 321 "Channel Users Topic" 322 "^\\(\\S +\\) \\(\\S +\\) :\\(.*\\)$" "%7s %2s %s" "Private" 323 " " 331 "No topic is set." 332 "^:\\(.*\\)$" "The topic is %s." 341 "^:\\(\\S +\\) 341 \\S + \\(\\S +\\) \\(\\S +\\)" "Server %s inviting %s to channel %s" 351 "^\\(\\S +\\) \\(\\S +\\)" "%s is running IRC daemon version %s" 361 "%s has been removed from IRC." 371 372 381 " Operator" set-buffer-modified-p buffer-modified-p "Welcome to the Twilight Zone." 382 "Rereading local ircd configuration information." 391 "It is %s at %s." "Unrecognized numeric RPL message follows; please tell tale@pawl.rpi.edu:"] 88)) (defun irc-pong nil "\ Send a PONG message with the hostname as an argument. This is usually used to answer a PING message." (interactive) (byte-code " P!" [nil irc-send "PONG " system-name] 4)) (defun irc-insert-message (msg &optional pure-first) "\ Format MSG by word-wrapping into 5 characters less than the window-width or less. If a word is too long to be split this way then it is broken at the last character which would fit on the line and continued on the next line as if white space had been there. Each line is prefixed with the string \" - \" and passed to irc-insert for the actual insertion into the buffer." (byte-code " G ZVB T ZO ZO \"A@ 6 U?;P! K !?P P!*" [line lines msg pure-first nil 0 window-width 5 4 irc-fix-wordwrap irc-insert 1 " - " zerop] 9)) (defun irc-insert (format &rest args) "\ Insert before irc-mark the string created by FORMAT with substituted ARGS. Word-wrapping is done to make lines of length less than or equal to one character less than the window-width. If a word is too long to be wrapped it is cut at the last column on the line as though white space were there." (byte-code " # bG SV; SO SO \" AP @ P! P!)*" [str format args line irc-mark apply nil window-width 0 irc-fix-wordwrap " " insert-before-markers " "] 9)) (defun irc-fix-wordwrap (line1 line2) "\ With arguments LINE1 and LINE2 apply some simple heuristics to see if the line which they originally formed was broken in an acceptable place. Returns a dotted pair with LINE1 as the car and LINE2 as the cdr." (byte-code "\"O; \"\" !O; \"; !TOP !O B" [line2 line1 string-match "^\\s +" 1 nil "\\s +$" 0 match-beginning "\\(\\s +\\)\\S +$"] 9)) (defun irc-self-insert (arg) "\ Normally just inserts the typed character in the input region. If point is in the output region, irc-spacebar-pages is non-nil and a space is typed, scroll-up (aka window-forward) otherwise point moves to end of input region and inserts the character. If the character to be inserted is a colon or semi-colon and it is the first non-white space charavter on the line then the input region is updated to begin with the last explicit sendlist, irc-last-explicit. Inserts the character ARG times if self-inserting. An argument is not passed to scroll-up if paging with the spacebar." (interactive "p") (byte-code "Ȉ` Y U U! `d\"\" ?K1 !H 8 UBҏHdb !pQdb `\" Ubdc Vp S!*" [in-region irc-mark expand-colon last-input-char arg irc-spacebar-pages irc-last-private irc-last-explicit nil 58 59 string-match "^\\s *$" buffer-substring self-insert-command 32 EOB (byte-code "!" [nil scroll-up] 2) ((end-of-buffer (byte-code "db" [] 1))) delete-region 1] 7)) (defun irc-del-backward-char (arg) "\ If in the input region, delete ARG characters before point, restricting deletion to the input region. If in the output region and irc-spacebar-pages then scroll-down (aka window-back) otherwise do nothing." (interactive "p") (byte-code "È`V `ZV`\" !/`W$ -!/ " [irc-mark arg irc-spacebar-pages nil delete-region delete-backward-char scroll-down ding] 5)) (defun irc-tab nil "\ If point is in the input region then tab-to-tab-stop. If it is in the output region, go to the previous line if irc-spacebar-pages; do nothing otherwise." (interactive) (byte-code "ˆ`Y  ! " [irc-mark irc-spacebar-pages nil tab-to-tab-stop previous-line 1 ding] 4)) (defun irc (new-buffer) "\ Enter the Internet Relay Chat conferencing system. If no connexion to an irc-server is open, then one is started. If no buffer *IRC* exists then it is created otherwise the existing buffer is used. If a connexion is already active then the most recently started IRC session is switched to in the current window. This makes binding 'irc' to a key much more convenient. With prefix argument NEW-BUFFER, another *IRC* buffer is created and a new IRC session is started. This is provided so that multiple IRC sessions can co-exist in one Emacs, which is sometimes a useful thing." (interactive "P") (byte-code "Ĉ !! ? $ @!!7!db\" Џ*" [buffer new-buffer proc irc-processes nil generate-new-buffer "*IRC*" get-buffer-create switch-to-buffer process-buffer insert "IRC-mode for GNU Emacs -- comments to tale@pawl.rpi.edu." " C-c n for news. " irc-mode NOT-IRCED (byte-code " $\"\" %! P!     B O!!^x\\Wu\\^" [proc buffer irc-server irc-port irc-nick irc-away nil irc-channel irc-history-index irc-operator irc-scratch irc-last-command irc-last-explicit irc-last-private irc-processes irc-last-time irc-total-time irc-last-stamp irc-time-stamp open-network-stream "irc" set-process-filter irc-filter set-process-sentinel irc-sentinel irc-send format "USER %s %s %s %s" user-login-name system-name user-full-name "NICK " 0 -1 "" "*;" irc-get-time string-to-int 3 zerop] 15) ((error (byte-code " #" [irc-port irc-server irc-insert "Sorry ... couldn't connect to %s at %s. "] 4)))] 10)) (defun irc-mode nil "\ To understand some documentation given with irc-mode variables and functions, \"output region\" is defined as everything before the irc-mark. irc-mark is a marker kept by irc-mode to know where to insert new text from IRC. Text in the output region cannot be modified by the most common methods of typing a self-inserting character or pressing delete. The input region is everything which follows irc-mark. It is what gets processed by irc-mode when you type LFD or RET. If irc-spacebar-pages is non-nil, the following keys are in effect when the cursor is in the output region: SPC scroll-forward DEL scroll-backward LFD or RET next-line TAB previous-line Local keys: \\{irc-mode-map}" (interactive) (byte-code "È  Z!!!!!!!!!!!!!L!L!!!!!& L! Ld\" !!" [major-mode mode-name fill-column nil irc-mode-map kill-all-local-variables irc-mode "IRC" window-width 5 make-local-variable irc-away irc-channel irc-wholist irc-operator irc-history-index irc-scratch irc-last-command irc-last-explicit irc-last-private irc-last-stamp irc-last-time irc-total-time blink-matching-paren scroll-step 1 mode-line-format list purecopy "--- %14b" global-mode-string " %[(" ")%]---" irc-nick "-%-" set-marker irc-mark make-marker buffer-enable-undo irc-wrap-display-time turn-on-auto-fill use-local-map run-hooks irc-mode-hook] 32)) (defun irc-sentinel (proc stat) "\ The sentinel for the IRC connexion. Takes the normal sentinel arguments PROCESS and STATUS." (byte-code "\" !qdb \") \"" [stat proc irc-processes string= "finished " process-buffer irc-insert " IRC session finished at %s. " irc-get-time delq] 7)) (defun irc-process-input nil "\ If in the input region, parse it for messages and commands. In the output region, next-line if irc-spacebar-pages, otherwise do nothing. All of the lines in the input region are rejoined during processing to be handled as one. A command is any line starting with a / after leading whitespace is stripped away; commands can not exceed 250 characters. Messages can be longer but they will be split into 250 character segments for IRC. The buffer will reflect how the message was sent if it needed to be broken; the split(s) will be indicated by \" >>\" to mean that the message is continued." (interactive) (byte-code "ʈ`W ! + db#*`T+`\"b!`\"ԉd\" \"R!* \"c !IR \" GWdbc`\" O! !* \" \" !? d\"P! GV O O \" AP @P GZ\\b \"! ! `\" !dbc`\" !+" [irc-mark irc-spacebar-pages t irc-history-index txt send ass irc-last-command irc-last-explicit irc-default-to nil next-line 1 ding irc-check-time delete-region re-search-backward "[^ ]" re-search-forward "\\s *" -1 buffer-substring string= "" message "(nothing sent to the irc-server)" string-match " " match-beginning 0 32 "^/" 250 set-marker irc-execute-command "IRC commands can't exceed 250 characters." irc-find-to explicit "^[^:;]" irc-add-to-hist irc-fix-wordwrap " >>" 3 insert " >> " looking-at "[ ]" delete-char beginning-of-line irc-execute-msg] 32)) (defun irc-execute-command (str) "\ Execute the \"/\" command of STR. STR should not begin with a slash. Commands are first looked up in the irc-alias-alist; if it is found there then the alias gets passed recursively with any arguments the original had. The irc-command-alist is checked next and finally the irc-operator-alist. A command is considered \"found\" when it matches either exactly or unambiguously starting at the first character. That is, J would match JOIN, but OIN would not." (byte-code " \"O !O  #\" # ?1 ?? \" # ?N !\" @ A#\\ A GVu ! #\"#\" #   @ @\" @\"A \" Q!\" #   @\"AP! \" \" #   @ \"AP! \" @!\"-" [case-fold-search t cmd str text ambig irc-alias-alist irc-command-alist irc-operator irc-operator-alist matches 0 string-match "\\(\\s +\\|$\\)" match-end nil irc-check-list mapcar car append start-only irc-insert "Unknown command '/%s'. Type /HELP for help." upcase member-general string= 1 "Ambiguous command '/%s'. Could be %s." irc-subst-comma mapconcat (lambda (arg) (byte-code "P" [arg "/"] 2)) ", " "or" irc-execute-command assoc string< "" " " funcall intern-soft "irc-execute-" "Only IRC Operators can use the /%s command."] 34)) (defun irc-send (str) "\ Send STR to process in the current buffer. A CR-LFD pair is appended automatically as per the 'official' IRC protocol, but it seems unnecessary. Returns its argument STR." (byte-code "p!P\"" [str send-string get-buffer-process " "] 5)) (defun irc-execute-privmsg (str) "\ Usage: /MSG recipient(s) message This command is provided simply for compatability with the C client. It is preferable instead to just type the name of the user followed by a semi-colon or colon and then the message. That is, \"tale;hi!\" will send the message \"hi!\" to the user with the nickname which unambiguously matches \"tale\". A semi-colon or colon at the beginning of the line means to send to the last recipient explicity specified; typing a semi-colon at the beginning of a line expands it to the last recipient(s) specified while typing a colon at the beginning of the line automatically expands to the last person to have sent you a private message. The recipients for a message can be a comma separated list of users and/or channels." (byte-code " \"OP !OP!!" [irc-last-explicit str irc-add-to-hist irc-execute-msg 0 string-match "\\s +\\|$" ";" match-end nil] 8)) (defun irc-execute-msg (str) "\ Send a message to a channel or another user. Returns its argument STR, munged slightly to indicate where it was attempted to be sent." (byte-code "  \" OP3 \"?30 P3! \"^ ! GSO! ! HU[ O\\ \"\" o #\"\" ?! ," [tolist orig str icw confirm irc-last-explicit irc-default-to nil irc-confirm string-match "^[;:]" 1 irc-find-to explicit irc-insert "You have no default sendlist." irc-burst-comma 0 irc-find-message 32 delq mapcar (lambda (to) (byte-code "!!?'! U P!$ R! \"\"O !C!łL P! !\"^!ł GUs @ R! @ ?# R! #\"#Ň" [to irc-channel str icw irc-wholist nil t zerop string-to-int irc-send "MSG :" "PRIVMSG " " :" irc-check-list string= "*" irc-insert "You are not on any channel." int-to-string "0" "You can't send to channel 0." 1 irc-maintain-list add "Ambiguous recipient \"%s\"; could be %s." irc-subst-comma mapconcat eval ", " "or"] 24)) "(message sent to %s)" irc-subst-comma mapconcat eval ", " "and" "(message not sent)"] 16)) (defun irc-execute-oops (newto) "\ Usage: /OOPS intended-recipient Send irc-oops to recipient(s) of last message and resend message to 'intended-recipient'. This command is handy when you've just sent a message to the wrong place and you want the person/people who saw it to know that they should just disregard it. The message which was originally sent then gets forwarded to its proper destination." (interactive) (byte-code "È@! P! !" [irc-history irc-oops newto nil irc-execute-msg irc-find-to irc-execute-redirect] 4)) (defun irc-execute-redirect (newto) "\ Usage: /REDIRECT additional-recipient Send to 'additional-recipient' the last message which you sent. This command can be fairly easily duplicated using the history mechanism by hand but it is provided to make it even easier." (interactive (byte-code "GSOQ\"!C" [irc-default-to read-string format "New recipient(s)? %s" "[RET for " 0 "] " ""] 7)) (byte-code "Ĉ \"? \"@t? \"#!@ \".1 P  @!P!!" [irc-default-to newto irc-last-explicit irc-history nil string-match "^[a-zA-Z0-9-_,|{*]*$" irc-insert "%s is not a valid sendlist. Message not redirected." string= "" call-interactively irc-execute-redirect ";" irc-add-to-hist irc-execute-msg irc-find-message] 10)) (defun irc-execute-quote (msg) "\ Usage: /QUOTE string This command is used to send 'string' directly to the IRC server without any local processing. Warning: this has the potential to screw up some things in irc-mode, particularly if it is used to change your nickname or to switch channels." (interactive "sString to send to server: ") (byte-code "\"!!" [msg nil string-match "^\\s *$" irc-insert "(nothing was sent to the IRC server)" irc-send] 4)) (defun irc-execute-who (channel) "\ Usage: /WHO [ channel | user ] Get a list of the users on IRC. Optional argument 'channel' means to show just the users on that channel, with * representing the current channel. Each user is indicated on a separate line with their nickname, channel, login name, host and real name. The first column indicates their status -- ' ' for here, '-' for away, '*' for an operator, '=' for an away operator and '#' for someone being ignored. Servers don't propogate the information about who is away so you will probably only see people on your server correctly marked regarding their presence. Users who are either on a channel greater than 1000 or who are on no channel have nothing listed in the Chan column. Users who are on channels less than zero do not appear in the list. If a non-numeric argument 'user' is given then it is taken to be the nickname of a user on IRC and more information, if available, is given about the person. If this function is called interactively then the prefix argument is used as the channel to query. No argument means all of them and an argument of - means the current channel." (interactive (byte-code "=‚!!CŇ" [current-prefix-arg - ("*") int-to-string prefix-numeric-value ("0")] 3)) (byte-code "Ĉ \" ! \"ʉ !@!?* !H !!5ĉ P! ?BtH!" [current-prefix-arg channel irc-channel irc-wholist nil irc-conserve-space string-match "^\\s *\\*\\(\\s .*\\)?$" int-to-string "^\\s *$" "0" numberp read-from-string irc-execute-whois zerop string-to-int irc-send "WHO " irc-insert ""] 11)) (defun irc-execute-whois (user) "\ Usage: /WHOIS user Get a two line description of who and where 'user' is. If user is not provided it is read from the minibuffer with a completing-read." (interactive (byte-code "" [("")] 1)) (byte-code "ˆ\"\"P! ?t\"!" [user irc-conserve-space nil irc-read-user "Who is who? " string< "" irc-send "WHOIS " irc-insert] 5)) (defun irc-execute-list (&optional channel) "\ Usage: /LIST [ channel ] Get a list of the discussions that are on IRC. The optional channel argument is supposed to show just that channel but this is not currently supported by most servers." (interactive) (byte-code "ˆP! ?t!" [channel irc-conserve-space nil irc-send "LIST " irc-insert ""] 3)) (defun irc-execute-links (&optional cruft) "\ Usage: /LINKS Show the names of all the servers which can communicate with your server. The links can go down isolating different parts of the IRC-net, so this is a good way to find out how extensive it is at the moment. Any arguments to this command are ignored." (interactive) (byte-code "!? t!" [irc-conserve-space nil irc-send "LINKS" irc-insert ""] 3)) (defun irc-execute-lusers (&optional cruft) "\ Usage: /LUSERS Get the number of users and servers on your IRC network. Arguments to this command are ignored." (interactive) (byte-code "!? t!" [irc-conserve-space nil irc-send "LUSERS" irc-insert ""] 3)) (defun irc-execute-admin (server) "\ Usage: /ADMIN [ server ] Get information about the IRC administrator for 'server'; if server is not supplied just query for the server to which you are connected." (interactive "sAdministrative info about which server? ") (byte-code "ˆP! ?t!" [server irc-conserve-space nil irc-send "ADMIN " irc-insert ""] 3)) (defun irc-execute-time (&optional server) "\ Usage: /TIME [ server ] Get the current time on 'server'; is no server is provided use the one to which you are connected. When called with a interactively with a prefix-argument the server name is read using the minibuffer. Querying other servers can be handy given that people on IRC are spread out from the west coast of the United States to Finland. The question \"What time is it in Finland?\" comes up so frequently that an alias -- /TF -- has been provided by default to get the answer. This alias should work as long as tut.fi is connected to your IRC-net." (interactive (byte-code " !C Ç" [current-prefix-arg read-string "Get time at which server? " ("")] 2)) (byte-code "ˆ P!" [current-prefix-arg server nil irc-send "TIME "] 3)) (defun irc-execute-join (channel) "\ Usage: /JOIN channel Join 'channel' on IRC. If channel is not provided it is requested in the minibuffer; when called interactively channel is set to the prefix argument if one is present. Use /LEAVE to exit the channel." (interactive (byte-code " !!CÇ" [current-prefix-arg int-to-string prefix-numeric-value ("")] 3)) (byte-code "ˆ \"! \" !!P!" [current-prefix-arg channel nil string= "" read-string "Channel to join? " string-match "^\\s *$" irc-send "CHANNEL " int-to-string string-to-int] 8)) (defun irc-execute-leave (&optional cruft) "\ Usage: /LEAVE Leave your current channel and join no other. Any arguments to this command are ignored." (interactive) (byte-code "!" [nil irc-send "CHANNEL 0"] 2)) (defun irc-execute-nick (name) "\ Usage: /NICKNAME name Change your nickname in IRC. A nickname can contain alphanumeric characters, underscores (_), hyphens (-) or the special characters vertical bar (|) and left brace ({), which are alphabetic characters in Finnish. The name cannot start with a hyphen or number and only the first nine characters are used. Unfortunately, due to the way confirmation from the servers work, it might be falsely reported that your nickname was successfully changed when it was not. The server will come back and say so and finally irc-mode will wise-up and note that your nickname was not changed." (interactive "sNew nickname? ") (byte-code "ˆ\"?\"!GV$O\"<t6!9!U\" # !P!" [name irc-nick nil string-match "^\\([a-zA-Z|{_][a-zA-Z0-9-_|{]*\\)$" read-string format "\"%s\" is not valid. New nickname? " 9 0 string= "" irc-insert "Nickname not changed." call-interactively irc-execute-nick "You will now be known as \"%s\"." put o-nick set-buffer-modified-p buffer-modified-p irc-send "NICK "] 13)) (defun irc-execute-quit (&optional text) "\ Usage: /QUIT Exit IRC. The connexion is closed but the buffer is left behind. Arguments to this command are not ignored; if any are present then the session is not exited as a safety precaution against seemingly unintentional use of the command." (interactive) (byte-code " \"!!" [text nil string< "" irc-insert "/QUIT takes no arguments." irc-send "QUIT"] 4)) (defun irc-execute-away (&optional text) "\ 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." (interactive "sReason for being away: ") (byte-code "ˆ\"  \"!&P!Q !" [text irc-away nil string= "" irc-insert "You are marked as away: '%s'." "You are not currently marked as being away." irc-send "AWAY " " [" "]" set-buffer-modified-p buffer-modified-p] 7)) (defun irc-execute-here (&optional cruft) "\ Usage: /HERE Mark yourself as present (ie, not \"away\") on IRC. Any arguments to this command are ignored." (interactive) (byte-code "! !" [irc-away nil irc-send "AWAY" set-buffer-modified-p buffer-modified-p] 4)) (defun irc-execute-topic (topic) "\ Usage: /TOPIC topic Make 'topic' the description of the current channel; this description is shown to people looking at the channel listing." (interactive (byte-code "! ‚\"!C" [irc-channel zerop "" read-string format "Topic for channel %d? "] 5)) (byte-code "ˆ!!%t? \" !% P!" [irc-channel topic nil zerop irc-insert "You aren't on any channel." string-match "^\\s *$" call-interactively irc-execute-topic irc-send "TOPIC :"] 7)) (defun irc-execute-oper (oper) "\ 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." (interactive "sOperator name? ") (byte-code "Ĉ\"!!O!!O \"t# *ĂK 4!K \"C \"! R!+" [oper name passwd noname nil string-match "^\\s *\\(\\S *\\)\\s *\\(\\S *\\).*$" match-beginning 1 match-end 2 string= "" call-interactively irc-execute-oper irc-read-passwd format "Password for operator %s? " irc-send "OPER " " "] 15)) (defun irc-execute-summon (user) "\ Usage: /SUMMON user 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." (interactive "sUser to summon to IRC? ") (byte-code "ˆ \"t ‚\"!\" P!)" [nouser user nil string-match "^\\s *$" call-interactively irc-execute-summon irc-send "SUMMON "] 5)) (defun irc-execute-users (host) "\ 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." (interactive (byte-code " !C Ç" [current-prefix-arg read-string "List users on which host? " ("")] 2)) (byte-code "È ?t! P!" [current-prefix-arg irc-conserve-space host nil irc-insert "" irc-send "USERS "] 4)) (defun irc-execute-info (&optional cruft) "\ Usage: /INFO Show some information about the programmer of IRC. Arguments to this command are ignored." (interactive) (byte-code "!" [nil irc-send "INFO"] 2)) (defun irc-execute-kill (user) "\ Usage: /KILL user Forcibly remove a user from IRC. This command is reserved for IRC Operators." (interactive (byte-code "" [("")] 1)) (byte-code "\"\"P!" [user nil irc-read-user "Nuke which user? " string< "" irc-send "KILL "] 5)) (defun irc-execute-invite (user) "\ Usage: /INVITE user [ channel ] Ask 'user' on IRC to join 'channel'. If channel is 0, * or not provided then the invitation defaults to your current channel. If you are not on any channel and channel is 0 or not provided then no invitation is sent -- you can't invite someone to go private. When called interactively channel is set to the prefix argument; with no argument or - the current channel is assumed." (interactive (byte-code " =?! !C" [current-prefix-arg irc-channel int-to-string - prefix-numeric-value] 3)) (byte-code "Ljt ! \"! P \" !!O !!O \" E!~ !P !!Y!~ !\" \"kԂl \" \"~ R!+" [current-prefix-arg irc-channel user name channel noname t nil zerop string= "0" read-string "Invite to which channel? " ". " string-match "^\\s *\\(\\S *\\)\\s *\\(\\S *\\).*$" match-beginning 1 match-end 2 "" call-interactively irc-execute-invite string-to-int irc-insert "You are not on any channel. No invitation sent." irc-read-user format "Invite whom to channel %d? " "." string< irc-send "INVITE " " "] 24)) (defun irc-execute-names (channel) "\ Usage: /NAMES [ channel ] Show which channels everyone is on. Optional argument 'channel' (which can be provided as a prefix argument if called interactively) means to show just the users on that channel. * or an interactive prefix argument of - means to show people on the current channel. Each line starts with a column for the channel number and is followed by the nicknames of the people on that channel. Users who are on private channels or who are not on any channel are listed as \"Private\". Users who are on secret channels (channels less than 0) are not shown at all." (interactive (byte-code "=‚!!CŇ" [current-prefix-arg - ("*") int-to-string prefix-numeric-value ("0")] 3)) (byte-code "Ĉ \" ! !!ˉ P! ?)t/!!" [current-prefix-arg channel irc-channel irc-wholist nil irc-conserve-space string-match "^\\s *\\*\\(\\s .*\\)?$" int-to-string zerop string-to-int "" irc-send "NAMES " irc-insert "Channel Users"] 8)) (defun irc-execute-wall (msg) "\ Usage: /WALL message Send 'message' to everyone on IRC. This can only be done by IRC Operators." (interactive "sMessage for everyone: ") (byte-code "ˆt? \" ! \" P!" [msg irc-execute-wall nil string= "" call-interactively string< irc-send "WALL "] 6)) (defun irc-execute-rehash (&optional cruft) "\ Usage: /REHASH Force the server to which you are connected to reread it's irc.conf file. Arguments are ignored. This command is only available to IRC Operators." (interactive) (byte-code "!" [nil irc-send "REHASH"] 2)) (defun irc-execute-trace (server) "\ Usage: /TRACE [ server ] 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." (interactive (byte-code " ! C" [current-prefix-arg read-string "Trace route to which server? " ""] 2)) (byte-code "ˆ \" !!OP!t!" [current-prefix-arg server nil string-match "^\\s *\\(\\S *\\).*$" irc-send "TRACE " match-beginning 1 match-end irc-insert ""] 8)) (defun irc-execute-send (slist) "\ 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 nor are channels which you are not on. \"*\" is always allowed and means to send to the current channel. If no item in the new list can be set then the sendlist is not changed." (interactive "sDefault recipient(s) for messages? ") (byte-code "È!\"É=!\"\" 3 #P=\"=! ?I![ GSO!#\"\")" [slist matches irc-default-to nil irc-nuke-whitespace string= "-" delq mapcar (lambda (arg) (byte-code " \" \" i \"!!Âi !!?? ! U6 < \"ÂiGUK@i=Z \"Âi#\"#Ç" [matches irc-wholist arg nil irc-channel t to irc-check-list string= "*" "0" irc-insert "You can't send to channel 0." zerop string-to-int "You are not on channel %s." 1 "No names found to match \"%s\"." "Ambiguous recipient \"%s\"; could be %s." irc-subst-comma mapconcat eval ", " "or"] 17)) irc-burst-comma mapconcat eval "," ";" "" irc-insert "(no matches -- sendlist not changed)" "Your default sendlist is disabled." "You are sending to %s." irc-subst-comma 0 ", " "and"] 18)) (defun irc-execute-notify (notify) "\ Usage: /NOTIFY [ [+]event | -event ] [...] Set the list of events to notify you about with a message. Notification is a one-line message inserted when someone causes that event to occur. Events are added with +event or simply event; they are removed with -event. + adds all supported events and - removes all supported events. More than one event can be specified in the arguments. In case of conflict, the argument which appears later overrides the argument with which it conflicts. Currently supported by /NOTIFY are the 'join' and 'nick' events. Join happens whenever someone enters or leaves a channel which you are on. Nick occurs when someone changes nicknames; recognition of this event is currently limited to when the person making the change is on the same channel as you." (interactive "sNotify for events: ") (byte-code "ƈ!\"\"O!O \" !!O\" !!O \"OƂW \"\"@ \"b lƉ \"z  ? \" \" >? B#\"\"!-" [notify recog str sym off event nil irc-notifies t irc-nuke-whitespace (join nick topic) string< "" 0 string-match "\\s +\\|$" match-end "^\\([-+]?\\)\\(.*\\)$" string= "-" match-beginning 1 2 delq mapcar (lambda (arg) (byte-code "!P !\" " [event arg string-match "^" regexp-quote prin1-to-string] 5)) irc-insert "Notify: Unknown argument '%s'." "Notification is currently enabled for %s." irc-subst-comma mapconcat prin1-to-string ", " "and" "Notification is currently disabled."] 24)) (defun irc-execute-confirm (str) "\ Usage: /CONFIRM [ + | - ] Turn on message confirmation with + or off with -. Any other arguments or no arguments just gives a message about the current setting. Message confirmation is a line indicating to whom a message was sent. Occasionally this will say that a message has been sent to someone who was not present but another message soon after will set the record straight." (interactive "sSet confimation on (+) or off (-)? ") (byte-code "È\"!!O\"‰)\")É 4΂5\"" [str irc-confirm t nil string-match "^\\s *\\(\\S *\\).*$" match-beginning 1 match-end string= "+" "-" irc-insert "Message confirmation is %s." "on" "off"] 8)) (defun irc-execute-ignore (user) "\ Usage: /IGNORE user Ignore another user on IRC. Any events by this person (except for WALL) are not displayed. With no arguments a list of all currently ignored people. IRC-mode will track the ignored user across nickname changes if it notices the change. If the user sends either a private message or an invitation to you while being ignored a message will be sent to that person saying \"You are being ignored.\" To undo this command, use /UNIGNORE." (interactive (byte-code "" [("")] 1)) (byte-code "ˆt \"?\"\"4 . #\"\"1!>\"#" [user irc-ignores nil string= "" irc-read-user "Ignore which user? " irc-insert "You are currently ignoring %s." irc-subst-comma mapconcat eval ", " "and" "You are not ignoring anyone." "You are now ignoring %s." irc-maintain-list add] 12)) (defun irc-execute-unignore (user) "\ Usage: /UNIGNORE user | + | - Stop ignoring a user who has been /IGNOREd. The special arguments + or - mean to stop ignoring everyone who is being ignored." (interactive (byte-code "" [("")] 1)) (byte-code "ˆ? !; \"‰!; # \"1‚; \" #" [irc-ignores user nil irc-insert "You are not ignoring anyone." string-match "^\\s *\\([-+]\\)\\(\\s |$\\)" "You are no longer ignoring anyone." irc-read-user "Stop ignoring whom? " string= "" "You are no longer ignoring %s." irc-maintain-list remove] 10)) (defun irc-execute-signal (sigs) "\ Usage: /SIGNAL [ + | - | [+]event | -event ] [...] Set the events which will get signals (aks bells or dings) when they occur. Events supported are: private -- private messages join -- channel changes public -- public messages topic -- channel topic changes wall -- broadcast messages nick -- nickname changes invite -- invitations Without any arguments /SIGNAL simply prints a message about what signals are currently enabled. With event or +event turn on all signalling for that event. Remove all signals for an event with -event. /SIGNAL + or /SIGNAL - adds or removes all signals respectively. Multiple arguments are accepted; later ones take precedence over the ones which came before them. For example, '/SIGNAL - +w +i' would turn off all signals and then turn on signalling only for wall messages and invitations." (interactive "sSet signal: ") (byte-code "Lj!\"\"O!O \" !!O\" !!O\"Tǂ\\ \"\"@\"h u \"\" \" ?\" \"\" \"\" \"\" #\"Q!!." [sigs recog str sym on off event nil irc-signals t irc-nuke-whitespace (private public wall invite join nick topic) string< "" 0 string-match "\\s +\\|$" match-end "^\\([-+]?\\)\\(.*\\)$" string= "-" match-beginning 1 2 delq mapcar (lambda (arg) (byte-code "!P !\" " [event arg string-match "^" regexp-quote prin1-to-string] 5)) list (lambda (arg) (byte-code "D" [arg t] 2)) irc-insert "Signal: Unknown argument '%s'." setcdr assoc (t) (lambda (arg) (byte-code " \"8= " [arg irc-signals t 1 assoc] 4)) "Signalling is enabled for " irc-subst-comma mapconcat prin1-to-string ", " "and" "." "All signalling is currently disabled."] 31)) (defun irc-execute-stamp (stamp) "\ Usage: /STAMP [ + | - | [+]event | -event | interval ] [...] 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." (interactive "sSet time-stamp: ") (byte-code "ň!\"\"O!O \" !!O\" !!O \"Młx !P\"\\قx !P\"kۂx !@!x !@ \" ʼn \"lj ? \" !  =C\"@? = =lj,=?!!!˂$\"#" [stamp str sym event off nil irc-message-stamp t irc-time-stamp irc-nuke-whitespace string< "" 0 string-match "\\s +\\|$" match-end "^\\([-+]?\\)\\(.*\\)$" string= "-" match-beginning 1 2 "^" regexp-quote "private" private "public" public natnump read-from-string irc-insert "Stamp: Unknown argument '%s'." delq (private public) "%s messages get time-stamps.%s" "Private and public" "No" capitalize prin1-to-string zerop format " The time interval is %d minutes."] 32)) (defun irc-execute-alias (alias) "\ 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." (interactive "sName for alias? ") (byte-code "ˈt\"!Q!\"!!O!!!O!!!O \"b ^ @@ @A# AH) \" \"}@A# \")  \"\" # ? ? \" # G\" #\"# \" @! \"ڂ Q# \"A#," [alias new cmd arg match aliases irc-alias-alist t irc-command-alist irc-operator irc-operator-alist nil " " read-string format "Alias '%s' to which command? " irc-nuke-whitespace string-match "^/?\\(\\S *\\)\\s */?\\(\\S *\\)\\s *\\(.*\\)$" upcase match-beginning 1 match-end 2 3 string= "" irc-insert "\"/%s\" is aliased to \"/%s\"." assoc "\"/%s\" is not aliased." irc-check-list mapcar car append start-only /= "'/%s' is an ambiguous command. Could be %s." irc-subst-comma mapconcat eval ", " "or" "Command not found: '/%s'." irc-change-alias downcase add "\"/%s\" has been aliased to \"/%s\"."] 37)) (defun irc-execute-unalias (alias) "\ Usage: /UNALIAS alias Remove the 'alias' for a command." (interactive (byte-code "B$C" [irc-alias-alist nil t completing-read "Unalias which command? " ("" . "")] 5)) (byte-code " \" !!O \"$t?!!`\" # G\"S J ! #\"#P !\"_ @# @\")" [irc-alias-alist nil t alias match string-match "^\\s *\\(\\S *\\)\\s *$" match-beginning 1 match-end string= "" call-interactively irc-execute-unalias irc-check-list mapcar car /= irc-insert "'%s' is an ambiguous alias. Could be %s." upcase irc-subst-comma mapconcat eval ", " "or" "No alias found to match '%s'." irc-change-alias remove "'%s' is no longer aliased."] 18)) (defun irc-execute-help (topic) "\ 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." (interactive "sHelp for which command? ") (byte-code "Ȉ\"!!O\"f # \"\" [ 8 88 8? 8F 8M&P \"'ܐ !* p \"\"#? ? \"#G\"!#\"#!\"@ܐ \" \"AP!!!)" [topic str topics irc-command-alist irc-operator irc-operator-alist match t nil string-match "^\\s *\\(\\S *\\)\\s *$" match-beginning 1 match-end string= "" "Help is available for the following IRC-mode commands: " mapcar car append format " %14s%14s%14s%14s%14s" 0 2 3 4 nthcdr 5 "*Help*" princ irc-check-list start-only /= irc-insert "Ambiguous help topic '%s'; could be %s." upcase irc-subst-comma mapconcat eval ", " "or" "No help is available for '%s'." documentation intern-soft "irc-execute-" assoc] 31)) (defun irc-truncate-buffer (size) "\ Remove as many lines from the beginning of the buffer as is necessary to get it under SIZE characters. This function is used by irc-mode to prevent an irc-session from consuming gross amounts of space." (byte-code " W *dZb ` W\"`T\")p!#)" [size nil irc-mark buffer-size end-of-line delete-region 1 message "Warning: %s exceeding %s characters. Couldn't truncate." buffer-name] 8)) (defun irc-read-passwd (&optional prompt) "\ Allow user to type a string without it showing. Returns string. If optional PROMPT non-nil, use it as the prompt string in the minibuffer." (byte-code " !rU U?T U& U;GV8GSOB !P P G\"P! \\!+" [passwd echo-keystrokes char prompt "" 0 nil message 13 10 8 127 char-to-string make-string 42] 8)) (defun irc-read-user (prompt user &optional list) "\ Prompting with PROMPT, read an IRC nickname from the minibuffer. Second argument USER is a string which is checked for a non-ambiguous match before the minibuffer read is done. Optional third argument LIST is a list to use for checking rather than the irc-wholist. It returns either the name of a user or an empty string (\"\")." (byte-code "\"!!O   \"/ \"G\"_\"@΂O G!LՂM\"# B\"%a @+" [user completion-ignore-case t list irc-wholist match prompt nil string-match "^\\s *\\(\\S *\\)" match-beginning 1 match-end string= "" /= irc-check-list completing-read format "%s%s" zerop "No names match '%s'. " "'%s' is ambiguous. " mapcar] 17)) (defun irc-nuke-whitespace (str) "\ One string argument. Returns it with surrounding whitespace removed." (byte-code "\"!\"O" [str string-match "^\\s *" match-end 0 "\\s *$"] 7)) (defun irc-subst-comma (str newsep) "\ Return the string formed by substituting for the last \", \" in STR the string NEWSEP followed by a space. For example: (irc-subst-comma \"1, 2, 3\" \"or\") => \"1, 2 or 3\" This function is especially designed for making message from irc-mode more grammatically correct and the strings which it operates on should be carefully chosen so as to avoid possibly blowing away a comma that really wasn't separating elements in a list." (byte-code "\"!O !TOR" [str newsep string-match ", [^,]*$" 0 match-beginning " " nil] 9)) (defun irc-get-time nil "\ Return the hour and minutes of the current time in the form \"HH:MM\"." (byte-code " \"!O)" [time current-time-string string-match "..:.." match-end 0] 6)) (defun irc-check-time nil "\ Check to see whether it is time to insert a current-time message into the *IRC* buffer." (byte-code "  O!O! !ł[ \"&ł[ W1͂2\\ Z\\Z WNł[\" +" [time old-minute irc-last-time new-minute irc-time-stamp nil irc-total-time irc-last-stamp irc-get-time string-to-int 3 zerop string= 60 0 irc-insert "*** It is now %s ***" irc-wrap-display-time] 9)) (defun irc-wrap-display-time nil "\ Set up a wrapper around the display-time-filter to hopefully provide a little better accuracy for the time stamps." (byte-code "! !?KMM" [fboundp display-time-filter original-display-time-filter (lambda (proc str) " The filter for the display-time-process. This function has been modified for IRC-mode to call irc-check-time before calling the original display-time-filter." (byte-code "  \" @!!q A*) \"" [buf procs irc-processes proc str nil buffer-name process-buffer irc-check-time original-display-time-filter] 6))] 4)) (defun irc-change-alias (alias cmd add) "\ Modify ALIAS for CMD in the irc-alias-alist. ADD non-nil means to put the alias in the list, nil (or the symbol `remove') means to clear it. This function does no hand-holding like /ALIAS; its intended use is in irc-mode-hook." (byte-code " ! \" ? = \"/& \"/ ! B B)" [entry alias irc-alias-alist add cmd assoc upcase remove delq setcdr] 7)) (defun irc-signal (user event) "\ Return t if a ding should be issued for a USER/EVENT pair. Currently only the event part of things is supported by /SIGNAL." (byte-code " \"A> # \"A#)" [signal event irc-signals t user assoc member-general string=] 7)) (defun irc-check-list (list item &optional start-only) "\ See if LIST has string ITEM. Returns a list of possible matches. The list returned is based on the following precedence rules: if there is an exact match, it is returned. If there are any strings in the list whose beginning match the item, they are returned. If that fails and optional argument START-ONLY is missing or nil, strings which have the item match anywhere are returned. As a last resort, nil is returned. This function is not case-sensitive." (byte-code " ! \"\"8 \"\"(81Ă8 \"\"+" [return case-fold-search t item nil list start-only regexp-quote delq mapcar (lambda (arg) (byte-code "Q \" " [item arg string-match "^" "$"] 4)) (lambda (arg) (byte-code "P \" " [item arg string-match "^"] 3)) (lambda (arg) (byte-code "P \" " [item arg string-match "."] 3))] 10)) (defun irc-maintain-list (list item func) "\ Maintain a LIST of strings by adding or removing string ITEM. Third argument FUNC should be 'add or t or to make sure the item is in the list or 'remove or nil to make sure item is out of the list." (byte-code ">D !#ÂA !\"\"8 @#A! !BL*U>U !\"\"L" [func item list nil case-fold-search t old (add t) member-general eval string= delq mapcar (lambda (arg) (byte-code "!Q \" " [item arg string-match "^" regexp-quote "$"] 5)) irc-maintain-list remove (remove nil) (lambda (arg) (byte-code " \" ‚ " [item arg nil string=] 3))] 14)) (defun irc-burst-comma (str) "\ Take a comma or space separated STR and turn it into a list of its elements. Example: \"1, 2,3,4, 6 7\" becomes the list (\"7\" \"6\" \"4\" \"3\" \"2\" \"1\")." (byte-code " \" #1 !O\"?' B! G \"C OBD+" [list sub beg str nil 0 string-match "" ",+\\|\\s +\\|,+\\s +" string= match-beginning match-end /=] 9)) (defun member-general (x l comparison) "\ Is X a member of L under COMPARISON?" (byte-code "  @#? !?)" [not-found t l comparison x funcall cdr-safe] 5)) (defun walk-windows (proc &optional no-mini) "\ Applies PROC to each visible window (after selecting it, for convenience). Optional arg NO-MINI non-nil means don't apply PROC to the minibuffer even if it is active." (byte-code "  \"  ?) ! ! \" = !," [real-start start no-mini current done proc selected-window next-window nil select-window funcall] 8)) (defun count-windows (&optional no-mini) "\ Returns the number of visible windows. Optional arg NO-MINI non-nil means don't count the minibuffer even if it is active." (byte-code " \")" [count no-mini 0 walk-windows (lambda nil (byte-code "T" [count] 2))] 3)) (defun minibuffer-message (format &rest args) "\ Print a temporary message at the end of the Minibuffer. After 2 seconds or when a key is typed, erase it." (byte-code " ! #. SQqʎdb #c!)))" [format args p zerop minibuffer-depth apply message nil " *Minibuf-" "*" ((byte-code "d\"" [p delete-region] 3)) sit-for 2] 8)) (defun irc-find-to (str &optional explicit) "\ Find the part of STRING that IRC-mode will interpret as the sendlist. If no explicit list is found, irc-default-to is returned. The string returned is either : or ; terminated. If optional EXPLICIT is non-nil, then return t if a sendlist was explicitly specified, nil if the sendlist was implicit." (byte-code " \" Â !O# \"Ă# )" [matched str explicit t nil irc-default-to string-match "^[A-Za-z0-9-_|{,*]*[;:]" 0 match-end] 5)) (defun irc-find-message (string) "\ Find the message that IRC will see if STR were sent. For messages sent with explicit lists, this is everything following the colon or semi-colon. For everything else, it is just the string." (byte-code "!GO" [string irc-find-to nil] 4)) (defun irc-add-to-hist (str) "\ Put STRing at the head of the irc-history list." (byte-code "\" GOPC \" G V( !A!" [str irc-last-explicit irc-history irc-max-history string-match "^[:;]" 1 append reverse] 6)) (defun irc-yank-prev-command nil "\ Put the last IRC /command in the input-region." (interactive) (byte-code "ˆdb\" \"Tb" [irc-mark irc-last-command nil delete-region insert "/"] 4)) (defun irc-history-prev (arg) "\ Select the previous message in the IRC history list. ARG means select that message out of the list (0 is the first)." (interactive "P") (byte-code "ň  T 8?  T\"0 db\"c b . T)" [str arg irc-history-index irc-history irc-mark nil message "No message %d in history." delete-region] 4)) (defun irc-history-next (arg) "\ Select the next message in the IRC history list. With prefix ARG select that message out of the list (same as irc-history-prev if called with a prefix arg)." (interactive "P") (byte-code "Ĉ !2 U!2 db\" !(˂, S 8c S" [arg irc-history-index irc-mark irc-history nil irc-history-prev -1 message "No next message in history." delete-region zerop ""] 6)) (defun irc-kill-input nil "\ Delete the input region and start out fresh. This function is recommended over any other way of killing the input-region interactively because it also resets the index for the history list." (interactive) (byte-code "ˆdb\"ĉ" [irc-mark irc-history-index nil delete-region -1] 3)) (defun irc-history-menu nil "\ List the history of messages kept by irc-mode in another buffer." (interactive) (byte-code "ň !q - @#c A T !6c!eb)!+" [pop-up-windows t hist irc-history line nil 0 get-buffer-create "*IRC History*" fundamental-mode erase-buffer format "%2d: %s " zerop "No messages have been sent to IRC yet." set-buffer-modified-p display-buffer] 8)) (defun irc-version (&optional arg) "\ Print the current version of irc.el in the minibuffer. With optional ARG, insert it in the current buffer." (interactive "P") (byte-code "ˆ c !" [arg irc-version nil princ] 2)) (defun irc-news nil "\ Shows news about latest changes to irc.el. Even shows news about old changes to irc.el -- what a wonderous function indeed." (interactive) (byte-code "!q ceb)!" [nil get-buffer-create "*IRC-mode News*" erase-buffer "Latest changes to IRC mode: For functions, use C-h f to describe the function. Variables use C-h v. 27 Sep 89 -- This release is a mixture of changes in aspects of the interface and added support for the latest IRC servers, which use a different reply format for some messages. The changes are listed here. I have to admit that the version has not had as much testing as I would have liked to have given it, but I have been very busy lately. I expect that any bugs found will be primarily due to typographical errors or some minor oversight. As usual, bug reports and other questions can be sent to me and I'll take a look at it for the next release. The client used to be very messy about inserting a whole glob of text when it didn't understand the first line. It should be a little cleaner now by just inserting the line it didn't understand and a message to report it to me. The 'topic' event is now handled by /SIGNAL and /NOTIFY; it occurs when someone changes the topic of a channel you have joined. I fixed a bug in the channel joining routines that made the client think you always made it to a channel you /JOINed, which isn't true if the channel is full. The default for irc-message-stamp has been changed from nil to private and the default for irc-time-stamp has been made 0 rather than 10. This means no *** It is now HH:MM *** messages. C-c C-c (the binding for /NAMES) works now with a prefix argument. There was also a bug in formatting the output of /NAMES where a name would not be shown on a very full channel; it has been fixed. /LUSERS has been added; it shows how many people are on IRC. KILL messages are now shown to the client; they indicate who was being removed from IRC and who did the removing. One space will be stripped from after the : or ; that ends a sendlist. That is, \"tale: hi\" and \"tale:hi\" will both send \"hi\" as the message. Word-wrapping used to be done with an 80 column screen in mind; it now uses the width of the window within Emacs instead. Had to fix a pattern to match the message when a nickname change failed; it changed in newer servers. If display-time is running then it is piggy-backed to give better accuracy to interval time stamps. Additionally, the time is included in the \"IRC Session finished\" message. irc-conserve-space is a variable that was added for users who want messages which somewhat mimick the style of the C client. It is not completelyy true to that style (for example, it still does word-wrapping) but I'm pretty sure it will appease them. It is useful for short screen, slow terminal speeds and chatty channels. The IRCNICK and IRCSERVER environment variables are supported when irc.el loads. They set the default nickname and server, respectively. If /WHO is given a non-numeric argument it will call /WHOIS instead. There used to be a bug that an alias would sometimes get executed rather than an exactly matching regular command; it has been fixed. The buffer is by default in auto-fill-mode with a fill-column of 75. This means that when you are typing a long message and want to move around in it, C-p and C-n are much more useful. Along with this the handling of the input-region when RET is pressed has changed. It is now handled as though it is all one line, rather than on a line-at-a-time basis. Aliases now have a no-frills function, irc-change-alias, for the setting/ removing of aliases in non-interactive elisp, as in the irc-mode-hook. See the documentation of that function regarding how to use it. Last but certainly not least, the numeric messages from the newer servers are parsed correctly. You should be getting a lot fewer \"This might be a bug ...\" message. Older news available on request (it includes a description of what to expect out of this client, but it takes up way too much space)." display-buffer] 4))