Lines Matching defs:message
35 ;; message filling, nick completion, and keepalive pings are all
207 "List of keywords to highlight in message text."
350 (message "Connected to %s"
361 (defvar rcirc-last-server-message-time nil)
372 (message "Connecting to %s..." server)
408 (make-local-variable 'rcirc-last-server-message-time)
409 (setq rcirc-last-server-message-time (current-time))
428 (message "Connecting to %s...done" server)
445 Kill processes that have not received a server message since the
508 (defvar rcirc-receive-message-hooks nil
509 "Hook functions run when a message is received from server.
516 (setq rcirc-last-server-message-time (current-time))
535 (message "delete process %S" process)
563 (run-hook-with-args 'rcirc-receive-message-hooks
565 (message "UNHANDLED: %s" text)))
612 (defvar rcirc-max-message-length 420
615 (defun rcirc-send-message (process target message &optional noticep)
618 ;; max message length is 512 including CRLF
620 (oversize (> (length message) rcirc-max-message-length))
622 (substring message 0 rcirc-max-message-length)
623 message))
628 (substring message rcirc-max-message-length))))
632 (when more (rcirc-send-message process target more noticep))))
953 (rcirc-process-message line)))
955 (defun rcirc-process-message (line)
957 (message "Not joined (no target)")
959 (rcirc-send-message (rcirc-buffer-process) rcirc-target line)
964 ;; "//text" will send "/text" as a message
965 (rcirc-process-message (substring line 1))
999 (message "Type C-c C-c to return text to %s, or C-c C-k to cancel" parent))))
1021 (setq fill-column rcirc-max-message-length))
1070 %m The message text
1140 ;; %m -- message text
1181 ;; message from another user
1450 (message (if rcirc-ignore-buffer-activity-flag
1460 (message (if rcirc-low-priority-flag
1503 (message "No IRC activity. Start something.")
1504 (message "No more IRC activity. Go back to work.")
1507 (message (concat
1696 (defun-rcirc-command msg (message)
1699 (if (null message)
1705 (setq message (read-string (format "Message %s: " target)))
1706 (when (> (length message) 0)
1707 (rcirc-send-message process target message))))
1708 (if (not (string-match "\\([^ ]+\\) \\(.+\\)" message))
1709 (message "Not enough args, or something.")
1710 (setq target (match-string 1 message)
1711 message (match-string 2 message))
1712 (rcirc-send-message process target message))))
1740 "Send a quit message to server with REASON."
1799 (defun-rcirc-command quote (message)
1801 (interactive "sServer message: ")
1802 (rcirc-send-string process message))
1997 'rcirc-nick-in-message)
1999 (rcirc-add-face (point-min) (point-max) 'rcirc-nick-in-message-full-line)
2057 (message (or (cadr args) "")))
2058 (if (string-match "^\C-a\\(.*\\)\C-a$" message)
2059 (rcirc-handler-CTCP process target sender (match-string 1 message))
2060 (rcirc-print process sender "PRIVMSG" target message t))
2067 (message (cadr args)))
2068 (if (string-match "^\C-a\\(.*\\)\C-a$" message)
2070 (match-string 1 message))
2075 ((string-match "\\[\\(#[^\] ]+\\)\\]" message)
2076 (match-string 1 message))
2081 message t))))
2117 (message (concat channel " " reason)))
2118 (rcirc-print process sender "PART" channel message)
2121 (rcirc-print process sender "PART" sender message))
2129 (message (concat nick " " channel " " reason)))
2130 (rcirc-print process sender "KICK" channel message t)
2133 (rcirc-print process sender "KICK" nick message))
2158 ;; print message to nick's channels
2198 (away-message (caddr args)))
2200 (not (string= (cdr rec) away-message)))
2201 ;; away message has changed
2204 (setcdr rec away-message)
2205 (setq rcirc-nick-away-alist (cons (cons nick away-message)
2307 (message "No %S authentication method defined"
2344 (defun rcirc-handler-CTCP-response (process target sender message)
2345 (rcirc-print process sender "CTCP" nil message t))
2433 (defface rcirc-nick-in-message ; font-lock-keyword-face
2445 (defface rcirc-nick-in-message-full-line
2447 "The face used emphasize the entire message when your nick is mentioned."