Lines Matching +defs:last +defs:message
80 ;; `erc-display-message'.
163 KICKLEN=160 - maximum allowed kick message length
217 (defvar erc-server-last-peers '(nil . nil)
220 (make-variable-buffer-local 'erc-server-last-peers)
222 (defvar erc-server-last-sent-time nil
223 "Time the message was sent.
225 (make-variable-buffer-local 'erc-server-last-sent-time)
227 (defvar erc-server-last-ping-time nil
228 "Time the last ping was sent.
230 (make-variable-buffer-local 'erc-server-last-ping-time)
232 (defvar erc-server-last-received-time nil
233 "Time the last message was received from the server.
235 (make-variable-buffer-local 'erc-server-last-received-time)
253 "Non-nil when we're currently processing a message.
255 When ERC receives a private message, it sets up a new buffer for
261 might take long enough for the second message to be processed
265 (defvar erc-server-flood-last-message 0
266 "When we sent the last message.
269 (make-variable-buffer-local 'erc-server-flood-last-message)
312 "*The maximum length of a single message.
313 If a message exceeds this size, it is broken into multiple ones.
316 And a typical message looks like this:
372 Each string is a IRC message type, like PRIVMSG or NOTICE.
395 * If `erc-server-flood-last-message' is less than the current
397 * While `erc-server-flood-last-message' is less than
399 time, send a message, and increase
400 `erc-server-flood-last-message' by
401 `erc-server-flood-penalty' for each message."
406 "How much we penalize a message.
472 erc-server-last-received-time)
510 (let ((msg (erc-format-message 'connect ?S server ?p port)))
511 (message "%s" msg)
515 (message "%s...done" msg)
525 (setq erc-server-last-sent-time time)
526 (setq erc-server-last-ping-time time)
527 (setq erc-server-last-received-time time))
529 ;; last peers (sender and receiver)
530 (setq erc-server-last-peers '(nil . nil)))
539 (message (erc-format-message
547 (erc-display-message nil nil buffer "Opening connection..\n")
560 (setq erc-server-last-sent-time 0)
568 (setq erc-server-last-received-time (erc-current-time))
596 EVENT is the message received from the closed connection process."
619 (erc-display-message nil 'error (current-buffer) 'finished)
627 (erc-display-message nil 'error (current-buffer)
643 (erc-display-message nil 'error (current-buffer)
729 (setq erc-server-last-sent-time (erc-current-time))
738 (setq erc-server-flood-last-message
740 erc-server-flood-last-message))
757 (message "ERC: No process running")
770 (when (< erc-server-flood-last-message
772 (setq erc-server-flood-last-message now))
774 (< erc-server-flood-last-message
779 erc-server-flood-last-message
780 (+ erc-server-flood-last-message
802 (defun erc-message (message-command line &optional force)
805 If the target is \",\", the last person you've got a message from will
806 be used. If the target is \".\", the last person you've sent a message
812 (erc-log (format "cmd: MSG(%s): [%s] %s" message-command tgt s))
815 (if (car erc-server-last-peers)
816 (setq tgt (car erc-server-last-peers))
819 (if (cdr erc-server-last-peers)
820 (setq tgt (cdr erc-server-last-peers))
824 (setcdr erc-server-last-peers tgt)
825 (erc-server-send (format "%s %s :%s" message-command tgt s)
828 (erc-display-message nil 'error (current-buffer) 'no-target))))
834 (defun erc-send-ctcp-message (tgt l &optional force)
835 "Send CTCP message L to TGT.
837 If TGT is nil the message is not sent.
844 (erc-log (format "erc-send-CTCP-message: [%s] %s" tgt l))
851 If TGT is nil the message is not sent.
967 (defun erc-call-hooks (process message)
971 (let ((hook (or (erc-get-hook (erc-response.command message))
973 (run-hook-with-args-until-success hook process message)
980 "Display unknown server response's message."
987 (erc-display-message parsed 'notice proc line)))
1132 (erc-display-message
1145 (erc-display-message
1178 (erc-format-message 'JOIN-you ?c chnl)))
1182 (erc-format-message
1188 (erc-display-message parsed nil buffer str))))))
1201 (erc-display-message
1211 (erc-display-message
1214 (t (erc-display-message
1236 (erc-display-message parsed 'notice buf
1239 (erc-display-message parsed 'notice buf
1272 (erc-display-message
1278 (erc-display-message parsed 'notice bufs 'NICK ?n nick
1289 (erc-display-message parsed 'notice buffer
1309 (erc-display-message
1311 'PING ?s (erc-time-diff erc-server-last-ping-time (erc-current-time))))
1312 (setq erc-server-last-ping-time (erc-current-time))))
1320 (erc-display-message
1335 (message "Ignored %s from %s to %s" cmd sender-spec tgt))
1351 ;; message. We will accumulate private identities indefinitely
1359 ((erc-is-message-ctcp-p msg)
1365 (setcar erc-server-last-peers nick)
1382 (erc-display-message parsed nil buffer s)))
1399 (erc-display-message parsed 'notice bufs
1412 (erc-display-message parsed 'notice (erc-get-buffer ch proc)
1418 (let ((message (erc-response.contents parsed)))
1421 (erc-display-message
1423 'WALLOPS ?n nick ?m message))))
1426 "Set `erc-server-current-nick' to reflect server settings and display the welcome message."
1432 (erc-display-message
1436 "Display the server's message of the day." nil
1438 (erc-display-message
1454 (erc-display-message
1461 "Set the variable `erc-server-parameters' and display the received message.
1469 A server may send more than one 005 message."
1485 (erc-display-message parsed 'notice proc line)))
1493 (erc-display-message parsed 'notice 'active 's221 ?n nick ?m modes)))
1497 (erc-display-message parsed 'notice 'active 's252
1502 (erc-display-message parsed 'notice 'active 's253
1507 (erc-display-message parsed 'notice 'active 's254
1513 See `erc-display-server-message'." nil
1514 (erc-display-server-message proc parsed))
1521 (erc-display-message parsed 'notice 'active 's301
1527 (erc-display-message parsed 'notice 'active 's303
1533 (erc-display-message parsed 'notice 'active
1539 (erc-display-message parsed 'notice 'active
1549 (erc-display-message
1557 (erc-display-message
1563 (erc-display-message
1585 (erc-display-message
1588 (erc-display-message
1594 (erc-display-message
1601 (erc-display-message
1608 (erc-display-message parsed 'notice proc 's321))
1617 (erc-display-message
1627 (erc-display-message
1636 (erc-display-message
1653 (erc-display-message parsed 'notice 'active 's330
1661 (erc-display-message parsed 'notice (erc-get-buffer channel proc)
1669 (erc-display-message parsed 'notice (erc-get-buffer channel proc)
1682 (erc-display-message parsed 'notice (erc-get-buffer channel proc)
1690 (erc-display-message parsed 'notice (erc-get-buffer channel proc)
1704 (erc-display-message parsed 'notice 'active 's352
1712 (erc-display-message parsed 'notice (or (erc-get-buffer channel proc)
1729 (erc-display-message parsed 'notice 'active 's367-set-by
1734 (erc-display-message parsed 'notice 'active 's367
1741 (erc-display-message parsed 'notice 'active 's368
1751 (erc-display-message parsed 'notice 'active
1756 (erc-display-message
1767 (erc-display-message parsed '(notice error) 'active
1772 (erc-display-message parsed '(notice error) 'active
1777 (erc-display-message parsed '(notice error) 'active
1784 (erc-display-message parsed '(notice error) 'active
1790 (erc-display-message parsed '(notice error) 'active
1796 (erc-display-message parsed '(notice error) 'active 's412))
1801 (erc-display-message parsed '(notice error) 'active 's421
1807 (erc-display-message parsed '(notice error) 'active 's432
1826 (erc-display-message parsed '(notice error) 'active 's442
1832 (erc-display-message parsed '(notice error) 'active 's461
1839 ;; show the server's message, as a reason might be provided
1846 (erc-display-message parsed '(notice error) nil
1853 (erc-display-message parsed '(notice error) nil 's475
1866 (message (erc-response.contents parsed)))
1867 (erc-display-message parsed 'notice (erc-get-buffer channel proc)
1868 (format "%s: %s" channel message))))
1873 (message (erc-response.contents parsed)))
1874 (erc-display-message parsed '(error notice) 'active 's482
1875 ?c channel ?m message)))