ERC kill/insert current channel and server

[Emanuel Berg]

Here is another pretty useful function:

(defun erc-kill-ring-server-and-buffer (&optional insert)
  (interactive "P")
  (let*((channel (buffer-name (car (erc-buffer-list))))
        (server  erc-server)
        (full    (format "address@hidden" channel server) ))
    (if insert
        (insert full)
      (kill-new full) )))
(defalias 'erc-channel #'erc-kill-ring-server-and-buffer)
;; test:
;;   (erc-channel t)
;;   (erc-channel)

For example, you might first ask a question on
IRC, but you don't get a reply. So you decide
to ask on Gmane. Then you simply kill the
question already posted, yank it into
a message, and then use the above function to
say, "Hello, I just asked this on [invoke
function with C-u here] ..."

BTW I crosspost this to gmane.emacs.help and
gmane.emacs.devel as gmane.emacs.erc.general
seems to be totally dead. In erc.el, line 13,
it even says

;; Maintainer: address@hidden

-- 
underground experts united
http://user.it.uu.se/~embe8573