Lines Matching +defs:erc +defs:faces

0 ;; erc.el --- An Emacs Internet Relay Chat client
38 ;; * http://sv.gnu.org/projects/erc/
42 ;; (http://sv.gnu.org/projects/erc).  I invite everyone who wants to
48 ;; Put erc.el in your load-path, and put (require 'erc) in your .emacs.
52 ;; Use M-x customize-group RET erc RET to get an overview
59 ;; M-x erc RET
69 (defconst erc-version-string "Version 5.2"
70   "ERC version.  This is used by function `erc-version'.")
76 (require 'erc-compat)
78 (defvar erc-official-location
79   "http://emacswiki.org/cgi-bin/wiki/ERC (mailing list: erc-discuss@gnu.org)"
82 (defgroup erc nil
85   :prefix "erc-"
88 (defgroup erc-buffers nil
90   :group 'erc)
92 (defgroup erc-display nil
94   :group 'erc)
96 (defgroup erc-mode-line-and-header nil
98   :group 'erc-display)
100 (defgroup erc-ignore nil
102   :group 'erc)
104 (defgroup erc-query nil
106   :group 'erc)
108 (defgroup erc-quit-and-part nil
110   :group 'erc)
112 (defgroup erc-paranoia nil
114   :group 'erc)
116 (defgroup erc-scripts nil
118   :group 'erc)
120 (require 'erc-backend)
126       (defvaralias 'erc-announced-server-name 'erc-server-announced-name)
127       (erc-make-obsolete-variable 'erc-announced-server-name
128 				  'erc-server-announced-name
130       (defvaralias 'erc-process 'erc-server-process)
131       (erc-make-obsolete-variable 'erc-process 'erc-server-process "ERC 5.1")
132       (defvaralias 'erc-default-coding-system 'erc-server-coding-system)
133       (erc-make-obsolete-variable 'erc-default-coding-system
134 				  'erc-server-coding-system
139 (defalias 'erc-send-command 'erc-server-send)
140 (erc-make-obsolete 'erc-send-command 'erc-server-send "ERC 5.1")
144 (defcustom erc-server nil
146 See function `erc-compute-server' for more details on connection
148   :group 'erc
152 (defcustom erc-port nil
156   :group 'erc
161 (defcustom erc-nick nil
168 See function `erc-compute-nick' for more details on connection
170   :group 'erc
175 (defcustom erc-nick-uniquifier "`"
177   :group 'erc
180 (defcustom erc-try-new-nick-p t
185   :group 'erc
188 (defcustom erc-user-full-name nil
193 See function `erc-compute-full-name' for more details on connection
195   :group 'erc
204 (defvar erc-password nil
209 (defcustom erc-user-mode nil
211   :group 'erc
215 (defcustom erc-prompt-for-password t
217   :group 'erc
220 (defcustom erc-warn-about-blank-lines t
222   :group 'erc
225 (defcustom erc-send-whitespace-lines nil
227   :group 'erc
230 (defcustom erc-hide-prompt nil
235 See also the variables `erc-prompt' and `erc-command-indicator'."
236   :group 'erc-display
241 (defcustom erc-show-my-nick t
246   :group 'erc-display
249 (define-widget 'erc-message-type 'set
259 (defcustom erc-hide-list nil
262   :group 'erc-ignore
263   :type 'erc-message-type)
265 (defvar erc-session-password nil
267 (make-variable-buffer-local 'erc-session-password)
269 (defcustom erc-disconnected-hook nil
272 `erc-server-QUIT-functions' might not be run when we disconnect,
274   :group 'erc-hooks
277 (defcustom erc-complete-functions nil
281   :group 'erc-hooks
284 (defcustom erc-join-hook nil
289 See also `erc-server-JOIN-functions', `erc-part-hook'."
290   :group 'erc-hooks
293 (defcustom erc-quit-hook nil
297 See also `erc-server-QUIT-functions' and `erc-disconnected-hook'."
298   :group 'erc-hooks
301 (defcustom erc-part-hook nil
305 See also `erc-server-QUIT-functions', `erc-quit-hook' and
306 `erc-disconnected-hook'."
307   :group 'erc-hooks
310 (defcustom erc-kick-hook nil
314 See also `erc-server-PART-functions' and `erc-part-hook'."
315   :group 'erc-hooks
318 (defcustom erc-nick-changed-functions nil
322   :group 'erc-hooks
325 (defcustom erc-connect-pre-hook '(erc-initialize-log-marker)
326   "Hook called just before `erc' calls `erc-connect'.
328   :group 'erc-hooks
332 (defvar erc-channel-users nil
336 erc-server-user struct, and MEMBER-DATA is a pointer to an
337 erc-channel-user struct.")
338 (make-variable-buffer-local 'erc-channel-users)
340 (defvar erc-server-users nil
342 nicknames with erc-server-user struct instances.")
343 (make-variable-buffer-local 'erc-server-users)
345 (defun erc-downcase (string)
358 (defmacro erc-with-server-buffer (&rest body)
362     `(let ((,buffer (erc-server-buffer)))
366 (put 'erc-with-server-buffer 'lisp-indent-function 0)
367 (put 'erc-with-server-buffer 'edebug-form-spec '(body))
369 (defstruct (erc-server-user (:type vector) :named)
375   ;; CHANNEL-DATA is either nil or an erc-channel-user struct.
379 (defstruct (erc-channel-user (:type vector) :named)
387 (defsubst erc-get-channel-user (nick)
389 in the current buffer's `erc-channel-users' hash table."
390   (gethash (erc-downcase nick) erc-channel-users))
392 (defsubst erc-get-server-user (nick)
394 `erc-server-users' hash table."
395   (erc-with-server-buffer
396     (gethash (erc-downcase nick) erc-server-users)))
398 (defsubst erc-add-server-user (nick user)
401 Adds USER with nickname NICK to the `erc-server-users' hash table."
402   (erc-with-server-buffer
403     (puthash (erc-downcase nick) user erc-server-users)))
405 (defsubst erc-remove-server-user (nick)
408 Removes the user with nickname NICK from the `erc-server-users'
410 `erc-channel-users' lists of other buffers.
412 See also: `erc-remove-user'."
413   (erc-with-server-buffer
414     (remhash (erc-downcase nick) erc-server-users)))
416 (defun erc-change-user-nickname (user new-nick)
420 `erc-server-users' hash table.  The `erc-channel-users' lists of
422   (let ((nick (erc-server-user-nickname user)))
423     (setf (erc-server-user-nickname user) new-nick)
424     (erc-with-server-buffer
425       (remhash (erc-downcase nick) erc-server-users)
426       (puthash (erc-downcase new-nick) user erc-server-users))
427     (dolist (buf (erc-server-user-buffers user))
430 	    (let ((cdata (erc-get-channel-user nick)))
431 	      (remhash (erc-downcase nick) erc-channel-users)
432 	      (puthash (erc-downcase new-nick) cdata
433 		       erc-channel-users)))))))
435 (defun erc-remove-channel-user (nick)
438 Removes the user with nickname NICK from the `erc-channel-users'
440 `erc-channel-users' list of any other buffers, the user is also
441 removed from the server's `erc-server-users' list.
443 See also: `erc-remove-server-user' and `erc-remove-user'."
444   (let ((channel-data (erc-get-channel-user nick)))
447 	(setf (erc-server-user-buffers user)
449 		    (erc-server-user-buffers user)))
450 	(remhash (erc-downcase nick) erc-channel-users)
451 	(if (null (erc-server-user-buffers user))
452 	    (erc-remove-server-user nick))))))
454 (defun erc-remove-user (nick)
457 Removes the user with nickname NICK from the `erc-server-users'
458 list as well as from all `erc-channel-users' lists.
460 See also: `erc-remove-server-user' and
461 `erc-remove-channel-user'."
462   (let ((user (erc-get-server-user nick)))
464       (let ((buffers (erc-server-user-buffers user)))
468 		(remhash (erc-downcase nick) erc-channel-users)
469 		(run-hooks 'erc-channel-members-changed-hook)))))
470       (erc-remove-server-user nick))))
472 (defun erc-remove-channel-users ()
476 `erc-server-PART' and `erc-server-QUIT'."
477   (when (and erc-server-connected
478 	     (erc-server-process-alive)
479 	     (hash-table-p erc-channel-users))
481 	       (erc-remove-channel-user nick))
482 	     erc-channel-users)
483     (clrhash erc-channel-users)))
485 (defsubst erc-channel-user-op-p (nick)
488        (hash-table-p erc-channel-users)
489        (let ((cdata (erc-get-channel-user nick)))
491 	      (erc-channel-user-op (cdr cdata))))))
493 (defsubst erc-channel-user-voice-p (nick)
496        (hash-table-p erc-channel-users)
497        (let ((cdata (erc-get-channel-user nick)))
499 	      (erc-channel-user-voice (cdr cdata))))))
501 (defun erc-get-channel-user-list ()
504 an erc-server-user struct, and CHANNEL-DATA is either `nil' or an
505 erc-channel-user struct.
507 See also: `erc-sort-channel-users-by-activity'"
509     (if (hash-table-p erc-channel-users)
512 	       erc-channel-users))
515 (defun erc-get-server-nickname-list ()
517   (erc-with-server-buffer
519       (when (hash-table-p erc-server-users)
522 			 (cons (erc-server-user-nickname user)
524 		 erc-server-users)
527 (defun erc-get-channel-nickname-list ()
530     (when (hash-table-p erc-channel-users)
533 		       (cons (erc-server-user-nickname (car cdata))
535 	       erc-channel-users)
538 (defun erc-get-server-nickname-alist ()
540   (erc-with-server-buffer
542       (when (hash-table-p erc-server-users)
545 			 (cons (cons (erc-server-user-nickname user) nil)
547 		 erc-server-users)
550 (defun erc-get-channel-nickname-alist ()
553     (when (hash-table-p erc-channel-users)
556 		       (cons (cons (erc-server-user-nickname (car cdata)) nil)
558 	       erc-channel-users)
561 (defun erc-sort-channel-users-by-activity (list)
565 See also: `erc-get-channel-user-list'."
570 	    (let ((tx (erc-channel-user-last-message-time (cdr x)))
571 		  (ty (erc-channel-user-last-message-time (cdr y))))
578 (defun erc-sort-channel-users-alphabetically (list)
582 See also: `erc-get-channel-user-list'."
587 	    (let ((nickx (downcase (erc-server-user-nickname (car x))))
588 		  (nicky (downcase (erc-server-user-nickname (car y)))))
595 (defvar erc-channel-topic nil
597 (make-variable-buffer-local 'erc-channel-topic)
599 (defvar erc-channel-modes nil
603 (make-variable-buffer-local 'erc-channel-modes)
605 (defvar erc-insert-marker nil
606   "The place where insertion of new text in erc buffers should happen.")
607 (make-variable-buffer-local 'erc-insert-marker)
609 (defvar erc-input-marker nil
611 (make-variable-buffer-local 'erc-input-marker)
613 (defun erc-string-no-properties (string)
619 (defcustom erc-prompt "ERC>"
621   :group 'erc-display
624 (defun erc-prompt ()
627 See also the variable `erc-prompt'."
628   (let ((prompt (if (functionp erc-prompt)
629 		    (funcall erc-prompt)
630 		  erc-prompt)))
635 (defcustom erc-command-indicator nil
641 If nil, the prompt will be constructed from the variable `erc-prompt'."
642   :group 'erc-display
645 (defun erc-command-indicator ()
648 This only has any meaning if the variable `erc-command-indicator' is non-nil."
649   (and erc-command-indicator
650        (let ((prompt (if (functionp erc-command-indicator)
651 			 (funcall erc-command-indicator)
652 			 erc-command-indicator)))
657 (defcustom erc-notice-prefix "*** "
659   :group 'erc-display
662 (defcustom erc-notice-highlight-type 'all
664 See `erc-notice-prefix'.
672   :group 'erc-display
677 (defcustom erc-echo-notice-hook nil
683 those specified in `erc-echo-notice-always-hook'.
685 See also: `erc-echo-notice-always-hook',
686 `erc-echo-notice-in-default-buffer',
687 `erc-echo-notice-in-target-buffer',
688 `erc-echo-notice-in-minibuffer',
689 `erc-echo-notice-in-server-buffer',
690 `erc-echo-notice-in-active-non-server-buffer',
691 `erc-echo-notice-in-active-buffer',
692 `erc-echo-notice-in-user-buffers',
693 `erc-echo-notice-in-user-and-target-buffers',
694 `erc-echo-notice-in-first-user-buffer'"
695   :group 'erc-hooks
697   :options '(erc-echo-notice-in-default-buffer
698 	     erc-echo-notice-in-target-buffer
699 	     erc-echo-notice-in-minibuffer
700 	     erc-echo-notice-in-server-buffer
701 	     erc-echo-notice-in-active-non-server-buffer
702 	     erc-echo-notice-in-active-buffer
703 	     erc-echo-notice-in-user-buffers
704 	     erc-echo-notice-in-user-and-target-buffers
705 	     erc-echo-notice-in-first-user-buffer))
707 (defcustom erc-echo-notice-always-hook
708   '(erc-echo-notice-in-default-buffer)
714 specified in `erc-echo-notice-hook'.
716 See also: `erc-echo-notice-hook',
717 `erc-echo-notice-in-default-buffer',
718 `erc-echo-notice-in-target-buffer',
719 `erc-echo-notice-in-minibuffer',
720 `erc-echo-notice-in-server-buffer',
721 `erc-echo-notice-in-active-non-server-buffer',
722 `erc-echo-notice-in-active-buffer',
723 `erc-echo-notice-in-user-buffers',
724 `erc-echo-notice-in-user-and-target-buffers',
725 `erc-echo-notice-in-first-user-buffer'"
726   :group 'erc-hooks
728   :options '(erc-echo-notice-in-default-buffer
729 	     erc-echo-notice-in-target-buffer
730 	     erc-echo-notice-in-minibuffer
731 	     erc-echo-notice-in-server-buffer
732 	     erc-echo-notice-in-active-non-server-buffer
733 	     erc-echo-notice-in-active-buffer
734 	     erc-echo-notice-in-user-buffers
735 	     erc-echo-notice-in-user-and-target-buffers
736 	     erc-echo-notice-in-first-user-buffer))
740 (defcustom erc-whowas-on-nosuchnick nil
742   :group 'erc
745 (defcustom erc-verbose-server-ping nil
747   :group 'erc-paranoia
750 (defcustom erc-public-away-p nil
756   :group 'erc
759 (defcustom erc-away-nickname nil
761   :group 'erc
765 (defcustom erc-paranoid nil
767   :group 'erc-paranoia
770 (defcustom erc-disable-ctcp-replies nil
775   :group 'erc-paranoia
778 (defcustom erc-anonymous-login t
780   :group 'erc-paranoia
783 (defcustom erc-prompt-for-channel-key nil
784   "Prompt for channel key when using `erc-join-channel' interactively."
785   :group 'erc
788 (defcustom erc-email-userid "user"
790   :group 'erc
793 (defcustom erc-system-name nil
796   :group 'erc
800 (defcustom erc-ignore-list nil
806   :group 'erc-ignore
808 (make-variable-buffer-local 'erc-ignore-list)
810 (defcustom erc-ignore-reply-list nil
813 This differs from `erc-ignore-list' in that it also ignores any
825   :group 'erc-ignore
828 (defvar erc-flood-protect t
834 See `erc-server-flood-margin' for other flood-related parameters.")
838 (defcustom erc-startup-file-list
847   :group 'erc-scripts
850 (defcustom erc-script-path nil
854   :group 'erc-scripts
857 (defcustom erc-script-echo t
859   :group 'erc-scripts
862 (defvar erc-last-saved-position nil
864 (make-variable-buffer-local 'erc-last-saved-position)
866 (defcustom erc-kill-buffer-on-part nil
870   :group 'erc-quit-and-part
873 (defcustom erc-kill-queries-on-quit nil
875 See the variable `erc-kill-buffer-on-part' for details."
876   :group 'erc-quit-and-part
879 (defcustom erc-kill-server-buffer-on-quit nil
881   :group 'erc-quit-and-part
884 (defcustom erc-quit-reason-various-alist nil
897   (setq erc-quit-reason-various-alist
898       '((\"zippy\" erc-quit-reason-zippy)
900 	(\"version\" erc-quit-reason-normal)
905   :group 'erc-quit-and-part
908 (defcustom erc-part-reason-various-alist nil
921   (setq erc-part-reason-various-alist
922       '((\"zippy\" erc-part-reason-zippy)
924 	(\"version\" erc-part-reason-normal)
929   :group 'erc-quit-and-part
932 (defcustom erc-quit-reason 'erc-quit-reason-normal
937   :group 'erc-quit-and-part
938   :type '(choice (const erc-quit-reason-normal)
939 		 (const erc-quit-reason-zippy)
940 		 (const erc-quit-reason-various)
943 (defcustom erc-part-reason 'erc-part-reason-normal
948   :group 'erc-quit-and-part
949   :type '(choice (const erc-part-reason-normal)
950 		 (const erc-part-reason-zippy)
951 		 (const erc-part-reason-various)
954 (defvar erc-grab-buffer-name "*erc-grab*"
955   "The name of the buffer created by `erc-grab-region'.")
959 (defvar erc-user-information "ERC User"
964 (defgroup erc-hooks nil
966   :group 'erc)
968 (defcustom erc-mode-hook nil
969   "Hook run after `erc-mode' setup is finished."
970   :group 'erc-hooks
972   :options '(erc-add-scroll-to-bottom))
974 (defcustom erc-timer-hook nil
978   :group 'erc-hooks
981 (defcustom erc-insert-pre-hook nil
982   "Hook called first when some text is inserted through `erc-display-line'.
984 To be able to modify the inserted text, use `erc-insert-modify-hook' instead.
985 Filtering functions can set `erc-insert-this' to nil to avoid
987   :group 'erc-hooks
990 (defcustom erc-send-pre-hook nil
991   "Hook called first when some text is sent through `erc-send-current-line'.
995 used in `erc-send-current-line'.
998 that will be sent, use `erc-send-modify-hook' instead.
1000 Filtering functions can set `erc-send-this' to nil to avoid sending of
1001 that particular string at all and `erc-insert-this' to prevent
1004 Note that it's useless to set `erc-send-this' to nil and
1005 `erc-insert-this' to t.  ERC is sane enough to not insert the text
1007   :group 'erc-hooks
1010 (defvar erc-insert-this t
1012 Functions on `erc-insert-pre-hook' can set this variable to nil
1015 (defvar erc-send-this t
1017 Functions on `erc-send-pre-hook' can set this variable to nil
1020 (defcustom erc-insert-modify-hook ()
1022 This hook is called just after `erc-insert-pre-hook' when the value
1023 of `erc-insert-this' is t.
1026 is `erc-fill'."
1027   :group 'erc-hooks
1030 (defcustom erc-insert-post-hook nil
1031   "This hook is called just after `erc-insert-modify-hook'.
1033   :group 'erc-hooks
1035   :options '(erc-truncate-buffer
1036 	     erc-make-read-only
1037 	     erc-save-buffer-in-logs))
1039 (defcustom erc-send-modify-hook nil
1041 This hook is called just after `erc-send-pre-hook' when the values
1042 of `erc-send-this' and `erc-insert-this' are both t.
1049 is `erc-fill'."
1050   :group 'erc-hooks
1053 (defcustom erc-send-post-hook nil
1054   "This hook is called just after `erc-send-modify-hook'.
1059 This function is called with narrowing, ala `erc-send-modify-hook'."
1060   :group 'erc-hooks
1062   :options '(erc-make-read-only))
1064 (defcustom erc-send-completed-hook
1073   :group 'erc-hooks
1077 (defvar erc-mode-syntax-table
1088 (defvar erc-mode-abbrev-table nil
1090 (define-abbrev-table 'erc-mode-abbrev-table ())
1092 (defvar erc-mode-map
1094     (define-key map "\C-m" 'erc-send-current-line)
1095     (define-key map "\C-a" 'erc-bol)
1096     (define-key map [home] 'erc-bol)
1097     (define-key map "\C-c\C-a" 'erc-bol)
1098     (define-key map "\C-c\C-b" 'erc-iswitchb)
1099     (define-key map "\C-c\C-c" 'erc-toggle-interpret-controls)
1100     (define-key map "\C-c\C-d" 'erc-input-action)
1101     (define-key map "\C-c\C-e" 'erc-toggle-ctcp-autoresponse)
1102     (define-key map "\C-c\C-f" 'erc-toggle-flood-control)
1103     (define-key map "\C-c\C-i" 'erc-invite-only-mode)
1104     (define-key map "\C-c\C-j" 'erc-join-channel)
1105     (define-key map "\C-c\C-n" 'erc-channel-names)
1106     (define-key map "\C-c\C-o" 'erc-get-channel-mode-from-keypress)
1107     (define-key map "\C-c\C-p" 'erc-part-from-channel)
1108     (define-key map "\C-c\C-q" 'erc-quit-server)
1109     (define-key map "\C-c\C-r" 'erc-remove-text-properties-region)
1110     (define-key map "\C-c\C-t" 'erc-set-topic)
1111     (define-key map "\C-c\C-u" 'erc-kill-input)
1113     (define-key map "\t" 'erc-complete-word)
1135 (defgroup erc-faces nil
1137   :group 'erc)
1139 (defface erc-default-face '((t))
1141   :group 'erc-faces)
1143 (defface erc-direct-msg-face '((t (:foreground "IndianRed")))
1144   "ERC face used for messages you receive in the main erc buffer."
1145   :group 'erc-faces)
1147 (defface erc-header-line
1151 This will only be used if `erc-header-line-face-method' is non-nil."
1152   :group 'erc-faces)
1154 (defface erc-input-face '((t (:foreground "brown")))
1156   :group 'erc-faces)
1158 (defface erc-prompt-face
1161   :group 'erc-faces)
1163 (defface erc-command-indicator-face
1166 See the variable `erc-command-indicator'."
1167   :group 'erc-faces)
1169 (defface erc-notice-face '((t (:bold t :foreground "SlateBlue")))
1171   :group 'erc-faces)
1173 (defface erc-action-face '((t (:bold t)))
1175   :group 'erc-faces)
1177 (defface erc-error-face '((t (:foreground "red")))
1179   :group 'erc-faces)
1181 ;; same default color as `erc-input-face'
1182 (defface erc-my-nick-face '((t (:bold t :foreground "brown")))
1184 See also `erc-show-my-nick'."
1185   :group 'erc-faces)
1187 (defface erc-nick-default-face '((t (:bold t)))
1189   :group 'erc-faces)
1191 (defface erc-nick-msg-face '((t (:bold t :foreground "IndianRed")))
1193   :group 'erc-faces)
1197 (defvar erc-log-p nil
1200 (defvar erc-debug-log-file (expand-file-name "ERC.debug")
1203 (defvar erc-dbuf nil)
1204 (make-variable-buffer-local 'erc-dbuf)
1206 (defmacro define-erc-module (name alias doc enable-body disable-body
1217 This will define a minor mode called erc-NAME-mode, possibly
1218 an alias erc-ALIAS-mode, as well as the helper functions
1219 erc-NAME-enable, and erc-NAME-disable.
1223   ;;;###autoload (autoload 'erc-replace-mode \"erc-replace\")
1224   (define-erc-module replace nil
1225     \"This mode replaces incoming text according to `erc-replace-alist'.\"
1226     ((add-hook 'erc-insert-modify-hook
1227 	       'erc-replace-insert))
1228     ((remove-hook 'erc-insert-modify-hook
1229 		  'erc-replace-insert)))"
1231 	 (mode (intern (format "erc-%s-mode" (downcase sn))))
1232 	 (group (intern (format "erc-%s" (downcase sn))))
1233 	 (enable (intern (format "erc-%s-enable" (downcase sn))))
1234 	 (disable (intern (format "erc-%s-disable" (downcase sn)))))
1236        (erc-define-minor-mode
1250 	 (add-to-list 'erc-modules (quote ,name))
1257 	 (setq erc-modules (delq (quote ,name) erc-modules))
1264 		(format "erc-%s-mode"
1273 (put 'define-erc-module 'doc-string-elt 3)
1275 (defun erc-once-with-server-event (event &rest forms)
1291   (unless (erc-server-buffer-p)
1293      "You should only run `erc-once-with-server-event' in a server buffer"))
1295 	(hook (erc-get-hook event)))
1296      (put fun 'erc-original-buffer (current-buffer))
1298 		  (with-current-buffer (get ',fun 'erc-original-buffer)
1305 (defun erc-once-with-server-event-global (event &rest forms)
1318 	(hook (erc-get-hook event)))
1326 (defmacro erc-log (string)
1327   "Logs STRING if logging is on (see `erc-log-p')."
1328   `(when erc-log-p
1329      (erc-log-aux ,string)))
1331 (defun erc-server-buffer ()
1333 The buffer-local variable `erc-server-process' is used to find
1335   (and (erc-server-buffer-live-p)
1336        (process-buffer erc-server-process)))
1338 (defun erc-server-buffer-live-p ()
1340   (and (processp erc-server-process)
1341        (buffer-live-p (process-buffer erc-server-process))))
1343 (defun erc-server-buffer-p (&optional buffer)
1348     (and (eq major-mode 'erc-mode)
1349 	 (null (erc-default-target)))))
1351 (defun erc-open-server-buffer-p (&optional buffer)
1356   (and (erc-server-buffer-p)
1357        (erc-server-process-alive)))
1359 (defun erc-query-buffer-p (&optional buffer)
1363     (let ((target (erc-default-target)))
1364       (and (eq major-mode 'erc-mode)
1368 (defun erc-ison-p (nick)
1371   (erc-with-server-buffer
1372     (let ((erc-online-p 'unknown))
1373       (erc-once-with-server-event
1376 	  (setq erc-online-p (car (erc-member-ignore-case ,nick ison)))
1378       (erc-server-send (format "ISON %s" nick))
1379       (while (eq erc-online-p 'unknown) (accept-process-output))
1382 		   (or erc-online-p nick)
1383 		   (if erc-online-p "" "not "))
1384 	erc-online-p))))
1386 (defun erc-log-aux (string)
1391 	(session-buffer (erc-server-buffer)))
1395 	  (if (not (and erc-dbuf (bufferp erc-dbuf) (buffer-live-p erc-dbuf)))
1397 		(setq erc-dbuf (get-buffer-create
1399 					erc-session-server "*")))))
1400 	  (set-buffer erc-dbuf)
1412 (defvar erc-active-buffer nil
1416 (make-variable-buffer-local 'erc-active-buffer)
1418 (defun erc-active-buffer ()
1419   "Return the value of `erc-active-buffer' for the current server.
1421   (erc-with-server-buffer
1422     (if (buffer-live-p erc-active-buffer)
1423 	erc-active-buffer
1424       (setq erc-active-buffer (current-buffer)))))
1426 (defun erc-set-active-buffer (buffer)
1427   "Set the value of `erc-active-buffer' to BUFFER."
1428   (cond ((erc-server-buffer)
1429 	 (with-current-buffer (erc-server-buffer)
1430 	   (setq erc-active-buffer buffer)))
1431 	(t (setq erc-active-buffer buffer))))
1435 (defun erc-mode ()
1439 \\{erc-mode-map}
1441 Turning on `erc-mode' runs the hook `erc-mode-hook'."
1443   (use-local-map erc-mode-map)
1445 	major-mode 'erc-mode
1446 	local-abbrev-table erc-mode-abbrev-table)
1447   (set-syntax-table erc-mode-syntax-table)
1452        (concat "\C-l\\|\\(^" (regexp-quote (erc-prompt)) "\\)"))
1454        (concat "\\(" (regexp-quote (erc-prompt)) "\\)"))
1456   (run-hooks 'erc-mode-hook))
1460 (defconst erc-default-server "irc.freenode.net"
1463 (defconst erc-default-port "6667"
1466 (defcustom erc-join-buffer 'buffer
1473   :group 'erc-buffers
1480 (defcustom erc-frame-alist nil
1481   "*Alist of frame parameters for creating erc frames.
1483   :group 'erc-buffers
1488 (defcustom erc-frame-dedicated-flag nil
1489   "*Non-nil means the erc frames are dedicated to that buffer.
1490 This only has effect when `erc-join-buffer' is set to `frame'."
1491   :group 'erc-buffers
1494 (defun erc-channel-p (channel)
1500 	   (erc-channel-p (erc-default-target))))
1503 (defcustom erc-reuse-buffers t
1509   :group 'erc-buffers
1512 (defun erc-normalize-port (port)
1522     (erc-normalize-port (symbol-name port)))
1543 (defun erc-port-equal (a b)
1545   (= (erc-normalize-port a) (erc-normalize-port b)))
1547 (defun erc-generate-new-buffer-name (server port target &optional proc)
1555 			   "*erc-server-buffer*"))))
1559     (if (and erc-reuse-buffers
1563 		   (and (erc-server-buffer-p)
1564 			(not (erc-server-process-alive)))))
1566 	       (and (string= erc-session-server server)
1567 		    (erc-port-equal erc-session-port port))))
1571 (defun erc-get-buffer-create (server port target &optional proc)
1573   (get-buffer-create (erc-generate-new-buffer-name server port target proc)))
1576 (defun erc-member-ignore-case (string list)
1580 `erc-downcase'."
1581   (setq string (erc-downcase string))
1584       (if (string= string (erc-downcase (car list)))
1588 (defmacro erc-with-buffer (spec &rest body)
1598 If PROCESS is nil, use the current `erc-server-process'.
1599 See `erc-get-buffer' for details.
1613 				     (and (processp erc-server-process)
1614 					  erc-server-process))))
1616 			  (erc-get-buffer ,target ,proc))))))
1620 (put 'erc-with-buffer 'lisp-indent-function 1)
1621 (put 'erc-with-buffer 'edebug-form-spec '((form &optional form) body))
1623 (defun erc-get-buffer (target &optional proc)
1626   (let ((downcased-target (erc-downcase target)))
1628       (erc-buffer-filter
1630 	 (let ((current (erc-default-target)))
1632 		(string-equal downcased-target (erc-downcase current))
1636 (defun erc-buffer-filter (predicate &optional proc)
1637   "Return a list of `erc-mode' buffers matching certain criteria.
1641 PROC is either an `erc-server-process', identifying a certain
1649 		   (and (eq major-mode 'erc-mode)
1651 			    (eq proc erc-server-process))
1656 (defun erc-buffer-list (&optional predicate proc)
1660 buffers.  If PROC is given, the buffers local variable `erc-server-process'
1664   (erc-buffer-filter predicate proc))
1666 (defmacro erc-with-all-buffers-of-server (process pred &rest forms)
1679 	       (erc-buffer-list ,pre
1681 (put 'erc-with-all-buffers-of-server 'lisp-indent-function 1)
1682 (put 'erc-with-all-buffers-of-server 'edebug-form-spec '(form form body))
1684 (defun erc-iswitchb (&optional arg)
1686 When invoked with prefix argument, use all erc buffers.  Without prefix
1688 If `erc-track-mode' is in enabled, put the last element of
1689 `erc-modified-channels-alist' in front of the buffer list.
1703 			       (erc-buffer-list
1705 				(when arg erc-server-process)))))))
1709 	    (if (boundp 'erc-modified-channels-alist)
1710 		(buffer-name (caar (last erc-modified-channels-alist)))
1715 (defun erc-channel-list (proc)
1719   (erc-buffer-filter
1721      (and (erc-default-target)
1722 	  (erc-channel-p (erc-default-target))))
1725 (defun erc-buffer-list-with-nick (nick proc)
1726   "Return buffers containing NICK in the `erc-channel-users' list."
1728     (let ((user (gethash (erc-downcase nick) erc-server-users)))
1730 	  (erc-server-user-buffers user)
1735 (defvar erc-default-recipients nil
1737 (make-variable-buffer-local 'erc-default-recipients)
1739 (defvar erc-session-user-full-name nil
1741 (make-variable-buffer-local 'erc-session-user-full-name)
1743 (defvar erc-channel-user-limit nil
1745 (make-variable-buffer-local 'erc-channel-user-limit)
1747 (defvar erc-channel-key nil
1749 (make-variable-buffer-local 'erc-channel-key)
1751 (defvar erc-invitation nil
1753 (make-variable-buffer-local 'erc-invitation)
1755 (defvar erc-away nil
1758 Use `erc-away-time' to access this if you might be in a channel
1760 (make-variable-buffer-local 'erc-away)
1762 (defvar erc-channel-list nil
1764 (make-variable-buffer-local 'erc-channel-list)
1766 (defvar erc-bad-nick nil
1768 (make-variable-buffer-local 'erc-bad-nick)
1770 (defvar erc-logged-in nil
1772 (make-variable-buffer-local 'erc-logged-in)
1774 (defvar erc-default-nicks nil
1775   "The local copy of `erc-nick' - the list of nicks to choose from.")
1776 (make-variable-buffer-local 'erc-default-nicks)
1778 (defvar erc-nick-change-attempt-count 0
1780 (make-variable-buffer-local 'erc-nick-change-attempt-count)
1782 (defun erc-migrate-modules (mods)
1787     (erc-delete-dups
1791 (defcustom erc-modules '(netsplit fill button match track completion readonly
1796 \(erc-update-modules) after you change it.  When using `customize', modules
1800 	 (erc-migrate-modules (symbol-value sym)))
1803 	 (when (and (boundp 'erc-modules) erc-modules val)
1804 	   (dolist (module erc-modules)
1806 	       (let ((f (intern-soft (format "erc-%s-mode" module))))
1808 		   (message "Disabling `erc-%s'" module)
1811 	 ;; this test is for the case where erc hasn't been loaded yet
1812 	 (when (fboundp 'erc-update-modules)
1813 	   (erc-update-modules)))
1855   :group 'erc)
1857 (defun erc-update-modules ()
1858   "Run this to enable erc-foo-mode for all modules in `erc-modules'."
1860     (dolist (mod erc-modules)
1861       (setq req (concat "erc-" (symbol-name mod)))
1864        ((string= req "erc-capab-identify")
1865 	(setq req "erc-capab"))
1866        ((string= req "erc-completion")
1867 	(setq req "erc-pcomplete"))
1868        ((string= req "erc-pcomplete")
1870        ((string= req "erc-autojoin")
1871 	(setq req "erc-join")))
1875       (let ((sym (intern-soft (concat "erc-" (symbol-name mod) "-mode"))))
1880 (defun erc-setup-buffer (buffer)
1881   "Consults `erc-join-buffer' to find out how to display `BUFFER'."
1882   (cond ((eq erc-join-buffer 'window)
1886 	((eq erc-join-buffer 'window-noselect)
1888 	((eq erc-join-buffer 'bury)
1890 	((eq erc-join-buffer 'frame)
1894 		  (make-frame (or erc-frame-alist
1897 	 (when erc-frame-dedicated-flag
1904 (defun erc-open (&optional server port nick full-name
1913 non-nil, use it to initialise `erc-default-recipients'.
1916   (let ((server-announced-name (when (and (boundp 'erc-session-server)
1917 					  (string= server erc-session-server))
1918 				 erc-server-announced-name))
1919 	(connected-p (unless connect erc-server-connected))
1920 	(buffer (erc-get-buffer-create server port channel))
1924     (when connect (run-hook-with-args 'erc-before-connect server port nick))
1925     (erc-update-modules)
1928     (erc-mode)
1929     (setq erc-server-announced-name server-announced-name)
1930     (setq erc-server-connected connected-p)
1932     (setq erc-server-process process)
1933     (setq erc-insert-marker (make-marker))
1934     (setq erc-input-marker (make-marker))
1939     (when (get-text-property (point) 'erc-prompt)
1941       (set-marker erc-input-marker
1942 		  (or (next-single-property-change (point) 'erc-prompt)
1947     (set-marker erc-insert-marker (point))
1949     (setq erc-default-recipients tgt-list)
1950     (setq erc-server-current-nick nil)
1951     ;; Initialize erc-server-users and erc-channel-users
1954 	  (setq erc-server-users
1956 	  (setq erc-channel-users nil))
1958 	(setq erc-server-users nil)
1959 	(setq erc-channel-users
1962     (setq erc-server-filter-data nil)
1963     (setq erc-channel-topic "")
1965     (setq erc-channel-user-limit nil)
1966     (setq erc-channel-key nil)
1968     (erc-set-active-buffer buffer)
1970     (setq erc-invitation nil)
1972     (setq erc-channel-list ())
1974     (setq erc-bad-nick nil)
1976     (setq erc-logged-in nil)
1977     ;; The local copy of `erc-nick' - the list of nicks to choose
1978     (setq erc-default-nicks (if (consp erc-nick) erc-nick (list erc-nick)))
1980     (setq erc-session-password passwd)
1982     (setq erc-dbuf
1983 	  (when erc-log-p
1991       (set-marker erc-insert-marker (point))
1992       (erc-display-prompt)
1995     (erc-determine-parameters server port nick full-name)
1998     (run-hook-with-args 'erc-connect-pre-hook buffer)
2001       (erc-server-connect erc-session-server erc-session-port buffer))
2002     (erc-update-mode-line)
2006       (when erc-log-p
2008 	(message "erc: old buffer %s, switching to %s"
2010       (erc-setup-buffer buffer))
2014 (defun erc-initialize-log-marker (buffer)
2015   "Initialize the `erc-last-saved-position' marker to a sensible position.
2018     (setq erc-last-saved-position (make-marker))
2019     (move-marker erc-last-saved-position
2020 		 (1- (marker-position erc-insert-marker)))))
2024 (defvar erc-server-history-list nil
2027 (defvar erc-nick-history-list nil
2030 (defun erc-already-logged-in (server port nick)
2035   (erc-buffer-list
2037      (and (erc-server-process-alive)
2038 	  (string= erc-session-server server)
2039 	  (erc-port-equal erc-session-port port)
2040 	  (erc-current-nick-p nick)))))
2047 (defcustom erc-before-connect nil
2049 This hook gets executed before `erc' actually invokes `erc-mode'
2052   :group 'erc-hooks
2055 (defcustom erc-after-connect nil
2059   :group 'erc-hooks
2063 (defun erc-select-read-args ()
2068 		      (erc-compute-server) nil nil 'erc-server-history-list))
2071 	(setq port (erc-string-to-port (match-string 2 user-input))
2074 	    (erc-string-to-port (read-from-minibuffer
2075 				 "IRC port: " (erc-port-to-string
2076 					       (erc-compute-port))))))
2082 	    (if (erc-already-logged-in server port nick)
2084 		 (erc-format-message 'nick-in-use ?n nick)
2086 		 nil nil 'erc-nick-history-list)
2088 	       "Nickname: " (erc-compute-nick nick)
2089 	       nil nil 'erc-nick-history-list))))
2093     (setq passwd (if erc-prompt-for-password
2094 		     (if (and erc-password
2096 			 erc-password
2098 		   erc-password))
2102     (while (erc-already-logged-in server port nick)
2106       ;; bncs transparent, so that erc-compute-buffer-name displays
2109 		  (erc-format-message 'nick-in-use ?n nick)
2111 		  nil nil 'erc-nick-history-list)))
2115 (defun* erc (&key (server (erc-compute-server))
2116 		  (port   (erc-compute-port))
2117 		  (nick   (erc-compute-nick))
2119 		  (full-name (erc-compute-full-name)))
2126    (server (erc-compute-server))
2127    (port   (erc-compute-port))
2128    (nick   (erc-compute-nick))
2130    (full-name (erc-compute-full-name)))
2134    (erc :server \"irc.freenode.net\" :full-name \"Harry S Truman\")
2137 `erc-compute-port', `erc-compute-nick' and `erc-compute-full-name' will
2139   (interactive (erc-select-read-args))
2140   (erc-open server port nick full-name t password))
2143 (defalias 'erc-select 'erc)
2145 (defun erc-ssl (&rest r)
2147 Arguments are the same as for `erc'."
2148   (interactive (erc-select-read-args))
2149   (let ((erc-server-connect-function 'erc-open-ssl-stream))
2150     (apply 'erc r)))
2152 (defalias 'erc-select-ssl 'erc-ssl)
2154 (defun erc-open-ssl-stream (name buffer host port)
2170 (defvar erc-debug-irc-protocol nil
2171   "If non-nil, log all IRC protocol traffic to the buffer \"*erc-protocol*\".
2176 visible \"*erc-protocol*\" buffer, it will be recreated shortly,
2180 function `erc-toggle-debug-irc-protocol' to toggle its value.")
2182 (defun erc-log-irc-protocol (string &optional outbound)
2183   "Append STRING to the buffer *erc-protocol*.
2185 This only has any effect if `erc-debug-irc-protocol' is non-nil.
2190 and appears in face `erc-input-face' in the buffer."
2191   (when erc-debug-irc-protocol
2192     (let ((network-name (or (ignore-errors (erc-network-name))
2194       (with-current-buffer (get-buffer-create "*erc-protocol*")
2208 		      (erc-propertize
2214 			'face 'erc-input-face)))))
2224 (defun erc-toggle-debug-irc-protocol (&optional arg)
2225   "Toggle the value of `erc-debug-irc-protocol'.
2227 If ARG is non-nil, show the *erc-protocol* buffer."
2229   (let* ((buf (get-buffer-create "*erc-protocol*")))
2231       (erc-view-mode-enter 1)
2234 	  (insert (erc-make-notice "This buffer displays all IRC protocol traffic exchanged with each server.\n"))
2235 	  (insert (erc-make-notice "Kill this buffer to terminate protocol logging.\n\n")))
2237 	(local-set-key (kbd "RET") 'erc-toggle-debug-irc-protocol))
2239 		#'(lambda () (setq erc-debug-irc-protocol nil))
2243 	(insert (erc-make-notice
2245 			 (if erc-debug-irc-protocol "disabled" "enabled")
2247     (setq erc-debug-irc-protocol (not erc-debug-irc-protocol))
2249 	     (not (get-buffer-window "*erc-protocol*" t)))
2251     (message "IRC protocol traffic logging %s (see buffer *erc-protocol*)."
2252 	     (if erc-debug-irc-protocol "enabled" "disabled"))))
2258 (defun erc-send-action (tgt str &optional force)
2260   (erc-send-ctcp-message tgt (format "ACTION %s" str) force)
2261   (erc-display-message
2263    'ACTION ?n (erc-current-nick) ?a str ?u "" ?h ""))
2267 (defun erc-string-invisible-p (string)
2272 (defun erc-display-line-1 (string buffer)
2273   "Display STRING in `erc-mode' BUFFER.
2274 Auxiliary function used in `erc-display-line'.  The line gets filtered to
2275 interpret the control characters.  Then, `erc-insert-pre-hook' gets called.
2276 If `erc-insert-this' is still t, STRING gets inserted into the buffer.
2277 Afterwards, `erc-insert-modify' and `erc-insert-post-hook' get called.
2281       (set-buffer (or buffer (process-buffer erc-server-process)))
2282       (let ((insert-position (or (marker-position erc-insert-marker)
2289 	    (when (erc-string-invisible-p string)
2290 	      (erc-put-text-properties 0 (length string) string
2292 	  (erc-log (concat "erc-display-line: " string
2295 	  (setq erc-insert-this t)
2296 	  (run-hook-with-args 'erc-insert-pre-hook string)
2297 	  (if (null erc-insert-this)
2298 	      ;; Leave erc-insert-this set to t as much as possible.  Fran
2299 	      ;; Litterio <franl> has seen erc-insert-this set to nil while
2300 	      ;; erc-send-pre-hook is running, which should never happen.  This
2302 	      (setq erc-insert-this t)
2311 		  (run-hooks 'erc-insert-modify-hook)
2312 		  (run-hooks 'erc-insert-post-hook))))))
2313 	(erc-update-undo-list (- (or (marker-position erc-insert-marker)
2317 (defun erc-update-undo-list (shift)
2344 (defvar erc-valid-nick-regexp "[]a-zA-Z^[;\\`_{}|][]^[;\\`_{}|a-zA-Z0-9-]*"
2347 (defun erc-is-valid-nick-p (nick)
2349   (string-match (concat "^" erc-valid-nick-regexp "$") nick))
2351 (defun erc-display-line (string &optional buffer)
2354 or omitted, the default ERC buffer for the `erc-session-server' is used.
2358 \(`erc-active-buffer').  If the buffer can't be resolved, the current
2359 buffer is used.  `erc-display-line-1' is used to display STRING.
2370 		   (erc-buffer-list nil erc-server-process))
2371 		  ((and (eq 'active buffer) (erc-active-buffer))
2372 		   (list (erc-active-buffer)))
2373 		  ((erc-server-buffer-live-p)
2374 		   (list (process-buffer erc-server-process)))
2377 	(erc-display-line-1 string buf)
2380       (if (erc-server-buffer-live-p)
2381 	  (erc-display-line-1 string (process-buffer erc-server-process))
2382 	(erc-display-line-1 string (current-buffer))))))
2384 (defun erc-display-message-highlight (type string)
2385   "Highlight STRING according to TYPE, where erc-TYPE-face is an ERC face.
2387 See also `erc-make-notice'."
2389 	 (erc-make-notice string))
2391 	 (erc-put-text-property
2394 		     (concat "erc-" (symbol-name type) "-face"))
2395 		    "erc-default-face")
2399 (defun erc-display-message (parsed type buffer msg &rest args)
2404 See also `erc-format-message' and `erc-display-line'."
2406 		    (apply 'erc-format-message msg args)
2415 			  (erc-display-message-highlight type string)))
2419 	    (erc-display-message-highlight type string))))
2421     (if (not (erc-response-p parsed))
2422 	(erc-display-line string buffer)
2423       (unless (member (erc-response.command parsed) erc-hide-list)
2424 	(erc-put-text-property 0 (length string) 'erc-parsed parsed string)
2425 	(erc-put-text-property 0 (length string) 'rear-sticky t string)
2426 	(erc-display-line string buffer)))))
2428 (defun erc-message-type-member (position list)
2429   "Return non-nil if the erc-parsed text-property at POSITION is in LIST.
2431 This function relies on the erc-parsed text-property being
2433   (let ((prop-val (erc-get-parsed-vector position)))
2434     (and prop-val (member (erc-response.command prop-val) list))))
2436 (defvar erc-send-input-line-function 'erc-send-input-line)
2437 (make-variable-buffer-local 'erc-send-input-line-function)
2439 (defun erc-send-input-line (target line &optional force)
2442 See also `erc-server-send'."
2450   (erc-server-send line force target))
2452 (defun erc-get-arglist (fun)
2454   (let ((arglist (format "%S" (erc-function-arglist fun))))
2459 (defun erc-command-name (cmd)
2461 erc-cmd-FOO, this returns a string /FOO."
2463     (if (string-match "^erc-cmd-\\(.*\\)$" command-name)
2467 (defun erc-process-input-line (line &optional force no-command)
2472 If the command in the LINE is not bound as a function `erc-cmd-<COMMAND>',
2473 it is passed to `erc-cmd-default'.  If LINE is not a command (i.e. doesn't
2479   (let ((command-list (erc-extract-command-from-line line)))
2489 	     (erc-display-message nil 'error (current-buffer) 'incorrect-args
2490 				  ?c (erc-command-name cmd)
2491 				  ?u (or (erc-get-arglist cmd)
2496       (let ((r (erc-default-target)))
2498 	    (funcall erc-send-input-line-function r line force)
2499 	  (erc-display-message nil 'error (current-buffer) 'no-target)
2506 (defun erc-cmd-AMSG (line)
2509   (setq line (erc-trim-string line))
2510   (erc-with-all-buffers-of-server nil
2512      (erc-channel-p (erc-default-target)))
2513    (erc-send-message line)))
2514 (put 'erc-cmd-AMSG 'do-not-parse-args t)
2516 (defun erc-cmd-SAY (line)
2525     (erc-process-input-line (match-string 1 line) nil t)))
2526 (put 'erc-cmd-SAY 'do-not-parse-args t)
2528 (defun erc-cmd-SET (line)
2533     (let ((var (read (concat "erc-" (match-string 1 line))))
2538 	    (erc-display-message
2545 	      (erc-display-message
2548 	  (erc-display-message nil 'error 'active 'variable-not-bound)
2551     (erc-display-line
2562 	       (apropos-internal "^erc-" 'user-variable-p))))
2565 (defalias 'erc-cmd-VAR 'erc-cmd-SET)
2566 (defalias 'erc-cmd-VARIABLE 'erc-cmd-SET)
2567 (put 'erc-cmd-SET 'do-not-parse-args t)
2569 (defun erc-cmd-default (line)
2572 Commands for which no erc-cmd-xxx exists, are tunnelled through
2575   (erc-log (format "cmd: DEFAULT: %s" line))
2576   (erc-server-send (substring line 1))
2579 (defun erc-cmd-IGNORE (&optional user)
2581 If no USER argument is specified, list the contents of `erc-ignore-list'."
2588 	(erc-display-line
2589 	 (erc-make-notice (format "Now ignoring %s" user))
2591 	(erc-with-server-buffer (add-to-list 'erc-ignore-list user)))
2592     (if (null (erc-with-server-buffer erc-ignore-list))
2593 	(erc-display-line (erc-make-notice "Ignore list is empty") 'active)
2594       (erc-display-line (erc-make-notice "Ignore list:") 'active)
2596 		(erc-display-line (erc-make-notice item)
2598 	    (erc-with-server-buffer erc-ignore-list))))
2601 (defun erc-cmd-UNIGNORE (user)
2603   (let ((ignored-nick (car (erc-with-server-buffer
2604 			     (erc-member-ignore-case (regexp-quote user)
2605 						     erc-ignore-list)))))
2607       (if (setq ignored-nick (erc-ignored-user-p user))
2611 	(erc-display-line
2612 	 (erc-make-notice (format "%s is not currently ignored!" user))
2615       (erc-display-line
2616        (erc-make-notice (format "No longer ignoring %s" user))
2618       (erc-with-server-buffer
2619 	(setq erc-ignore-list (delete ignored-nick erc-ignore-list)))))
2622 (defun erc-cmd-CLEAR ()
2627 (defun erc-cmd-OPS ()
2631     (if erc-channel-users
2635 			      (erc-channel-user-op cuser))
2636 			 (setq ops (cons (erc-server-user-nickname
2639 		 erc-channel-users))
2642 	(erc-display-message
2646       (erc-display-message nil 'notice (current-buffer) 'ops-none)))
2649 (defun erc-cmd-COUNTRY (tld)
2654 	(erc-display-message
2656       (erc-display-message
2660 (defun erc-cmd-AWAY (line)
2665       (erc-log (format "cmd: AWAY: %s" reason))
2666       (erc-server-send
2671 (put 'erc-cmd-AWAY 'do-not-parse-args t)
2673 (defun erc-cmd-GAWAY (line)
2676   (erc-with-all-buffers-of-server nil
2677     #'erc-open-server-buffer-p
2678     (erc-cmd-AWAY line)))
2679 (put 'erc-cmd-GAWAY 'do-not-parse-args t)
2681 (defun erc-cmd-CTCP (nick cmd &rest args)
2689     (erc-log (format "cmd: CTCP [%s]: [%s]" nick str))
2690     (erc-send-ctcp-message nick str)
2693 (defun erc-cmd-HELP (&optional func)
2699 \(\"erc-.*LINE\"\).
2702 To find out about erc and bbdb, do
2712 				(concat "erc-cmd-" (upcase func)))))
2720 		    (let ((sym (intern-soft (concat "erc-" func))))
2729 	(apropos-command (concat "erc-.*" func) nil
2734     (apropos "erc-cmd-")
2738 (defalias 'erc-cmd-H 'erc-cmd-HELP)
2740 (defun erc-cmd-JOIN (channel &optional key)
2746 	(if erc-invitation
2747 	    (setq chnl erc-invitation)
2748 	  (erc-display-message nil 'error (current-buffer) 'no-invitation))
2749       (setq chnl (erc-ensure-channel-name channel)))
2754 			 (with-current-buffer chanbuf (erc-default-target)))
2755 		     (erc-channel-list erc-server-process))))
2756 	(if (erc-member-ignore-case chnl joined-channels)
2757 	    (switch-to-buffer (car (erc-member-ignore-case chnl
2759 	  (erc-log (format "cmd: JOIN: %s" chnl))
2761 	      (erc-server-send (format "JOIN %s %s" chnl key))
2762 	    (erc-server-send (format "JOIN %s" chnl)))))))
2765 (defalias 'erc-cmd-CHANNEL 'erc-cmd-JOIN)
2766 (defalias 'erc-cmd-J 'erc-cmd-JOIN)
2768 (defvar erc-channel-new-member-names nil
2773 (make-variable-buffer-local 'erc-channel-new-member-names)
2775 (defun erc-cmd-NAMES (&optional channel)
2780   (let ((tgt (or (and (erc-channel-p channel) channel)
2781 		 (erc-default-target))))
2782     (if (and tgt (erc-channel-p tgt))
2784 	  (erc-log (format "cmd: DEFAULT: NAMES %s" tgt))
2785 	  (erc-with-buffer
2787 	   (erc-channel-begin-receiving-names))
2788 	  (erc-server-send (concat "NAMES " tgt)))
2789       (erc-display-message nil 'error (current-buffer) 'no-default-channel)))
2791 (defalias 'erc-cmd-N 'erc-cmd-NAMES)
2793 (defun erc-cmd-KICK (target &optional reason-or-nick &rest reasonwords)
2798 	(setq reasonstring (format "Kicked by %s" (erc-current-nick))))
2799     (if (erc-channel-p target)
2801 	  (erc-log (format "cmd: KICK: %s/%s: %s" nick target reasonstring))
2802 	  (erc-server-send (format "KICK %s %s :%s" target nick reasonstring)
2806 	(let ((ch (erc-default-target)))
2812 		(erc-log
2814 		(erc-server-send
2816 	    (erc-display-message nil 'error (current-buffer)
2820 (defvar erc-script-args nil)
2822 (defun erc-cmd-LOAD (line)
2825 it is put in a (local) variable `erc-script-args',
2833 	   (erc-script-args (match-string 2 line))
2834 	   (file (erc-find-file file-to-find erc-script-path)))
2835       (erc-log (format "cmd: LOAD: %s" file-to-find))
2838 	(erc-display-message nil 'error (current-buffer)
2841 	(erc-display-message nil 'error (current-buffer)
2845 	(erc-load-script file)
2850 (defun erc-cmd-WHOIS (user &optional server)
2858     (erc-log (format "cmd: %s" send))
2859     (erc-server-send send)
2861 (defalias 'erc-cmd-WI 'erc-cmd-WHOIS)
2863 (defun erc-cmd-WHOAMI ()
2865   (erc-cmd-WHOIS (erc-current-nick))
2868 (defun erc-cmd-IDLE (nick)
2872     (erc-with-server-buffer
2874 		   (cons (erc-once-with-server-event
2877 					 (erc-response.command-args parsed))))
2878 			 'erc-server-311-functions))
2880 		   (cons (erc-once-with-server-event
2883 					 (erc-response.command-args parsed))))
2884 			 'erc-server-312-functions))
2886 		   (cons (erc-once-with-server-event
2889 					 (erc-response.command-args parsed))))
2890 			 'erc-server-318-functions))
2892 		   (cons (erc-once-with-server-event
2895 					 (erc-response.command-args parsed))))
2896 			 'erc-server-319-functions))
2898 		   (cons (erc-once-with-server-event
2901 					 (erc-response.command-args parsed))))
2902 			 'erc-server-320-functions))
2904 		   (cons (erc-once-with-server-event
2907 					 (erc-response.command-args parsed))))
2908 			 'erc-server-330-functions))
2910 		   (cons (erc-once-with-server-event
2915 				    (erc-response.command-args parsed)))))
2916 			     (erc-display-line
2917 			      (erc-make-notice
2919 				       (erc-string-no-properties ,nick)
2920 				       (erc-seconds-to-string idleseconds)))
2923 			 'erc-server-317-functions))
2926       (erc-cmd-WHOIS nick)
2937 (defun erc-cmd-DESCRIBE (line)
2945       (erc-log (format "cmd: DESCRIBE: [%s] %s" dst s))
2946       (erc-send-action dst s))
2949 (put 'erc-cmd-DESCRIBE 'do-not-parse-args t)
2951 (defun erc-cmd-ME (line)
2956       (erc-log (format "cmd: ME: %s" s))
2957       (erc-send-action (erc-default-target) s))
2960 (put 'erc-cmd-ME 'do-not-parse-args t)
2962 (defun erc-cmd-LASTLOG (line)
2975 (put 'erc-cmd-LASTLOG 'do-not-parse-args t)
2977 (defun erc-send-message (line &optional force)
2980 See also `erc-message' and `erc-display-line'."
2981   (erc-message "PRIVMSG" (concat (erc-default-target) " " line) force)
2982   (erc-display-line
2983    (concat (erc-format-my-nick) line)
2988 (defun erc-cmd-MODE (line)
3000       (erc-log (format "cmd: MODE: %s" s))
3001       (erc-server-send (concat "MODE " line)))
3004 (put 'erc-cmd-MODE 'do-not-parse-args t)
3006 (defun erc-cmd-NOTICE (channel-or-user &rest message)
3009   (erc-message "NOTICE" (concat channel-or-user " "
3012 (defun erc-cmd-MSG (line)
3016   (erc-message "PRIVMSG" line))
3018 (defalias 'erc-cmd-M 'erc-cmd-MSG)
3019 (put 'erc-cmd-MSG 'do-not-parse-args t)
3021 (defun erc-cmd-SQUERY (line)
3025   (erc-message "SQUERY" line))
3027 (defun erc-cmd-NICK (nick)
3029   (erc-log (format "cmd: NICK: %s (erc-bad-nick: %S)" nick erc-bad-nick))
3030   (let ((nicklen (cdr (assoc "NICKLEN" (erc-with-server-buffer
3031 					 erc-server-parameters)))))
3033 	 (erc-display-message
3036   (erc-server-send (format "NICK %s" nick))
3037   (cond (erc-bad-nick
3038 	 (erc-set-current-nick nick)
3039 	 (erc-update-mode-line)
3040 	 (setq erc-bad-nick nil)))
3043 (defun erc-cmd-PART (line)
3050 	   (reason (funcall erc-part-reason (if (equal msg "") nil msg))))
3051       (erc-log (format "cmd: PART: %s: %s" ch reason))
3052       (erc-server-send (if (string= reason "")
3058     (let* ((ch (erc-default-target))
3060 	   (reason (funcall erc-part-reason (if (equal msg "") nil msg))))
3061       (if (and ch (erc-channel-p ch))
3063 	    (erc-log (format "cmd: PART: %s: %s" ch reason))
3064 	    (erc-server-send (if (string= reason "")
3068 	(erc-display-message nil 'error (current-buffer) 'no-target)))
3071 (put 'erc-cmd-PART 'do-not-parse-args t)
3073 (defalias 'erc-cmd-LEAVE 'erc-cmd-PART)
3075 (defun erc-cmd-PING (recipient)
3077   (let ((time (format "%f" (erc-current-time))))
3078     (erc-log (format "cmd: PING: %s" time))
3079     (erc-cmd-CTCP recipient "PING" time)))
3081 (defun erc-cmd-QUOTE (line)
3087     (erc-server-send (match-string 1 line)))
3089 (put 'erc-cmd-QUOTE 'do-not-parse-args t)
3091 (defun erc-cmd-QUERY (&optional user)
3094 `erc-join-buffer'.  If USER is omitted, close the current query buffer if one
3098   (let ((session-buffer (erc-server-buffer)))
3100 	(erc-query user session-buffer)
3102       ;(erc-delete-query))))
3104 (defalias 'erc-cmd-Q 'erc-cmd-QUERY)
3106 (defun erc-quit-reason-normal (&optional s)
3112 	      erc-version-string) ; erc-official-location)
3115 (defun erc-quit-reason-zippy (&optional s)
3120       (erc-replace-regexp-in-string "\n" "" (yow))))
3122 (defun erc-quit-reason-various (s)
3126 		   erc-quit-reason-various-alist 'string-match))))
3131      (t (erc-quit-reason-normal)))))
3133 (defun erc-part-reason-normal (&optional s)
3139 	      erc-version-string) ; erc-official-location)
3142 (defun erc-part-reason-zippy (&optional s)
3147       (erc-replace-regexp-in-string "\n" "" (yow))))
3149 (defun erc-part-reason-various (s)
3153 		   erc-part-reason-various-alist 'string-match))))
3158      (t (erc-part-reason-normal)))))
3160 (defun erc-cmd-QUIT (reason)
3169 	   (buffer (erc-server-buffer))
3170 	   (reason (funcall erc-quit-reason (if (equal s "") nil s)))
3176 	(erc-log (format "cmd: QUIT: %s" reason))
3177 	(setq erc-server-quitting t)
3178 	(erc-set-active-buffer (erc-server-buffer))
3179 	(setq server-proc erc-server-process)
3180 	(erc-server-send (format "QUIT :%s" reason)))
3181       (run-hook-with-args 'erc-quit-hook server-proc)
3182       (when erc-kill-queries-on-quit
3183 	(erc-kill-query-buffers server-proc))
3194 (defalias 'erc-cmd-BYE 'erc-cmd-QUIT)
3195 (defalias 'erc-cmd-EXIT 'erc-cmd-QUIT)
3196 (defalias 'erc-cmd-SIGNOFF 'erc-cmd-QUIT)
3197 (put 'erc-cmd-QUIT 'do-not-parse-args t)
3199 (defun erc-cmd-GQUIT (reason)
3201   (erc-with-all-buffers-of-server nil #'erc-open-server-buffer-p
3202 				  (erc-cmd-QUIT reason)))
3204 (defalias 'erc-cmd-GQ 'erc-cmd-GQUIT)
3205 (put 'erc-cmd-GQUIT 'do-not-parse-args t)
3207 (defun erc-cmd-RECONNECT ()
3209   (let ((buffer (or (erc-server-buffer) (current-buffer)))
3212       (setq erc-server-quitting nil)
3213       (setq erc-server-reconnecting t)
3214       (setq erc-server-reconnect-count 0)
3215       (setq process (get-buffer-process (erc-server-buffer)))
3218 	(erc-server-reconnect))
3219       (setq erc-server-reconnecting nil)))
3222 (defun erc-cmd-SERVER (server)
3224   (erc-log (format "cmd: SERVER: %s" server))
3226       (erc :server server :nick (erc-current-nick))
3236 (defun erc-cmd-SV ()
3238   (erc-send-message (format "I'm using ERC %s with %s %s (%s%s) of %s."
3239 			    erc-version-string
3261 			    erc-emacs-build-time))
3264 (defun erc-cmd-SM ()
3266   (erc-send-message (format "I'm using the following modules: %s!"
3267 			    (erc-modes)))
3270 (defun erc-cmd-DEOP (&rest people)
3273     (erc-server-send (concat "MODE " (erc-default-target)
3280 (defun erc-cmd-OP (&rest people)
3283     (erc-server-send (concat "MODE " (erc-default-target)
3290 (defun erc-cmd-TIME (&optional line)
3295       (erc-log (format "cmd: TIME: %s" args))
3296       (erc-server-send (concat "TIME " args)))
3298    (t (erc-server-send "TIME"))))
3299 (defalias 'erc-cmd-DATE 'erc-cmd-TIME)
3301 (defun erc-cmd-TOPIC (topic)
3314       (erc-log (format "cmd: TOPIC [%s]: %s" ch topic))
3315       (erc-server-send (format "TOPIC %s :%s" ch topic) nil ch))
3320       (erc-server-send (format "TOPIC %s" ch) nil ch)
3324     (let ((ch (erc-default-target)))
3325       (erc-server-send (format "TOPIC %s" ch) nil ch)
3329     (let ((ch (erc-default-target))
3331       (if (and ch (erc-channel-p ch))
3333 	    (erc-log (format "cmd: TOPIC [%s]: %s" ch topic))
3334 	    (erc-server-send (format "TOPIC %s :%s" ch topic) nil ch))
3335 	(erc-display-message nil 'error (current-buffer) 'no-target)))
3338 (defalias 'erc-cmd-T 'erc-cmd-TOPIC)
3339 (put 'erc-cmd-TOPIC 'do-not-parse-args t)
3341 (defun erc-cmd-APPENDTOPIC (topic)
3343   (let ((oldtopic erc-channel-topic))
3349       (erc-cmd-TOPIC (concat (match-string 1 oldtopic) topic)))))
3350 (defalias 'erc-cmd-AT 'erc-cmd-APPENDTOPIC)
3351 (put 'erc-cmd-APPENDTOPIC 'do-not-parse-args t)
3353 (defun erc-cmd-CLEARTOPIC (&optional channel)
3357   (let ((chnl (or (and (erc-channel-p channel) channel) (erc-default-target))))
3359       (erc-server-send (format "TOPIC %s :" chnl))
3364 (defvar erc-channel-banlist nil
3372 (make-variable-buffer-local 'erc-channel-banlist)
3373 (put 'erc-channel-banlist 'received-from-server nil)
3375 (defun erc-cmd-BANLIST ()
3376   "Pretty-print the contents of `erc-channel-banlist'.
3379   (let ((chnl (erc-default-target))
3383      ((not (erc-channel-p chnl))
3384       (erc-display-line (erc-make-notice "You're not on a channel\n")
3387      ((not (get 'erc-channel-banlist 'received-from-server))
3388       (let ((old-367-hook erc-server-367-functions))
3389 	(setq erc-server-367-functions 'erc-banlist-store
3390 	      erc-channel-banlist nil)
3392 	(erc-with-server-buffer
3393 	  (erc-once-with-server-event
3396 	      (put 'erc-channel-banlist 'received-from-server t)
3397 	      (setq erc-server-367-functions ',old-367-hook)
3398 	      (erc-cmd-BANLIST)
3400 	  (erc-server-send (format "MODE %s b" chnl)))))
3402      ((null erc-channel-banlist)
3403       (erc-display-line (erc-make-notice
3406       (put 'erc-channel-banlist 'received-from-server nil))
3409       (let* ((erc-fill-column (or (and (boundp 'erc-fill-column)
3410 				       erc-fill-column)
3414 	     (separator (make-string erc-fill-column ?=))
3416 		   "%-" (number-to-string (/ erc-fill-column 2)) "s"
3417 		   "%" (number-to-string (/ erc-fill-column 2)) "s")))
3419 	(erc-display-line
3420 	 (erc-make-notice (format "Ban list for channel: %s\n"
3421 				  (erc-default-target)))
3424 	(erc-display-line separator 'active)
3425 	(erc-display-line (format fmt "Ban Mask" "Banned By") 'active)
3426 	(erc-display-line separator 'active)
3430 	   (erc-display-line
3432 		    (truncate-string-to-width (cdr x) (/ erc-fill-column 2))
3434 			(truncate-string-to-width (car x) (/ erc-fill-column 2))
3437 	 erc-channel-banlist)
3439 	(erc-display-line (erc-make-notice "End of Ban list")
3441 	(put 'erc-channel-banlist 'received-from-server nil)))))
3444 (defalias 'erc-cmd-BL 'erc-cmd-BANLIST)
3446 (defun erc-cmd-MASSUNBAN ()
3450   (let ((chnl (erc-default-target)))
3453      ((not (erc-channel-p chnl))
3454       (erc-display-line
3455        (erc-make-notice "You're not on a channel\n")
3458      ((not (get 'erc-channel-banlist 'received-from-server))
3459       (let ((old-367-hook erc-server-367-functions))
3460 	(setq erc-server-367-functions 'erc-banlist-store)
3462       (erc-with-server-buffer
3463 	(erc-once-with-server-event
3466 	    (put 'erc-channel-banlist 'received-from-server t)
3467 	      (setq erc-server-367-functions ,old-367-hook)
3468 	    (erc-cmd-MASSUNBAN)
3470 	  (erc-server-send (format "MODE %s b" chnl)))))
3472      (t (let ((bans (mapcar 'cdr erc-channel-banlist)))
3478 	 (erc-server-send
3479 	  (format "MODE %s -%s %s" (erc-default-target)
3482        (erc-group-list bans 3))))
3485 (defalias 'erc-cmd-MUB 'erc-cmd-MASSUNBAN)
3489 (defun erc-ensure-channel-name (channel)
3492   (if (erc-channel-p channel)
3496 (defun erc-grab-region (start end)
3504   (erc-set-active-buffer (current-buffer))
3507 	   (buf (generate-new-buffer erc-grab-buffer-name))
3509 	   (lines (erc-split-multiline-safe region)))
3515   (message "erc-grab-region doesn't grab colors etc. anymore. If you use this, please tell the maintainers.")
3518 (defun erc-display-prompt (&optional buffer pos prompt face)
3522 If PROMPT is nil, one is constructed with the function `erc-prompt'.
3526 `erc-prompt-face' will be used."
3527   (let* ((prompt (or prompt (erc-prompt)))
3544 	(setq prompt (erc-propertize prompt
3547 				     'erc-prompt t
3550 	(erc-put-text-property 0 (1- (length prompt))
3551 			       'face (or face 'erc-prompt-face)
3555       (set-marker erc-input-marker (point)))
3569 (defun erc-input-message ()
3576     (erc-send-current-line)))
3578 (defvar erc-action-history-list ()
3581 (defun erc-input-action ()
3584   (erc-set-active-buffer (current-buffer))
3586 		 "Action: " nil nil nil 'erc-action-history-list)))
3588 	(erc-send-action (erc-default-target) action))))
3590 (defun erc-join-channel (channel &optional key)
3597 	  (table (when (erc-server-buffer-live-p)
3598 		   (set-buffer (process-buffer erc-server-process))
3599 		   erc-channel-list)))
3601     (when erc-prompt-for-channel-key
3603   (erc-cmd-JOIN channel (when (>= (length key) 1) key)))
3605 (defun erc-part-from-channel (reason)
3611       (read-from-minibuffer (concat "Reason for leaving " (erc-default-target)
3613   (erc-cmd-PART (concat (erc-default-target)" " reason)))
3615 (defun erc-set-topic (topic)
3620      (concat "Set topic of " (erc-default-target) ": ")
3621      (when erc-channel-topic
3622        (cons (apply 'concat (butlast (split-string erc-channel-topic "\C-o")))
3625     (erc-cmd-TOPIC (concat (erc-default-target) " " (car topic-list)))))
3627 (defun erc-set-channel-limit (&optional limit)
3632 			      (erc-default-target)))))
3633   (let ((tgt (erc-default-target)))
3635 	(erc-server-send (format "MODE %s +l %s" tgt limit))
3636       (erc-server-send (format "MODE %s -l" tgt)))))
3638 (defun erc-set-channel-key (&optional key)
3643 			      (erc-default-target)))))
3644   (let ((tgt (erc-default-target)))
3646 	(erc-server-send (format "MODE %s +k %s" tgt key))
3647       (erc-server-send (format "MODE %s -k" tgt)))))
3649 (defun erc-quit-server (reason)
3651 `erc-quit-reason' works with this just like with `erc-cmd-QUIT'."
3654 			      (or erc-server-announced-name
3655 				  erc-session-server)))))
3656   (erc-cmd-QUIT reason))
3660 (defun erc-bol ()
3666   (when (get-text-property (point) 'erc-prompt)
3667     (goto-char erc-input-marker))
3670 (defun erc-kill-input ()
3671   "Kill current input line using `erc-bol' followed by `kill-line'."
3673   (when (and (erc-bol)
3676     (if (boundp 'erc-input-ring-index)
3677 	(setq erc-input-ring-index nil))
3680 (defun erc-complete-word ()
3683 This function uses `erc-complete-functions'."
3685   (unless (run-hook-with-args-until-success 'erc-complete-functions)
3699 (defcustom erc-default-server-hook '(erc-debug-missing-hooks
3700 				     erc-default-server-handler)
3701   "*Default for server messages which aren't covered by `erc-server-hooks'."
3702   :group 'erc-server-hooks
3705 (defun erc-default-server-handler (proc parsed)
3708 Displays PROC and PARSED appropriately using `erc-display-message'."
3709   (erc-display-message
3721 (defvar erc-server-vectors
3724 See `erc-debug-missing-hooks'.")
3725 ;(make-variable-buffer-local 'erc-server-vectors)
3727 (defun erc-debug-missing-hooks (proc parsed)
3728   "Add PARSED server message ERC does not yet handle to `erc-server-vectors'.
3730 See `erc-default-server-hook'."
3731   (nconc erc-server-vectors (list parsed))
3734 (defun erc-query (target server)
3737 `erc-join-buffer' before calling this."
3742   (let ((buf (erc-open erc-session-server
3743 		       erc-session-port
3744 		       (erc-current-nick)
3745 		       erc-session-user-full-name
3750 		       erc-server-process)))
3753     (erc-update-mode-line)
3756 (defcustom erc-auto-query 'bury
3761 appear.  See the documentation for `erc-join-buffer' for
3763   :group 'erc-query
3771 (defcustom erc-query-on-unjoined-chan-privmsg t
3776   :group 'erc-query
3779 (defcustom erc-format-query-as-channel-p t
3782   :group 'erc-query
3785 (defcustom erc-minibuffer-notice nil
3788   :group 'erc-display
3791 (defcustom erc-minibuffer-ignored nil
3793   :group 'erc-ignore
3796 (defun erc-wash-quit-reason (reason nick login host)
3814 (defun erc-nickname-in-use (nick reason)
3817 See also `erc-display-error-notice'."
3818   (if (or (not erc-try-new-nick-p)
3820 	  (eq erc-nick-change-attempt-count
3821 	      (if (consp erc-nick)
3822 		  (+ (length erc-nick) 1)
3824       (erc-display-error-notice
3827     (setq erc-nick-change-attempt-count (+ erc-nick-change-attempt-count 1))
3828     (let ((newnick (nth 1 erc-default-nicks))
3830 			       (erc-with-server-buffer
3831 				 erc-server-parameters)))))
3832       (setq erc-bad-nick t)
3834       (if erc-default-nicks
3835 	  (setq erc-default-nicks (cdr erc-default-nicks)))
3839 				 (if (and erc-server-connected nicklen)
3841 					(length erc-nick-uniquifier))
3846 				   (- 9 (length erc-nick-uniquifier))))
3847 				erc-nick-uniquifier)))
3848       (erc-cmd-NICK newnick)
3849       (erc-display-error-notice
3856 (defgroup erc-server-hooks nil
3863   :group 'erc-hooks)
3865 (defun erc-display-server-message (proc parsed)
3867   (erc-display-message
3868    parsed 'notice 'active (erc-response.contents parsed)))
3870 (defun erc-auto-query (proc parsed)
3873   "Put this on `erc-server-PRIVMSG-functions'."
3874   (when erc-auto-query
3875     (let* ((nick (car (erc-parse-user (erc-response.sender parsed))))
3876 	   (target (car (erc-response.command-args parsed)))
3877 	   (msg (erc-response.contents parsed))
3878 	   (query  (if (not erc-query-on-unjoined-chan-privmsg)
3880 		     (if (erc-current-nick-p target)
3883       (and (not (erc-ignored-user-p (erc-response.sender parsed)))
3884 	   (or erc-query-on-unjoined-chan-privmsg
3885 	       (string= target (erc-current-nick)))
3886 	   (not (erc-get-buffer query proc))
3887 	   (not (erc-is-message-ctcp-and-not-action-p msg))
3888 	   (let ((erc-join-buffer erc-auto-query))
3889 	     (erc-cmd-QUERY query))
3892 (defun erc-is-message-ctcp-p (message)
3896 (defun erc-is-message-ctcp-and-not-action-p (message)
3898   (and (erc-is-message-ctcp-p message)
3901 (defun erc-format-privmessage (nick msg privp msgp)
3906 	 (nick-face (if privp 'erc-nick-msg-face 'erc-nick-default-face))
3907 	 (msg-face (if privp 'erc-direct-msg-face 'erc-default-face)))
3909     (erc-put-text-property 0 (length mark-s) 'face msg-face str)
3910     (erc-put-text-property (length mark-s) (+ (length mark-s) (length nick))
3912     (erc-put-text-property (+ (length mark-s) (length nick)) (length str)
3916 (defcustom erc-format-nick-function 'erc-format-nick
3918   :group 'erc-display
3921 (defun erc-format-nick (&optional user channel-data)
3923 See also `erc-format-nick-function'."
3924   (when user (erc-server-user-nickname user)))
3926 (defun erc-format-@nick (&optional user channel-data)
3930 See also `erc-format-nick-function'."
3932     (let ((op (and channel-data (erc-channel-user-op channel-data) "@"))
3933 	  (voice (and channel-data (erc-channel-user-voice channel-data) "+")))
3934       (concat voice op (erc-server-user-nickname user)))))
3936 (defun erc-format-my-nick ()
3938   (if erc-show-my-nick
3941 	    (nick (erc-current-nick)))
3943 	 (erc-propertize open 'face 'erc-default-face)
3944 	 (erc-propertize nick 'face 'erc-my-nick-face)
3945 	 (erc-propertize close 'face 'erc-default-face)))
3947       (erc-propertize prefix 'face 'erc-default-face))))
3949 (defun erc-echo-notice-in-default-buffer (s parsed buffer sender)
3953 either `erc-echo-notice-hook' or `erc-echo-notice-always-hook',
3955   (erc-display-message parsed nil buffer s)
3958 (defun erc-echo-notice-in-target-buffer (s parsed buffer sender)
3960 function is designed to be added to either `erc-echo-notice-hook'
3961 or `erc-echo-notice-always-hook', and returns non-nil iff BUFFER
3964       (progn (erc-display-message parsed nil buffer s) t)
3967 (defun erc-echo-notice-in-minibuffer (s parsed buffer sender)
3969 designed to be added to either `erc-echo-notice-hook' or
3970 `erc-echo-notice-always-hook', and always returns t."
3974 (defun erc-echo-notice-in-server-buffer (s parsed buffer sender)
3976 designed to be added to either `erc-echo-notice-hook' or
3977 `erc-echo-notice-always-hook', and always returns t."
3978   (erc-display-message parsed nil nil s)
3981 (defun erc-echo-notice-in-active-non-server-buffer (s parsed buffer sender)
3984 added to either `erc-echo-notice-hook' or
3985 `erc-echo-notice-always-hook', and returns non-nil iff the active
3987   (if (not (eq (erc-server-buffer) (erc-active-buffer)))
3988       (progn (erc-display-message parsed nil 'active s) t)
3991 (defun erc-echo-notice-in-active-buffer (s parsed buffer sender)
3993 designed to be added to either `erc-echo-notice-hook' or
3994 `erc-echo-notice-always-hook', and always returns t."
3995   (erc-display-message parsed nil 'active s)
3998 (defun erc-echo-notice-in-user-buffers (s parsed buffer sender)
4001 `erc-echo-notice-hook' or `erc-echo-notice-always-hook', and
4005 See also: `erc-echo-notice-in-first-user-buffer',
4006 `erc-buffer-list-with-nick'."
4007   (let ((buffers (erc-buffer-list-with-nick sender erc-server-process)))
4009 	(progn (erc-display-message parsed nil buffers s) t)
4012 (defun erc-echo-notice-in-user-and-target-buffers (s parsed buffer sender)
4015 to either `erc-echo-notice-hook' or
4016 `erc-echo-notice-always-hook', and returns non-nil iff there is
4020 See also: `erc-echo-notice-in-user-buffers',
4021 `erc-buffer-list-with-nick'."
4022   (let ((buffers (erc-buffer-list-with-nick sender erc-server-process)))
4025 	(progn (erc-display-message parsed nil buffers s) t)
4028 (defun erc-echo-notice-in-first-user-buffer (s parsed buffer sender)
4031 `erc-echo-notice-hook' or `erc-echo-notice-always-hook', and
4035 See also: `erc-echo-notice-in-user-buffers',
4036 `erc-buffer-list-with-nick'."
4037   (let ((buffers (erc-buffer-list-with-nick sender erc-server-process)))
4039 	(progn (erc-display-message parsed nil (car buffers) s) t)
4044 (defun erc-banlist-store (proc parsed)
4047       (cdr (erc-response.command-args parsed))
4049     (let ((buffer (erc-get-buffer channel proc)))
4051 	(unless (member (cons whoset mask) erc-channel-banlist)
4052 	  (setq erc-channel-banlist (cons (cons whoset mask)
4053 					  erc-channel-banlist))))))
4056 (defun erc-banlist-finished (proc parsed)
4058   (let* ((channel (second (erc-response.command-args parsed)))
4059 	 (buffer (erc-get-buffer channel proc)))
4061       (put 'erc-channel-banlist 'received-from-server t)))
4064 (defun erc-banlist-update (proc parsed)
4067   (let* ((tgt (first (erc-response.command-args parsed)))
4068 	 (mode (erc-response.contents parsed))
4069 	 (whoset (erc-response.sender parsed))
4070 	 (buffer (erc-get-buffer tgt proc)))
4073 	(cond ((not (get 'erc-channel-banlist 'received-from-server)) nil)
4079 		 (setq erc-channel-banlist
4080 		       (erc-delete-if
4085 			erc-channel-banlist)))
4090 		    (unless (member (cons whoset mask) erc-channel-banlist)
4091 		      (setq erc-channel-banlist
4092 			    (cons (cons whoset mask) erc-channel-banlist))))
4097 (defun erc-group-list (list n)
4101 	(t (cons (erc-subseq list 0 n) (erc-group-list (nthcdr n list) n)))))
4106 (defun erc-handle-login ()
4108   (unless erc-logged-in
4109     (setq erc-logged-in t)
4110     (message "Logging in as \'%s\'... done" (erc-current-nick))
4112     (let ((f (erc-select-startup-file)))
4114 	(erc-load-script f)))))
4116 (defun erc-connection-established (proc parsed)
4119 Set user modes and run `erc-after-connect' hook."
4121     (unless erc-server-connected ; only once per session
4122       (let ((server (or erc-server-announced-name
4123 			(erc-response.sender parsed)))
4124 	    (nick (car (erc-response.command-args parsed)))
4126 	(setq erc-server-connected t)
4127 	(erc-update-mode-line)
4128 	(erc-set-initial-user-mode nick buffer)
4129 	(erc-server-setup-periodical-ping buffer)
4130 	(run-hook-with-args 'erc-after-connect server nick)))))
4132 (defun erc-set-initial-user-mode (nick buffer)
4133   "If `erc-user-mode' is non-nil for NICK, set the user modes.
4136     (when erc-user-mode
4137       (let ((mode (if (functionp erc-user-mode)
4138 		      (funcall erc-user-mode)
4139 		    erc-user-mode)))
4141 	  (erc-log (format "changing mode for %s to %s" nick mode))
4142 	  (erc-server-send (format "MODE %s %s" nick mode)))))))
4144 (defun erc-display-error-notice (parsed string)
4147 See also `erc-display-message'."
4148   (erc-display-message
4151 (defun erc-process-ctcp-query (proc parsed nick login host)
4154   (let ((queries (delete "" (split-string (erc-response.contents parsed)
4157 	(erc-display-message
4160 	  (erc-display-message
4165 		 (hook (intern-soft (concat "erc-ctcp-query-" type "-hook"))))
4170 		     (car (erc-response.command-args parsed))
4172 		  (when erc-paranoid
4173 		    (if (erc-current-nick-p
4174 			 (car (erc-response.command-args parsed)))
4175 			(erc-display-message
4178 		      (erc-display-message
4181 		       ?t (car (erc-response.command-args parsed)))))
4184 		   (car (erc-response.command-args parsed))
4186 	      (erc-display-message
4191 (defvar erc-ctcp-query-ACTION-hook '(erc-ctcp-query-ACTION))
4193 (defun erc-ctcp-query-ACTION (proc parsed nick login host to msg)
4197 	  (buf (or (erc-get-buffer to proc)
4198 		   (erc-get-buffer nick proc)
4200       (erc-display-message
4204 (defvar erc-ctcp-query-CLIENTINFO-hook '(erc-ctcp-query-CLIENTINFO))
4206 (defun erc-ctcp-query-CLIENTINFO (proc nick login host to msg)
4209     (let ((s (erc-client-info (erc-trim-string (match-string 1 msg)))))
4210       (unless erc-disable-ctcp-replies
4211 	  (erc-send-ctcp-notice nick (format "CLIENTINFO %s" s)))))
4214 (defvar erc-ctcp-query-ECHO-hook '(erc-ctcp-query-ECHO))
4215 (defun erc-ctcp-query-ECHO (proc nick login host to msg)
4219       (unless erc-disable-ctcp-replies
4220 	(erc-send-ctcp-notice nick (format "ECHO %s" s)))))
4223 (defvar erc-ctcp-query-FINGER-hook '(erc-ctcp-query-FINGER))
4224 (defun erc-ctcp-query-FINGER (proc nick login host to msg)
4226   (unless erc-disable-ctcp-replies
4227     (let ((s (if erc-anonymous-login
4228 		 (format "FINGER I'm %s." (erc-current-nick))
4233 	  (ns (erc-time-diff erc-server-last-sent-time (erc-current-time))))
4235 	    (setq s (concat s " Idle for " (erc-sec-to-time ns))))
4236 	(erc-send-ctcp-notice nick s)))
4239 (defvar erc-ctcp-query-PING-hook '(erc-ctcp-query-PING))
4240 (defun erc-ctcp-query-PING (proc nick login host to msg)
4243     (unless erc-disable-ctcp-replies
4245 	(erc-send-ctcp-notice nick (format "PING %s" arg)))))
4248 (defvar erc-ctcp-query-TIME-hook '(erc-ctcp-query-TIME))
4249 (defun erc-ctcp-query-TIME (proc nick login host to msg)
4251   (unless erc-disable-ctcp-replies
4252     (erc-send-ctcp-notice nick (format "TIME %s" (current-time-string))))
4255 (defvar erc-ctcp-query-USERINFO-hook '(erc-ctcp-query-USERINFO))
4256 (defun erc-ctcp-query-USERINFO (proc nick login host to msg)
4258   (unless erc-disable-ctcp-replies
4259     (erc-send-ctcp-notice nick (format "USERINFO %s" erc-user-information)))
4262 (defvar erc-ctcp-query-VERSION-hook '(erc-ctcp-query-VERSION))
4263 (defun erc-ctcp-query-VERSION (proc nick login host to msg)
4265   (unless erc-disable-ctcp-replies
4266     (erc-send-ctcp-notice
4269 	   erc-version-string
4270 	   erc-official-location)))
4273 (defun erc-process-ctcp-reply (proc parsed nick login host msg)
4276 	 (hook (intern (concat "erc-ctcp-reply-" type "-hook"))))
4280 	 (car (erc-response.command-args parsed)) msg)
4281       (erc-display-message
4285 (defvar erc-ctcp-reply-ECHO-hook '(erc-ctcp-reply-ECHO))
4286 (defun erc-ctcp-reply-ECHO (proc nick login host to msg)
4290       (erc-display-message
4295 (defvar erc-ctcp-reply-CLIENTINFO-hook '(erc-ctcp-reply-CLIENTINFO))
4296 (defun erc-ctcp-reply-CLIENTINFO (proc nick login host to msg)
4300       (erc-display-message
4305 (defvar erc-ctcp-reply-FINGER-hook '(erc-ctcp-reply-FINGER))
4306 (defun erc-ctcp-reply-FINGER (proc nick login host to msg)
4310       (erc-display-message
4315 (defvar erc-ctcp-reply-PING-hook '(erc-ctcp-reply-PING))
4316 (defun erc-ctcp-reply-PING (proc nick login host to msg)
4322 	  (let ((delta (erc-time-diff (string-to-number time)
4323 				      (erc-current-time))))
4324 	    (erc-display-message
4327 	     ?t (erc-sec-to-time delta)))
4329 	 (erc-display-message
4333 (defvar erc-ctcp-reply-TIME-hook '(erc-ctcp-reply-TIME))
4334 (defun erc-ctcp-reply-TIME (proc nick login host to msg)
4338       (erc-display-message
4343 (defvar erc-ctcp-reply-VERSION-hook '(erc-ctcp-reply-VERSION))
4344 (defun erc-ctcp-reply-VERSION (proc nick login host to msg)
4348       (erc-display-message
4353 (defun erc-process-away (proc away-p)
4361 	(when erc-away-nickname
4362 	  (erc-log (format "erc-process-away: away-nick: %s, away-p: %s"
4363 			   erc-away-nickname away-p))
4364 	  (erc-cmd-NICK (if away-p
4365 			    erc-away-nickname
4366 			  erc-nick)))
4369 	  (setq erc-away (current-time)))
4371 	  (let ((away-time erc-away))
4374 	    (setq erc-away nil)
4376 	      (set-buffer (erc-active-buffer))
4377 	      (when erc-public-away-p
4378 		(erc-send-action
4379 		 (erc-default-target)
4382 			     (erc-sec-to-time
4383 			      (erc-time-diff
4384 			       (erc-emacs-time-to-erc-time away-time)
4385 			       (erc-current-time))))
4387     (erc-update-mode-line)))
4391 (defun erc-channel-begin-receiving-names ()
4397 See also `erc-channel-end-receiving-names'."
4398   (setq erc-channel-new-member-names (make-hash-table :test 'equal)))
4400 (defun erc-channel-end-receiving-names ()
4403 Used to fix `erc-channel-users' after a channel names list has been
4407 See also `erc-channel-begin-receiving-names'."
4409 	     (if (null (gethash nick erc-channel-new-member-names))
4410 		 (erc-remove-channel-user nick)))
4411 	   erc-channel-users)
4412   (setq erc-channel-new-member-names nil))
4414 (defun erc-channel-receive-names (names-string)
4417 Update `erc-channel-users' according to NAMES-STRING.
4424       (let ((erc-channel-members-changed-hook nil))
4437 	(puthash (erc-downcase name) t
4438 		 erc-channel-new-member-names)
4439 	(erc-update-current-channel-member
4441     (run-hooks 'erc-channel-members-changed-hook)))
4443 (defcustom erc-channel-members-changed-hook nil
4446   :group 'erc-hooks
4449 (defun erc-update-user-nick (nick &optional new-nick
4454 See also: `erc-update-user'."
4455   (erc-update-user (erc-get-server-user nick) new-nick
4458 (defun erc-update-user (user &optional new-nick
4460   "Update user info for USER.  USER must be an erc-server-user
4466 `erc-channel-members-changed-hook' is run for each channel for
4471 		 (not (equal (erc-server-user-nickname user)
4474 	(erc-change-user-nickname user new-nick))
4476 		 (not (equal (erc-server-user-host user) host)))
4478 	(setf (erc-server-user-host user) host))
4480 		 (not (equal (erc-server-user-login user) login)))
4482 	(setf (erc-server-user-login user) login))
4484 		 (not (equal (erc-server-user-full-name user)
4487 	(setf (erc-server-user-full-name user) full-name))
4489 		 (not (equal (erc-server-user-info user) info)))
4491 	(setf (erc-server-user-info user) info))
4493 	  (dolist (buf (erc-server-user-buffers user))
4496 		  (run-hooks 'erc-channel-members-changed-hook))))))
4499 (defun erc-update-current-channel-member
4503 NICK.  `erc-update-user' is called to handle changes to nickname,
4516 `erc-channel-members-updated-hook' is run, and t is returned.
4518 See also: `erc-update-user' and `erc-update-channel-member'."
4520 	 (channel-data (erc-get-channel-user nick))
4523 		 (erc-get-server-user nick))))
4526 	  (erc-log (format "update-member: user = %S, cuser = %S" user cuser))
4528 		     (not (eq (erc-channel-user-op cuser) op)))
4530 	    (setf (erc-channel-user-op cuser)
4535 		     (not (eq (erc-channel-user-voice cuser) voice)))
4537 	    (setf (erc-channel-user-voice cuser)
4542 	    (setf (erc-channel-user-last-message-time cuser) (current-time)))
4544 		(erc-update-user user new-nick
4549 	      (setq user (make-erc-server-user
4556 	      (erc-add-server-user nick user))
4557 	  (setf (erc-server-user-buffers user)
4559 		      (erc-server-user-buffers user))))
4560 	(setq cuser (make-erc-channel-user
4569 	(puthash (erc-downcase nick) (cons user cuser)
4570 		 erc-channel-users)
4573       (run-hooks 'erc-channel-members-changed-hook))
4576 (defun erc-update-channel-member (channel nick new-nick
4582 See also: `erc-update-current-channel-member'."
4583   (erc-with-buffer
4585    (erc-update-current-channel-member nick new-nick add op voice host
4589 (defun erc-remove-current-channel-member (nick)
4591 Runs `erc-channel-members-changed-hook'."
4592   (let ((channel-data (erc-get-channel-user nick)))
4594       (erc-remove-channel-user nick)
4595       (run-hooks 'erc-channel-members-changed-hook))))
4597 (defun erc-remove-channel-member (channel nick)
4600 See also `erc-remove-current-channel-member'."
4601   (erc-with-buffer
4603    (erc-remove-current-channel-member nick)))
4605 (defun erc-update-channel-topic (channel topic &optional modify)
4610   (erc-with-buffer (channel)
4612 	   (setq erc-channel-topic (concat erc-channel-topic topic)))
4614 	   (setq erc-channel-topic (concat topic erc-channel-topic)))
4615 	  (t (setq erc-channel-topic topic)))
4616     (erc-update-mode-line-buffer (current-buffer))))
4618 (defun erc-set-modes (tgt mode-string)
4620   (let* ((modes (erc-parse-modes mode-string))
4625     (cond ((erc-channel-p tgt); channel modes
4626 	   (let ((buf (and erc-server-process
4627 			   (erc-get-buffer tgt erc-server-process))))
4630 		 (setq erc-channel-modes add-modes)
4631 		 (setq erc-channel-user-limit nil)
4632 		 (setq erc-channel-key nil)
4638 			    (erc-update-channel-limit tgt onoff arg))
4640 			    (erc-update-channel-key tgt onoff arg))
4643 		 (erc-update-mode-line-buffer buf)))))
4645 	  ;;(t (setq erc-user-modes add-modes))
4649 (defun erc-sort-strings (list-of-strings)
4655 (defun erc-parse-modes (mode-string)
4707 (defun erc-update-modes (tgt mode-string &optional nick host login)
4711   (let* ((modes (erc-parse-modes mode-string))
4717     (cond ((erc-channel-p tgt); channel modes
4718 	   (let ((buf (and erc-server-process
4719 			   (erc-get-buffer tgt erc-server-process))))
4725 	       (if (not (boundp 'erc-channel-modes))
4726 		   (setq erc-channel-modes nil))
4728 		 (setq erc-channel-modes (delete (car remove-modes)
4729 						 erc-channel-modes)
4732 		 (setq erc-channel-modes (cons (car add-modes)
4733 					       erc-channel-modes)
4735 	       (setq erc-channel-modes (erc-sort-strings erc-channel-modes))
4741 			  (erc-update-channel-member tgt arg arg nil onoff))
4743 			  (erc-update-channel-member tgt arg arg nil nil
4746 			  (erc-update-channel-limit tgt onoff arg))
4748 			  (erc-update-channel-key tgt onoff arg))
4751 	       (erc-update-mode-line buf))))
4755 (defun erc-update-channel-limit (channel onoff n)
4760       (erc-with-buffer
4762       (cond ((eq onoff 'on) (setq erc-channel-user-limit (string-to-number n)))
4763 	    (t (setq erc-channel-user-limit nil))))))
4765 (defun erc-update-channel-key (channel onoff key)
4767   (erc-with-buffer
4769    (cond ((eq onoff 'on) (setq erc-channel-key key))
4770 	 (t (setq erc-channel-key nil)))))
4772 (defun erc-handle-user-status-change (type nlh &optional l)
4786   (erc-log (format "user-change: type: %S  nlh: %S  l: %S" type nlh l))
4794 (defun erc-highlight-notice (s)
4796 See also variable `erc-notice-highlight-type'."
4798    ((eq erc-notice-highlight-type 'prefix)
4799     (erc-put-text-property 0 (length erc-notice-prefix)
4800 			   'face 'erc-notice-face s)
4802    ((eq erc-notice-highlight-type 'all)
4803     (erc-put-text-property 0 (length s) 'face 'erc-notice-face s)
4807 (defun erc-make-notice (message)
4809   (when erc-minibuffer-notice
4811   (erc-highlight-notice (concat erc-notice-prefix message)))
4813 (defun erc-highlight-error (s)
4815   (erc-put-text-property 0 (length s) 'face 'erc-error-face s)
4818 (defun erc-put-text-property (start end property value &optional object)
4823 the face `bold' or `erc-pal-face'.
4831 (defun erc-list (thing)
4837 (defun erc-parse-user (string)
4854 (defun erc-extract-nick (string)
4857 See also `erc-parse-user'."
4858   (car (erc-parse-user string)))
4860 (defun erc-put-text-properties (start end properties
4872 	     (erc-put-text-property start end prop value object))
4877 (defun erc-beg-of-input-line ()
4880 Specifically, return the position of `erc-insert-marker'."
4881   (or (and (boundp 'erc-insert-marker)
4882 	   (markerp erc-insert-marker))
4883       (error "erc-insert-marker has no value, please report a bug"))
4884   (marker-position erc-insert-marker))
4886 (defun erc-end-of-input-line ()
4890 (defun erc-send-current-line ()
4896      ((< (point) (erc-beg-of-input-line))
4899      ((not (erc-server-buffer-live-p))
4903       (erc-set-active-buffer (current-buffer))
4905 	    (str (erc-user-input))
4909 	(delete-region (erc-beg-of-input-line)
4910 		       (erc-end-of-input-line))
4913 	    (erc-send-input str)
4920 		(set-marker (process-mark erc-server-process) (point))
4921 		(set-marker erc-insert-marker (point))
4923 		  (erc-display-prompt)
4927 	(run-hook-with-args 'erc-send-completed-hook str))))))
4929 (defun erc-user-input ()
4932    erc-input-marker
4933    (erc-end-of-input-line)))
4935 (defvar erc-command-regexp "^/\\([A-Za-z]+\\)\\(\\s-+.*\\|\\s-*\\)$"
4938 (defun erc-send-input (input)
4945    ((if erc-send-whitespace-lines
4948     (when erc-warn-about-blank-lines
4954 	  (erc-insert-this t))
4955       (setq erc-send-this t)
4956       (run-hook-with-args 'erc-send-pre-hook input)
4957       (when erc-send-this
4959 		(not (string-match erc-command-regexp str)))
4965 		  (erc-display-msg line)
4966 		  (erc-process-input-line (concat line "\n")
4967 					  (null erc-flood-protect) t))
4968 		(or (and erc-flood-protect (erc-split-line line))
4972 	  (erc-display-command str)
4973 	  (erc-process-input-line (concat str "\n") t nil))
4976 (defun erc-display-command (line)
4977   (when erc-insert-this
4979       (unless erc-hide-prompt
4980 	(erc-display-prompt nil nil (erc-command-indicator)
4981 			    (and (erc-command-indicator)
4982 				 'erc-command-indicator-face)))
4985 	(erc-put-text-property beg (point)
4986 			       'face 'erc-command-indicator-face)
4988       (set-marker (process-mark erc-server-process) (point))
4989       (set-marker erc-insert-marker (point))
4993 	  (run-hooks 'erc-send-modify-hook)
4994 	  (run-hooks 'erc-send-post-hook))))))
4996 (defun erc-display-msg (line)
4999   (when erc-insert-this
5001       (insert (erc-format-my-nick))
5004 	(erc-put-text-property beg (point)
5005 			       'face 'erc-input-face))
5007       (set-marker (process-mark erc-server-process) (point))
5008       (set-marker erc-insert-marker (point))
5012 	  (run-hooks 'erc-send-modify-hook)
5013 	  (run-hooks 'erc-send-post-hook))))))
5015 (defun erc-command-symbol (command)
5017   (let ((cmd (intern-soft (format "erc-cmd-%s" (upcase command)))))
5020 (defun erc-extract-command-from-line (line)
5024   (when (string-match erc-command-regexp line)
5025     (let* ((cmd (erc-command-symbol (match-string 1 line)))
5029 	   (cmd-fun (or cmd #'erc-cmd-default))
5033 		      (delete "" (split-string (erc-trim-string
5038 (defun erc-split-multiline-safe (string)
5057 (defun erc-set-current-nick (nick)
5059   (with-current-buffer (if (buffer-live-p (erc-server-buffer))
5060 			   (erc-server-buffer)
5062     (setq erc-server-current-nick nick)))
5064 (defun erc-current-nick ()
5066   (with-current-buffer (if (buffer-live-p (erc-server-buffer))
5067 			   (erc-server-buffer)
5069     erc-server-current-nick))
5071 (defun erc-current-nick-p (nick)
5073   (erc-nick-equal-p nick (erc-current-nick)))
5075 (defun erc-nick-equal-p (nick1 nick2)
5080 See also `erc-downcase'."
5081   (string= (erc-downcase nick1)
5082 	   (erc-downcase nick2)))
5086 (defun erc-default-target ()
5088   (let ((tgt (car erc-default-recipients)))
5094 (defun erc-add-default-channel (channel)
5097   (let ((d1 (car erc-default-recipients))
5098 	(d2 (cdr erc-default-recipients))
5100       (setq erc-default-recipients
5101 	    (cons chl erc-default-recipients))))
5103 (defun erc-delete-default-channel (channel &optional buffer)
5110       (setq erc-default-recipients (delete (downcase channel)
5111 					   erc-default-recipients)))))
5113 (defun erc-add-query (nickname)
5117   (let ((d1 (car erc-default-recipients))
5118 	(d2 (cdr erc-default-recipients))
5122 	(setq erc-default-recipients (cons qt d2))
5123       (setq erc-default-recipients (cons qt erc-default-recipients)))))
5125 (defun erc-delete-query ()
5128   (let ((d1 (car erc-default-recipients))
5129 	(d2 (cdr erc-default-recipients)))
5132 	(setq erc-default-recipients d2)
5135 (defun erc-ignored-user-p (spec)
5136   "Return non-nil if SPEC matches something in `erc-ignore-list'.
5139 matches against all the regexp's in `erc-ignore-list'.  If any
5142     (dolist (ignored (erc-with-server-buffer erc-ignore-list))
5146 (defun erc-ignored-reply-p (msg tgt proc)
5148   "Return non-nil if MSG matches something in `erc-ignore-reply-list'.
5151 user matches any regexp in `erc-ignore-reply-list'."
5152   (let ((target-nick (erc-message-target msg)))
5155       (erc-with-buffer (tgt proc)
5156 	(let ((user (erc-get-server-user target-nick)))
5158 	    (erc-list-match erc-ignore-reply-list
5159 			    (erc-user-spec user))))))))
5161 (defun erc-message-target (msg)
5169 (defun erc-user-spec (user)
5171   (let ((nick (erc-server-user-nickname user))
5172 	(host (erc-server-user-host user))
5173 	(login (erc-server-user-login user)))
5186 (defun erc-list-match (lst str)
5194 (defun erc-toggle-ctcp-autoresponse (&optional arg)
5202 	 (setq erc-disable-ctcp-replies t))
5203 	(arg (setq erc-disable-ctcp-replies nil))
5204 	(t (setq erc-disable-ctcp-replies (not erc-disable-ctcp-replies))))
5205   (message "ERC CTCP replies are %s" (if erc-disable-ctcp-replies "OFF" "ON")))
5207 (defun erc-toggle-flood-control (&optional arg)
5213 See `erc-server-flood-margin' for an explanation of the available
5217 	 (setq erc-flood-protect t))
5218 	(arg (setq erc-flood-protect nil))
5219 	(t (setq erc-flood-protect (not erc-flood-protect))))
5221 	   (cond (erc-flood-protect "ON")
5226 (defun erc-invite-only-mode (&optional arg)
5233   (erc-set-active-buffer (current-buffer))
5234   (let ((tgt (erc-default-target))
5235 	(erc-force-send t))
5236     (cond ((or (not tgt) (not (erc-channel-p tgt)))
5237 	   (erc-display-message nil 'error (current-buffer) 'no-target))
5238 	  (arg (erc-load-irc-script-lines (list (concat "/mode " tgt " -i"))
5240 	  (t (erc-load-irc-script-lines (list (concat "/mode " tgt " +i"))
5243 (defun erc-get-channel-mode-from-keypress (key)
5249 If \"l\" is pressed, `erc-set-channel-limit' gets called.
5250 If \"k\" is pressed, `erc-set-channel-key' gets called.
5251 Anything else will be sent to `erc-toggle-channel-mode'."
5258 	 (erc-insert-mode-command))
5260 	 (call-interactively 'erc-set-channel-limit))
5262 	 (call-interactively 'erc-set-channel-key))
5263 	(t (erc-toggle-channel-mode key))))
5265 (defun erc-toggle-channel-mode (mode &optional channel)
5269 `erc-default-target'."
5271   (erc-set-active-buffer (current-buffer))
5272   (let ((tgt (or channel (erc-default-target)))
5273 	(erc-force-send t))
5274     (cond ((or (null tgt) (null (erc-channel-p tgt)))
5275 	   (erc-display-message nil 'error 'active 'no-target))
5276 	  ((member mode erc-channel-modes)
5277 	   (erc-log (format "%s: Toggle mode %s OFF" tgt mode))
5279 	   (erc-server-send (format "MODE %s -%s" tgt mode)))
5280 	  (t (erc-log (format "%s: Toggle channel mode %s ON" tgt mode))
5282 	     (erc-server-send (format "MODE %s +%s" tgt mode))))))
5284 (defun erc-insert-mode-command ()
5287   (let ((tgt (erc-default-target)))
5289       (erc-display-message nil 'error (current-buffer) 'no-target))))
5291 (defun erc-channel-names ()
5294   (erc-set-active-buffer (current-buffer))
5295   (let ((tgt (erc-default-target)))
5296     (if tgt (erc-load-irc-script-lines (list (concat "/names " tgt)))
5297       (erc-display-message nil 'error (current-buffer) 'no-target))))
5299 (defun erc-remove-text-properties-region (start end &optional object)
5308 (defun erc-find-file (file &optional path)
5323 (defun erc-select-startup-file ()
5325 See also `erc-startup-file-list'."
5327     (dolist (f erc-startup-file-list)
5332 (defun erc-find-script-file (file)
5333   "Search for FILE in `default-directory', and any in `erc-script-path'."
5334   (erc-find-file file erc-script-path))
5336 (defun erc-load-script (file)
5340 `erc-script-path'.  If the filename ends with `.el', then load it
5343   (erc-log (concat "erc-load-script: " file))
5348     (erc-load-irc-script file))))
5350 (defun erc-process-script-line (line &optional args)
5365 	 (tgt (erc-default-target))
5366 	 (server (and (boundp 'erc-session-server) erc-session-server))
5367 	 (nick (erc-current-nick))
5409 		    (t (erc-log (format "BUG in erc-process-script-line: bad escape sequence: %S\n" esc))
5420 (defun erc-load-irc-script (file &optional force)
5422   (erc-log (concat "erc-load-script: " file))
5426     (erc-load-irc-script-lines (erc-split-multiline-safe str) force)))
5428 (defun erc-load-irc-script-lines (lines &optional force noexpand)
5437 	 (sp (or (erc-command-indicator) (erc-prompt)))
5438 	 (args (and (boundp 'erc-script-args) erc-script-args)))
5442     (erc-put-text-property 0 (length sp)
5443 			   'face 'erc-command-indicator-face sp)
5446       (erc-log (concat "erc-load-script: CMD: " s))
5448 	(let ((line (if noexpand s (erc-process-script-line s args))))
5449 	  (if (and (erc-process-input-line line force)
5450 		   erc-script-echo)
5452 		(erc-put-text-property 0 (length line)
5453 				       'face 'erc-input-face line)
5454 		(erc-display-line (concat sp line) cb)))))
5459 (defun erc-login ()
5461   (erc-log (format "login: nick: %s, user: %s %s %s :%s"
5462 		   (erc-current-nick)
5464 		   (or erc-system-name (system-name))
5465 		   erc-session-server
5466 		   erc-session-user-full-name))
5467   (if erc-session-password
5468       (erc-server-send (format "PASS %s" erc-session-password))
5470   (erc-server-send (format "NICK %s" (erc-current-nick)))
5471   (erc-server-send
5474 	   (if erc-anonymous-login erc-email-userid (user-login-name))
5476 	   erc-session-user-full-name))
5477   (erc-update-mode-line))
5481 (defun erc-determine-parameters (&optional server port nick name)
5485 - `erc-session-server'
5486 - `erc-session-port'
5487 - `erc-session-full-name'
5488 - `erc-server-current-nick'"
5489   (setq erc-session-server (erc-compute-server server)
5490 	erc-session-port (or port erc-default-port)
5491 	erc-session-user-full-name (erc-compute-full-name name))
5492   (erc-set-current-nick (erc-compute-nick nick)))
5494 (defun erc-compute-server (&optional server)
5501 - The `erc-server' option
5503 - The `erc-default-server' variable"
5505       erc-server
5507       erc-default-server))
5509 (defun erc-compute-nick (&optional nick)
5516 - The `erc-nick' option
5520       (if (consp erc-nick) (car erc-nick) erc-nick)
5525 (defun erc-compute-full-name (&optional full-name)
5532 - The `erc-user-full-name' option
5536       erc-user-full-name
5538       (if erc-anonymous-login "unknown" nil)
5541 (defun erc-compute-port (&optional port)
5548 - The `erc-port' option
5549 - The `erc-default-port' variable"
5550   (or port erc-port erc-default-port))
5554 (defun erc-string-to-emacs-time (string)
5561 (defun erc-emacs-time-to-erc-time (time)
5567 (defun erc-current-time ()
5570 See also `erc-emacs-time-to-erc-time'."
5571   (erc-emacs-time-to-erc-time (current-time)))
5573 (defun erc-time-diff (t1 t2)
5577 (defun erc-time-gt (t1 t2)
5581 (defun erc-sec-to-time (ns)
5589 (defun erc-seconds-to-string (seconds)
5610       (setq output (erc-replace-match-subexpression-in-string
5617 (defconst erc-clientinfo-alist
5628 (defun erc-client-info (s)
5636 		      erc-clientinfo-alist))
5638     (let ((h (assoc (upcase s) erc-clientinfo-alist)))
5645 (defun erc-directory-writable-p (dir)
5651 (defun erc-kill-query-buffers (process)
5655   (erc-with-all-buffers-of-server process
5657 				    (not (erc-server-buffer-p)))
5660 (defun erc-nick-at-point ()
5669 	 (channel-data (erc-get-channel-user word))
5673 		 (erc-get-server-user word)))
5676       (setq nick (erc-server-user-nickname user)
5677 	    host (erc-server-user-host user)
5678 	    login (erc-server-user-login user)
5679 	    full-name (erc-server-user-full-name user)
5680 	    info (erc-server-user-info user))
5682 	  (setq op (erc-channel-user-op cuser)
5683 		voice (erc-channel-user-voice cuser)))
5692 				       (erc-default-target))
5696 (defun erc-away-time ()
5701   (erc-with-server-buffer erc-away))
5705 (defcustom erc-mode-line-format "%s %a"
5706   "A string to be formatted and shown in the mode-line in `erc-mode'.
5720     `erc-server-announced-name', in a channel, the value of
5721     (erc-default-target) also get concatenated."
5722   :group 'erc-mode-line-and-header
5725 (defcustom erc-header-line-format "%n on %t (%m,%l) %o"
5726   "A string to be formatted and shown in the header-line in `erc-mode'.
5732 See `erc-mode-line-format' for which characters are can be used."
5733   :group 'erc-mode-line-and-header
5736 	 (when (fboundp 'erc-update-mode-line)
5737 	   (erc-update-mode-line nil)))
5741 (defcustom erc-header-line-uses-help-echo-p t
5744   :group 'erc-mode-line-and-header
5747 (defcustom erc-header-line-face-method nil
5752 Otherwise, use the `erc-header-line' face."
5753   :group 'erc-mode-line-and-header
5755 		 (const :tag "Use the erc-header-line face" t)
5758 (defcustom erc-show-channel-key-p t
5760   :group 'erc-paranoia
5763 (defcustom erc-common-server-suffixes
5771   :group 'erc-mode-line-and-header
5774 (defcustom erc-mode-line-away-status-format
5779   :group 'erc-mode-line-and-header
5782 (defun erc-shorten-server-name (server-name)
5783   "Shorten SERVER-NAME according to `erc-common-server-suffixes'."
5787 	(let ((alist erc-common-server-suffixes))
5795 (defun erc-format-target ()
5797   (let ((target (erc-default-target)))
5799 	(concat (erc-shorten-server-name
5800 		 (or erc-server-announced-name
5801 		     erc-session-server))
5802 		":" (erc-port-to-string erc-session-port)))))
5804 (defun erc-format-target-and/or-server ()
5806   (let ((server-name (erc-shorten-server-name
5807 		      (or erc-server-announced-name
5808 			  erc-session-server))))
5809     (cond ((erc-default-target)
5810 	   (concat (erc-string-no-properties (erc-default-target))
5815 (defun erc-format-away-status ()
5816   "Return a formatted `erc-mode-line-away-status-format'
5817 if `erc-away' is non-nil."
5818   (let ((a (erc-away-time)))
5820 	(format-time-string erc-mode-line-away-status-format a)
5823 (defun erc-format-channel-modes ()
5826 		 "+" erc-channel-modes)
5827 	  (cond ((and erc-channel-user-limit erc-channel-key)
5828 		 (if erc-show-channel-key-p
5829 		     (format "lk %.0f %s" erc-channel-user-limit
5830 			     erc-channel-key)
5831 		   (format "kl %.0f" erc-channel-user-limit)))
5832 		(erc-channel-user-limit
5834 		 (format "l %.0f" erc-channel-user-limit))
5835 		(erc-channel-key
5836 		 (if erc-show-channel-key-p
5837 		     (format "k %s" erc-channel-key)
5841 (defun erc-format-lag-time ()
5842   "Return the estimated lag time to server, `erc-server-lag'."
5843   (let ((lag (erc-with-server-buffer erc-server-lag)))
5847 (defun erc-update-mode-line-buffer (buffer)
5851 		 ?a (erc-format-away-status)
5852 		 ?l (erc-format-lag-time)
5853 		 ?m (erc-format-channel-modes)
5854 		 ?n (or (erc-current-nick) "")
5855 		 ?o (erc-controls-strip erc-channel-topic)
5856 		 ?p (erc-port-to-string erc-session-port)
5857 		 ?s (erc-format-target-and/or-server)
5858 		 ?t (erc-format-target)))
5859 	  (process-status (cond ((and (erc-server-process-alive)
5860 				      (not erc-server-connected))
5862 				((erc-server-process-alive)
5866 	  (face (cond ((eq erc-header-line-face-method nil)
5868 		      ((functionp erc-header-line-face-method)
5869 		       (funcall erc-header-line-face-method))
5871 		       'erc-header-line))))
5874 		   (list (format-spec erc-mode-line-format spec)))
5878 		   (list (format-spec erc-mode-line-format spec)))
5881 	(let ((header (if erc-header-line-format
5882 			  (format-spec erc-header-line-format spec)
5886 		(erc-header-line-uses-help-echo-p
5892 			 (erc-replace-regexp-in-string
5896 			      (erc-propertize header 'help-echo help-echo
5898 			    (erc-propertize header 'help-echo help-echo))))))
5901 			     (erc-propertize header 'face face)
5907 (defun erc-update-mode-line (&optional buffer)
5912       (erc-update-mode-line-buffer buffer)
5913     (dolist (buf (erc-buffer-list))
5915 	(erc-update-mode-line-buffer buf)))))
5919 (defun erc-port-to-string (p)
5926 (defun erc-string-to-port (s)
5935 (defun erc-version (&optional here)
5940 	 (format "ERC %s (GNU Emacs %s)" erc-version-string emacs-version)))
5947 (defun erc-modes (&optional here)
5954 		      (dolist (var (apropos-internal "^erc-.*mode$"))
5967 (defun erc-trim-string (s)
5978 (defun erc-arrange-session-in-multiple-windows ()
5979   "Open a window for every non-server buffer related to `erc-session-server'.
5983   (unless erc-server-process
5984     (error "No erc-server-process found in current buffer"))
5985   (let ((bufs (erc-buffer-list nil erc-server-process)))
5997 (defun erc-popup-input-buffer ()
6015 (defun erc-make-message-variable-name (catalog entry)
6017   (intern (concat "erc-message-"
6020 (defun erc-define-catalog-entry (catalog entry format-spec)
6022   (set (erc-make-message-variable-name catalog entry)
6025 (defun erc-define-catalog (catalog entries)
6028     (erc-define-catalog-entry catalog (car entry) (cdr entry))))
6030 (erc-define-catalog
6082    (PART   . erc-message-english-PART)
6150 (defun erc-message-english-PART (&rest args)
6160     (if (string= nick (erc-current-nick))
6166 			  (erc-replace-regexp-in-string "%" "%%" reason))
6170 (defvar erc-current-message-catalog 'english)
6171 (make-variable-buffer-local 'erc-current-message-catalog)
6173 (defun erc-retrieve-catalog-entry (entry &optional catalog)
6176 If CATALOG is nil, `erc-current-message-catalog' is used.
6180   (unless catalog (setq catalog erc-current-message-catalog))
6181   (let ((var (erc-make-message-variable-name catalog entry)))
6184       (when (boundp (erc-make-message-variable-name 'english entry))
6185 	(symbol-value (erc-make-message-variable-name 'english entry))))))
6187 (defun erc-format-message (msg &rest args)
6193   (let ((entry (erc-retrieve-catalog-entry msg)))
6202 (add-hook 'kill-buffer-hook 'erc-kill-buffer-function)
6204 (defcustom erc-kill-server-hook '(erc-kill-server)
6206   :group 'erc-hooks
6209 (defcustom erc-kill-channel-hook '(erc-kill-channel)
6211   :group 'erc-hooks
6214 (defcustom erc-kill-buffer-hook nil
6218   :group 'erc-hooks
6221 (defun erc-kill-buffer-function ()
6224 When the current buffer is in `erc-mode', this function will run
6226 `erc-kill-server-hook' if the server buffer was killed,
6227 `erc-kill-channel-hook' if a channel buffer was killed,
6228 or `erc-kill-buffer-hook' if any other buffer."
6229   (when (eq major-mode 'erc-mode)
6230     (erc-remove-channel-users)
6232      ((eq (erc-server-buffer) (current-buffer))
6233       (run-hooks 'erc-kill-server-hook))
6234      ((erc-channel-p (erc-default-target))
6235       (run-hooks 'erc-kill-channel-hook))
6237       (run-hooks 'erc-kill-buffer-hook)))))
6239 (defun erc-kill-server ()
6241 This function should be on `erc-kill-server-hook'."
6242   (when (erc-server-process-alive)
6243     (setq erc-server-quitting t)
6244     (erc-server-send (format "QUIT :%s" (funcall erc-quit-reason nil)))))
6246 (defun erc-kill-channel ()
6248 This function should be on `erc-kill-channel-hook'."
6249   (when (erc-server-process-alive)
6250     (let ((tgt (erc-default-target)))
6251       (erc-server-send (format "PART %s :%s" tgt
6252 			       (funcall erc-part-reason nil))
6255 ;;; Dealing with `erc-parsed'
6257 (defun erc-find-parsed-property ()
6258   "Find the next occurrence of the `erc-parsed' text property."
6259   (text-property-not-all (point-min) (point-max) 'erc-parsed nil))
6261 (defun erc-restore-text-properties ()
6262   "Restore the property 'erc-parsed for the region."
6263   (let ((parsed-posn (erc-find-parsed-property)))
6266      'erc-parsed (when parsed-posn (erc-get-parsed-vector parsed-posn)))))
6268 (defun erc-get-parsed-vector (point)
6270   (get-text-property point 'erc-parsed))
6272 (defun erc-get-parsed-vector-nick (vect)
6274   (let* ((untreated-nick (and vect (erc-response.sender vect)))
6278 	       (erc-is-valid-nick-p maybe-nick))
6281 (defun erc-get-parsed-vector-type (vect)
6284        (erc-response.command vect)))
6287 ;; To activate, customize `url-irc-function' to `url-irc-erc'.
6290 (defun erc-handle-irc-url (host port channel user password)
6295 	 (car (erc-buffer-filter
6297 		 (and (string-equal erc-session-server host)
6298 		      (= erc-session-port port)
6299 		      (erc-open-server-buffer-p)))))))
6302 	  (erc-cmd-JOIN channel)
6303 	(erc-open host port (or user (erc-compute-nick)) (erc-compute-full-name)
6308 (provide 'erc)
6311 ;;; IMPORTANT: This require must appear _after_ the above (provide 'erc) to
6313 (require 'erc-goodies)
6315 ;;; erc.el ends here