Lines Matching defs:message
136 (message (concat "ERC: The function `defvaralias' is not bound. See the "
242 "If non-nil, display one's own nickname when sending a message.
249 (define-widget 'erc-message-type 'set
263 :type 'erc-message-type)
302 "Hook run when processing a PART message directed at our nick.
311 "Hook run when processing a KICK message directed at our nick.
381 ;; Last message time (in the form of the return value of
385 (last-message-time nil))
570 (let ((tx (erc-channel-user-last-message-time (cdr x)))
571 (ty (erc-channel-user-last-message-time (cdr y))))
680 to display, the parsed server message, the target buffer (or
711 to display, the parsed server message, the target buffer (or
804 identifier matches, the message from the person will not be
818 If an identifier matches, or a message is addressed to a nick
819 whose identifier matches, the message will not be processed.
892 a function, it should return the quit message as a string.
904 will be used as the quit message."
916 a function, it should return the part message as a string.
928 will be used as the part message."
1069 "Hook called after a message has been parsed by ERC.
1381 (message "%s is %sonline"
1408 (message "ERC: ** %s" string))))
1808 (message "Disabling `erc-%s'" module)
2008 (message "erc: old buffer %s, switching to %s"
2084 (erc-format-message 'nick-in-use ?n nick)
2109 (erc-format-message 'nick-in-use ?n nick)
2162 ;; doesn't give any CONNECTIONESTABLISHED kind of message, and
2251 (message "IRC protocol traffic logging %s (see buffer *erc-protocol*)."
2260 (erc-send-ctcp-message tgt (format "ACTION %s" str) force)
2261 (erc-display-message
2384 (defun erc-display-message-highlight (type string)
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))))
2428 (defun erc-message-type-member (position list)
2474 start with /<COMMAND>) then it is sent as a message.
2489 (erc-display-message nil 'error (current-buffer) 'incorrect-args
2499 (erc-display-message nil 'error (current-buffer) 'no-target)
2513 (erc-send-message line)))
2517 "Send LINE to the current query or channel as a message, not a command.
2519 Use this when you want to send a message with a leading '/'. Note
2538 (erc-display-message
2545 (erc-display-message
2548 (erc-display-message nil 'error 'active 'variable-not-bound)
2642 (erc-display-message
2646 (erc-display-message nil 'notice (current-buffer) 'ops-none)))
2654 (erc-display-message
2656 (erc-display-message
2682 "Send a Client To Client Protocol message to NICK.
2690 (erc-send-ctcp-message nick str)
2735 (message "Type C-h m to get additional information about keybindings.")
2748 (erc-display-message nil 'error (current-buffer) 'no-invitation))
2789 (erc-display-message nil 'error (current-buffer) 'no-default-channel)))
2816 (erc-display-message nil 'error (current-buffer)
2838 (erc-display-message nil 'error (current-buffer)
2841 (erc-display-message nil 'error (current-buffer)
2844 (message "Loading \'%s\'..." file)
2846 (message "Loading \'%s\'...done" file))))
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)
3006 (defun erc-cmd-NOTICE (channel-or-user &rest message)
3008 The rest is the message to send."
3009 (erc-message "NOTICE" (concat channel-or-user " "
3010 (mapconcat #'identity message " "))))
3013 "Send a message to the channel or user given as the first word in LINE.
3015 The rest of LINE is the message to send."
3016 (erc-message "PRIVMSG" line))
3024 The rest of LINE is the message to send."
3025 (erc-message "SQUERY" line))
3033 (erc-display-message
3068 (erc-display-message nil 'error (current-buffer) 'no-target)))
3107 "Normal quit message.
3116 "Zippy quit message.
3134 "Normal part message.
3143 "Zippy part message.
3162 If REASON is omitted, display a default quit message, otherwise display
3163 the message given by REASON."
3228 (message "Cannot find host %s." server)
3238 (erc-send-message (format "I'm using ERC %s with %s %s (%s%s) of %s."
3266 (erc-send-message (format "I'm using the following modules: %s!"
3335 (erc-display-message nil 'error (current-buffer) 'no-target)))
3515 (message "erc-grab-region doesn't grab colors etc. anymore. If you use this, please tell the maintainers.")
3569 (defun erc-input-message ()
3708 Displays PROC and PARSED appropriately using `erc-display-message'."
3709 (erc-display-message
3728 "Add PARSED server message ERC does not yet handle to `erc-server-vectors'.
3729 These vectors can be helpful when adding new server message handlers to ERC.
3757 "If non-nil, create a query buffer each time you receive a private message.
3781 otherwise format like a private message."
3792 "If non-nil, print a message in the minibuffer if we ignored something."
3865 (defun erc-display-server-message (proc parsed)
3866 "Display the message sent by the server as a notice."
3867 (erc-display-message
3887 (not (erc-is-message-ctcp-and-not-action-p msg))
3892 (defun erc-is-message-ctcp-p (message)
3893 "Check if MESSAGE is a CTCP message or not."
3894 (string-match "^\C-a\\([^\C-a]*\\)\C-a?$" message))
3896 (defun erc-is-message-ctcp-and-not-action-p (message)
3897 "Check if MESSAGE is a CTCP message or not."
3898 (and (erc-is-message-ctcp-p message)
3899 (not (string-match "^\C-a\\ACTION.*\C-a$" message))))
3917 "*Function to format a nickname for message display."
3937 "Return the beginning of this user's message, correctly propertized."
3955 (erc-display-message parsed nil buffer s)
3964 (progn (erc-display-message parsed nil buffer s) t)
3971 (message "%s" (concat "NOTICE: " s))
3978 (erc-display-message parsed nil nil s)
3988 (progn (erc-display-message parsed nil 'active s) t)
3995 (erc-display-message parsed nil 'active s)
4009 (progn (erc-display-message parsed nil buffers s) t)
4025 (progn (erc-display-message parsed nil buffers s) t)
4039 (progn (erc-display-message parsed nil (car buffers) s) t)
4048 ;; Determine to which buffer the message corresponds
4062 t) ; suppress the 'end of banlist' message
4110 (message "Logging in as \'%s\'... done" (erc-current-nick))
4147 See also `erc-display-message'."
4148 (erc-display-message
4157 (erc-display-message
4160 (erc-display-message
4175 (erc-display-message
4178 (erc-display-message
4186 (erc-display-message
4200 (erc-display-message
4281 (erc-display-message
4289 (let ((message (match-string 1 msg)))
4290 (erc-display-message
4292 'CTCP-ECHO ?n nick ?m message)))
4299 (let ((message (match-string 1 msg)))
4300 (erc-display-message
4302 'CTCP-CLIENTINFO ?n nick ?m message)))
4309 (let ((message (match-string 1 msg)))
4310 (erc-display-message
4312 'CTCP-FINGER ?n nick ?m message)))
4324 (erc-display-message
4329 (erc-display-message
4337 (let ((message (match-string 1 msg)))
4338 (erc-display-message
4340 'CTCP-TIME ?n nick ?m message)))
4347 (let ((message (match-string 1 msg)))
4348 (erc-display-message
4350 'CTCP-VERSION ?n nick ?m message)))
4501 update-message-time)
4508 last-message-time of the user in the current channel is set
4541 (when update-message-time
4542 (setf (erc-channel-user-last-message-time cuser) (current-time)))
4567 :last-message-time
4568 (if update-message-time (current-time))))
4578 full-name info update-message-time)
4587 update-message-time)))
4795 "Highlight notice message S and return it.
4807 (defun erc-make-notice (message)
4810 (message "%s" message))
4811 (erc-highlight-notice (concat erc-notice-prefix message)))
4814 "Highlight error message S and return it."
4897 (message "Point is not in the input area")
4900 (message "ERC: No process running")
4949 (message "Blank line - ignoring...")
4997 "Display LINE as a message of the user to the current target at the
5150 Takes a message MSG to a channel and returns non-nil if the addressed
5152 (let ((target-nick (erc-message-target msg)))
5161 (defun erc-message-target (msg)
5205 (message "ERC CTCP replies are %s" (if erc-disable-ctcp-replies "OFF" "ON")))
5220 (message "ERC flood control is %s"
5237 (erc-display-message nil 'error (current-buffer) 'no-target))
5275 (erc-display-message nil 'error 'active 'no-target))
5278 (message "Toggle channel mode %s OFF" mode)
5281 (message "Toggle channel mode %s ON" mode)
5289 (erc-display-message nil 'error (current-buffer) 'no-target))))
5297 (erc-display-message nil 'error (current-buffer) 'no-target))))
5385 ;;(message "beginning of while: tmp=%S" tmp)
5396 ;;(message "hd=%S, esc=%S, tail=%S, arg-num=%S" hd esc tail arg-num)
5403 (message "n = %S, integerp(n)=%S" n (integerp n))
5410 (message "BUG IN ERC: esc=%S" esc)
5415 ;;(message "end of while: line=%S, res=%S, tmp=%S" line res tmp)
5469 (message "Logging in without password"))
5663 If called interactively, give a human readable message in the
5685 (message "%s is %s@%s%s%s"
5944 (message "%s" version-string)
5964 (message "%s" string)
6015 (defun erc-make-message-variable-name (catalog entry)
6017 (intern (concat "erc-message-"
6022 (set (erc-make-message-variable-name catalog entry)
6043 (ctcp-too-many . "Too many CTCP queries in single message. Ignoring")
6069 (CTCP-UNKNOWN . "Unknown CTCP message from %n (%u@%h): %m")
6082 (PART . erc-message-english-PART)
6150 (defun erc-message-english-PART (&rest args)
6151 "Format a proper PART message.
6170 (defvar erc-current-message-catalog 'english)
6171 (make-variable-buffer-local 'erc-current-message-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)
6195 (error "No format spec for message %s" msg))
6282 "Return message type in the parsed vector VECT."