New rcirc command rcirc-cmd-invite

See: http://debbugs.gnu.org/9453

2 files changed, 14 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6d64950d64b..74aae97943d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-09-08  Leo Liu  <sdl.web@gmail.com>
+
+        * net/rcirc.el (rcirc-cmd-invite): New rcirc command.  (Bug#9453)
+
 2011-09-08  Juri Linkov  <juri@jurta.org>
 
         * progmodes/compile.el (compilation-environment): Make it
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 51a087bc084..6a912cd6273 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -2141,6 +2141,16 @@ CHANNELS is a comma- or space-separated string of channel names."
       (dolist (b buffers) ;; order the new channel buffers in the buffer list
         (switch-to-buffer b)))))
 
+(defun-rcirc-command invite (nick-channel)
+  "Invite NICK to CHANNEL."
+  (interactive (list
+                (concat
+                 (completing-read "Invite nick: "
+                                  (with-rcirc-server-buffer rcirc-nick-table))
+                 " "
+                 (read-string "Channel: "))))
+  (rcirc-send-string process (concat "INVITE " nick-channel)))
+
 ;; TODO: /part #channel reason, or consider removing #channel altogether
 (defun-rcirc-command part (channel)
   "Part CHANNEL."