# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1291890770 -7200
# Node ID efa00a6ef34eb0af82b64ea85b2c77aa5b8895e5
# Parent  b9778761f610acab73574932edba938049abe1c3
Allow send message to multiply users.

diff -r b9778761f610 -r efa00a6ef34e .emacs-my
--- a/.emacs-my	Thu Dec 09 10:44:40 2010 +0200
+++ b/.emacs-my	Thu Dec 09 12:32:50 2010 +0200
@@ -897,6 +897,32 @@
   (setq fsm-debug nil)                  ; Disable *fsm-debug* buffer.
   )
 
+(defvar my-jabber-users nil
+  "Assoc list of jabber user goup. Keys are strings, values are lists of JIDs.")
+
+(defun my-jabber-send (group)
+  "GROUP is keys from `my-jabber-users'"
+  (interactive
+   (list (completing-read "Select group: " my-jabber-users))
+   )
+  (let (
+        (msg (if (use-region-p)
+                 (buffer-substring (region-beginning) (region-end))
+               (buffer-string)))
+        (jc (jabber-read-account))
+        )
+    (deactivate-mark)
+    (mapc
+     (lambda (user)
+       (jabber-send-message jc user "" msg "normal")
+       )
+     (cdr (assoc group my-jabber-users))
+     )
+    )
+  )
+
+(global-set-key (kbd "C-x C-j C-s") 'my-jabber-send)
+
 ;;; ----------------------------------------------------------------
 ;;; rcirc.