Function: erc-message-english-PART

erc-message-english-PART is a byte-compiled function defined in erc.el.gz.

Signature

(erc-message-english-PART &rest ARGS)

Documentation

Format a proper PART message.

This function is an example on what could be done with formatting functions.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc.el.gz
(defun erc-message-english-PART (&rest args)
  "Format a proper PART message.

This function is an example on what could be done with formatting
functions."
  (let ((nick (cadr (memq ?n args)))
        (user (cadr (memq ?u args)))
        (host (cadr (memq ?h args)))
        (channel (cadr (memq ?c args)))
        (reason (cadr (memq ?r args))))
    (if (string= nick (erc-current-nick))
        (format "You have left channel %s" channel)
      (format "%s (%s@%s) has left channel %s%s"
              nick user host channel
              (if (not (string= reason ""))
                  (format ": %s"
                          (string-replace "%" "%%" reason))
                "")))))