Function: erc-notify-QUIT

erc-notify-QUIT is a byte-compiled function defined in erc-notify.el.gz.

Signature

(erc-notify-QUIT PROC PARSED)

Documentation

Check if quitter is on erc-notify-list and on erc-last-ison.

When that's the case, insert a notify-off message and remove the nick from erc-last-ison to prevent further notifications.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-notify.el.gz
(defun erc-notify-QUIT (proc parsed)
  "Check if quitter is on `erc-notify-list' and on `erc-last-ison'.
When that's the case, insert a `notify-off' message and remove
the nick from `erc-last-ison' to prevent further notifications."
  (let ((nick (erc-extract-nick (erc-response.sender parsed))))
    (when (and (erc-member-ignore-case nick erc-notify-list)
	       (erc-member-ignore-case nick erc-last-ison))
      (setq erc-last-ison (cl-delete-if
			   (let ((nick-down (erc-downcase nick)))
			     (lambda (el)
			       (string= nick-down (erc-downcase el))))
			   erc-last-ison))
      (run-hook-with-args 'erc-notify-signoff-hook
			  (or erc-server-announced-name erc-session-server)
			  nick)
      (erc-display-message
       parsed 'notice proc
       'notify-off ?n nick ?m (erc-network-name)))
    nil))