899 

   900 (defvar my-jabber-users nil

   901   "Assoc list of jabber user goup. Keys are strings, values are lists of JIDs.")

   902 

   903 (defun my-jabber-send (group)

   904   "GROUP is keys from `my-jabber-users'"

   905   (interactive

   906    (list (completing-read "Select group: " my-jabber-users))

   907    )

   908   (let (

   909         (msg (if (use-region-p)

   910                  (buffer-substring (region-beginning) (region-end))

   911                (buffer-string)))

   912         (jc (jabber-read-account))

   913         )

   914     (deactivate-mark)

   915     (mapc

   916      (lambda (user)

   917        (jabber-send-message jc user "" msg "normal")

   918        )

   919      (cdr (assoc group my-jabber-users))

   920      )

   921     )

   922   )

   923 

   924 (global-set-key (kbd "C-x C-j C-s") 'my-jabber-send)