--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/mcabber/mcabber/commands.c	Mon Jan 18 15:36:19 2010 +0200
@@ -0,0 +1,3828 @@
+/*
+ * commands.c   -- user commands handling
+ *
+ * Copyright (C) 2005-2009 Mikael Berthe <mikael@lilotux.net>
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or (at
+ * your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
+ * USA
+ */
+
+#include <string.h>
+#include <stdlib.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <unistd.h>
+
+#include "commands.h"
+#include "help.h"
+#include "roster.h"
+#include "screen.h"
+#include "compl.h"
+#include "hooks.h"
+#include "hbuf.h"
+#include "utils.h"
+#include "settings.h"
+#include "events.h"
+#include "otr.h"
+#include "utf8.h"
+#include "xmpp.h"
+#include "main.h"
+
+#define IMSTATUS_AWAY           "away"
+#define IMSTATUS_ONLINE         "online"
+#define IMSTATUS_OFFLINE        "offline"
+#define IMSTATUS_FREE4CHAT      "free"
+#define IMSTATUS_INVISIBLE      "invisible"
+#define IMSTATUS_AVAILABLE      "avail"
+#define IMSTATUS_NOTAVAILABLE   "notavail"
+#define IMSTATUS_DONOTDISTURB   "dnd"
+
+// Return value container for the following functions
+static int retval_for_cmds;
+
+// Commands callbacks
+static void do_roster(char *arg);
+static void do_status(char *arg);
+static void do_status_to(char *arg);
+static void do_add(char *arg);
+static void do_del(char *arg);
+static void do_group(char *arg);
+static void do_say(char *arg);
+static void do_msay(char *arg);
+static void do_say_to(char *arg);
+static void do_buffer(char *arg);
+static void do_clear(char *arg);
+static void do_info(char *arg);
+static void do_rename(char *arg);
+static void do_move(char *arg);
+static void do_set(char *arg);
+static void do_alias(char *arg);
+static void do_bind(char *arg);
+static void do_connect(char *arg);
+static void do_disconnect(char *arg);
+static void do_rawxml(char *arg);
+static void do_room(char *arg);
+static void do_authorization(char *arg);
+static void do_version(char *arg);
+static void do_request(char *arg);
+static void do_event(char *arg);
+static void do_help(char *arg);
+static void do_pgp(char *arg);
+static void do_iline(char *arg);
+static void do_screen_refresh(char *arg);
+static void do_chat_disable(char *arg);
+static void do_source(char *arg);
+static void do_color(char *arg);
+static void do_otr(char *arg);
+static void do_otrpolicy(char *arg);
+static void do_echo(char *arg);
+
+static void do_say_internal(char *arg, int parse_flags);
+
+// Global variable for the commands list
+static GSList *Commands;
+
+#ifdef MODULES_ENABLE
+#include <gmodule.h>
+
+static void do_load(char *arg);
+static void do_unload(char *arg);
+
+typedef struct {
+  char *name;
+  GModule *module;
+} loaded_module_t;
+
+GSList *loaded_modules = NULL;
+
+gpointer cmd_del(const char *name)
+{
+  GSList *sl_cmd;
+  for (sl_cmd = Commands; sl_cmd; sl_cmd = sl_cmd->next) {
+    cmd *command = (cmd *) sl_cmd->data;
+    if (!strcmp (command->name, name)) {
+      gpointer userdata = command->userdata;
+      Commands = g_slist_delete_link(Commands, sl_cmd);
+      compl_del_category_word(COMPL_CMD, command->name);
+      g_free(command);
+      return userdata;
+    }
+  }
+  return NULL;
+}
+
+//  cmd_add()
+// Adds a command to the commands list and to the CMD completion list
+void cmd_add(const char *name, const char *help, guint flags_row1,
+             guint flags_row2, void (*f)(char*), gpointer userdata)
+#define cmd_add(A, B, C, D, E) cmd_add (A, B, C, D, E, NULL);
+#else
+static void cmd_add(const char *name, const char *help,
+        guint flags_row1, guint flags_row2, void (*f)(char*))
+#endif
+{
+  cmd *n_cmd = g_new0(cmd, 1);
+  strncpy(n_cmd->name, name, 32-1);
+  n_cmd->help = help;
+  n_cmd->completion_flags[0] = flags_row1;
+  n_cmd->completion_flags[1] = flags_row2;
+  n_cmd->func = f;
+#ifdef MODULES_ENABLE
+  n_cmd->userdata = userdata;
+#endif
+  Commands = g_slist_prepend(Commands, n_cmd);
+  // Add to completion CMD category
+  compl_add_category_word(COMPL_CMD, name);
+}
+
+//  cmd_init()
+// Commands table initialization
+// !!!
+// After changing commands names and it arguments names here, you must change
+// ones in init_bindings()!
+//
+void cmd_init(void)
+{
+  cmd_add("add", "Add a jabber user", COMPL_JID, 0, &do_add);
+  cmd_add("alias", "Add an alias", 0, 0, &do_alias);
+  cmd_add("authorization", "Manage subscription authorizations",
+          COMPL_AUTH, COMPL_JID, &do_authorization);
+  cmd_add("bind", "Add an key binding", 0, 0, &do_bind);
+  cmd_add("buffer", "Manipulate current buddy's buffer (chat window)",
+          COMPL_BUFFER, 0, &do_buffer);
+  cmd_add("chat_disable", "Disable chat mode", 0, 0, &do_chat_disable);
+  cmd_add("clear", "Clear the dialog window", 0, 0, &do_clear);
+  cmd_add("color", "Set coloring options", COMPL_COLOR, 0, &do_color);
+  cmd_add("connect", "Connect to the server", 0, 0, &do_connect);
+  cmd_add("del", "Delete the current buddy", 0, 0, &do_del);
+  cmd_add("disconnect", "Disconnect from server", 0, 0, &do_disconnect);
+  cmd_add("echo", "Display a string in the log window", 0, 0, &do_echo);
+  cmd_add("event", "Process an event", COMPL_EVENTSID, COMPL_EVENTS, &do_event);
+  cmd_add("group", "Change group display settings",
+          COMPL_GROUP, COMPL_GROUPNAME, &do_group);
+  cmd_add("help", "Display some help", COMPL_CMD, 0, &do_help);
+  cmd_add("iline", "Manipulate input buffer", 0, 0, &do_iline);
+  cmd_add("info", "Show basic info on current buddy", 0, 0, &do_info);
+  cmd_add("move", "Move the current buddy to another group", COMPL_GROUPNAME,
+          0, &do_move);
+  cmd_add("msay", "Send a multi-lines message to the selected buddy",
+          COMPL_MULTILINE, 0, &do_msay);
+  cmd_add("otr", "Manage OTR settings", COMPL_OTR, COMPL_JID, &do_otr);
+  cmd_add("otrpolicy", "Manage OTR policies", COMPL_JID, COMPL_OTRPOLICY,
+          &do_otrpolicy);
+  cmd_add("pgp", "Manage PGP settings", COMPL_PGP, COMPL_JID, &do_pgp);
+  cmd_add("quit", "Exit the software", 0, 0, NULL);
+  cmd_add("rawxml", "Send a raw XML string", 0, 0, &do_rawxml);
+  cmd_add("rename", "Rename the current buddy", 0, 0, &do_rename);
+  cmd_add("request", "Send a Jabber IQ request", COMPL_REQUEST, COMPL_JID,
+          &do_request);
+  cmd_add("room", "MUC actions command", COMPL_ROOM, 0, &do_room);
+  cmd_add("roster", "Manipulate the roster/buddylist", COMPL_ROSTER, 0,
+          &do_roster);
+  cmd_add("say", "Say something to the selected buddy", 0, 0, &do_say);
+  cmd_add("say_to", "Say something to a specific buddy", COMPL_JID, 0,
+          &do_say_to);
+  cmd_add("screen_refresh", "Redraw mcabber screen", 0, 0, &do_screen_refresh);
+  //cmd_add("search");
+  cmd_add("set", "Set/query an option value", 0, 0, &do_set);
+  cmd_add("source", "Read a configuration file", 0, 0, &do_source);
+  cmd_add("status", "Show or set your status", COMPL_STATUS, 0, &do_status);
+  cmd_add("status_to", "Show or set your status for one recipient",
+          COMPL_JID, COMPL_STATUS, &do_status_to);
+  cmd_add("version", "Show mcabber version", 0, 0, &do_version);
+#ifdef MODULES_ENABLE
+  cmd_add("load", "Load module", 0, 0, &do_load);
+  cmd_add("unload", "Unload module", 0, 0, &do_unload);
+#endif
+
+  // Status category
+  compl_add_category_word(COMPL_STATUS, "online");
+  compl_add_category_word(COMPL_STATUS, "avail");
+  compl_add_category_word(COMPL_STATUS, "invisible");
+  compl_add_category_word(COMPL_STATUS, "free");
+  compl_add_category_word(COMPL_STATUS, "dnd");
+  compl_add_category_word(COMPL_STATUS, "notavail");
+  compl_add_category_word(COMPL_STATUS, "away");
+  compl_add_category_word(COMPL_STATUS, "offline");
+  compl_add_category_word(COMPL_STATUS, "message");
+
+  // Roster category
+  compl_add_category_word(COMPL_ROSTER, "bottom");
+  compl_add_category_word(COMPL_ROSTER, "top");
+  compl_add_category_word(COMPL_ROSTER, "up");
+  compl_add_category_word(COMPL_ROSTER, "down");
+  compl_add_category_word(COMPL_ROSTER, "group_prev");
+  compl_add_category_word(COMPL_ROSTER, "group_next");
+  compl_add_category_word(COMPL_ROSTER, "hide");
+  compl_add_category_word(COMPL_ROSTER, "show");
+  compl_add_category_word(COMPL_ROSTER, "toggle");
+  compl_add_category_word(COMPL_ROSTER, "display");
+  compl_add_category_word(COMPL_ROSTER, "hide_offline");
+  compl_add_category_word(COMPL_ROSTER, "show_offline");
+  compl_add_category_word(COMPL_ROSTER, "toggle_offline");
+  compl_add_category_word(COMPL_ROSTER, "item_lock");
+  compl_add_category_word(COMPL_ROSTER, "item_unlock");
+  compl_add_category_word(COMPL_ROSTER, "item_toggle_lock");
+  compl_add_category_word(COMPL_ROSTER, "alternate");
+  compl_add_category_word(COMPL_ROSTER, "search");
+  compl_add_category_word(COMPL_ROSTER, "unread_first");
+  compl_add_category_word(COMPL_ROSTER, "unread_next");
+  compl_add_category_word(COMPL_ROSTER, "note");
+
+  // Buffer category
+  compl_add_category_word(COMPL_BUFFER, "clear");
+  compl_add_category_word(COMPL_BUFFER, "bottom");
+  compl_add_category_word(COMPL_BUFFER, "top");
+  compl_add_category_word(COMPL_BUFFER, "up");
+  compl_add_category_word(COMPL_BUFFER, "down");
+  compl_add_category_word(COMPL_BUFFER, "search_backward");
+  compl_add_category_word(COMPL_BUFFER, "search_forward");
+  compl_add_category_word(COMPL_BUFFER, "date");
+  compl_add_category_word(COMPL_BUFFER, "%");
+  compl_add_category_word(COMPL_BUFFER, "purge");
+  compl_add_category_word(COMPL_BUFFER, "close");
+  compl_add_category_word(COMPL_BUFFER, "close_all");
+  compl_add_category_word(COMPL_BUFFER, "scroll_lock");
+  compl_add_category_word(COMPL_BUFFER, "scroll_unlock");
+  compl_add_category_word(COMPL_BUFFER, "scroll_toggle");
+  compl_add_category_word(COMPL_BUFFER, "list");
+  compl_add_category_word(COMPL_BUFFER, "save");
+
+  // Group category
+  compl_add_category_word(COMPL_GROUP, "fold");
+  compl_add_category_word(COMPL_GROUP, "unfold");
+  compl_add_category_word(COMPL_GROUP, "toggle");
+
+  // Multi-line (msay) category
+  compl_add_category_word(COMPL_MULTILINE, "abort");
+  compl_add_category_word(COMPL_MULTILINE, "begin");
+  compl_add_category_word(COMPL_MULTILINE, "send");
+  compl_add_category_word(COMPL_MULTILINE, "send_to");
+  compl_add_category_word(COMPL_MULTILINE, "toggle");
+  compl_add_category_word(COMPL_MULTILINE, "toggle_verbatim");
+  compl_add_category_word(COMPL_MULTILINE, "verbatim");
+
+  // Room category
+  compl_add_category_word(COMPL_ROOM, "affil");
+  compl_add_category_word(COMPL_ROOM, "ban");
+  compl_add_category_word(COMPL_ROOM, "bookmark");
+  compl_add_category_word(COMPL_ROOM, "destroy");
+  compl_add_category_word(COMPL_ROOM, "invite");
+  compl_add_category_word(COMPL_ROOM, "join");
+  compl_add_category_word(COMPL_ROOM, "kick");
+  compl_add_category_word(COMPL_ROOM, "leave");
+  compl_add_category_word(COMPL_ROOM, "names");
+  compl_add_category_word(COMPL_ROOM, "nick");
+  compl_add_category_word(COMPL_ROOM, "privmsg");
+  compl_add_category_word(COMPL_ROOM, "remove");
+  compl_add_category_word(COMPL_ROOM, "role");
+  compl_add_category_word(COMPL_ROOM, "setopt");
+  compl_add_category_word(COMPL_ROOM, "topic");
+  compl_add_category_word(COMPL_ROOM, "unban");
+  compl_add_category_word(COMPL_ROOM, "unlock");
+  compl_add_category_word(COMPL_ROOM, "whois");
+
+  // Authorization category
+  compl_add_category_word(COMPL_AUTH, "allow");
+  compl_add_category_word(COMPL_AUTH, "cancel");
+  compl_add_category_word(COMPL_AUTH, "request");
+  compl_add_category_word(COMPL_AUTH, "request_unsubscribe");
+
+  // Request (query) category
+  compl_add_category_word(COMPL_REQUEST, "last");
+  compl_add_category_word(COMPL_REQUEST, "time");
+  compl_add_category_word(COMPL_REQUEST, "vcard");
+  compl_add_category_word(COMPL_REQUEST, "version");
+
+  // Events category
+  compl_add_category_word(COMPL_EVENTS, "accept");
+  compl_add_category_word(COMPL_EVENTS, "ignore");
+  compl_add_category_word(COMPL_EVENTS, "reject");
+
+  // PGP category
+  compl_add_category_word(COMPL_PGP, "disable");
+  compl_add_category_word(COMPL_PGP, "enable");
+  compl_add_category_word(COMPL_PGP, "force");
+  compl_add_category_word(COMPL_PGP, "info");
+  compl_add_category_word(COMPL_PGP, "setkey");
+
+  // OTR category
+  compl_add_category_word(COMPL_OTR, "start");
+  compl_add_category_word(COMPL_OTR, "stop");
+  compl_add_category_word(COMPL_OTR, "fingerprint");
+  compl_add_category_word(COMPL_OTR, "smpq");
+  compl_add_category_word(COMPL_OTR, "smpr");
+  compl_add_category_word(COMPL_OTR, "smpa");
+  compl_add_category_word(COMPL_OTR, "info");
+  compl_add_category_word(COMPL_OTR, "key");
+
+  // OTR Policy category
+  compl_add_category_word(COMPL_OTRPOLICY, "plain");
+  compl_add_category_word(COMPL_OTRPOLICY, "manual");
+  compl_add_category_word(COMPL_OTRPOLICY, "opportunistic");
+  compl_add_category_word(COMPL_OTRPOLICY, "always");
+
+  // Color category
+  compl_add_category_word(COMPL_COLOR, "roster");
+  compl_add_category_word(COMPL_COLOR, "muc");
+  compl_add_category_word(COMPL_COLOR, "mucnick");
+}
+
+#ifdef MODULES_ENABLE
+void cmd_deinit ()
+{
+  GSList *el = loaded_modules;
+  while (el) {
+    loaded_module_t *module = el->data;
+    if (!g_module_close ((GModule *) module->module))
+      scr_LogPrint (LPRINT_LOGNORM, "* Module unloading failed: %s",
+                    g_module_error ());
+    g_free (module->name);
+    g_free (module);
+    el = g_slist_next (el);
+  }
+  g_slist_free (loaded_modules);
+}
+#endif
+
+//  expandalias(line)
+// If there is one, expand the alias in line and returns a new allocated line
+// If no alias is found, returns line
+// Note: if the returned pointer is different from line, the caller should
+//       g_free() the pointer after use
+char *expandalias(const char *line)
+{
+  const char *p1, *p2;
+  char *word;
+  const gchar *value;
+  char *newline = (char*)line;
+
+  // Ignore leading COMMAND_CHAR
+  for (p1 = line ; *p1 == COMMAND_CHAR ; p1++)
+    ;
+  // Locate the end of the word
+  for (p2 = p1 ; *p2 && (*p2 != ' ') ; p2++)
+    ;
+  // Extract the word and look for an alias in the list
+  word = g_strndup(p1, p2-p1);
+  value = settings_get(SETTINGS_TYPE_ALIAS, (const char*)word);
+  g_free(word);
+
+  if (value)
+    newline = g_strdup_printf("%c%s%s", COMMAND_CHAR, value, p2);
+
+  return newline;
+}
+
+//  cmd_get
+// Finds command in the command list structure.
+// Returns a pointer to the cmd entry, or NULL if command not found.
+cmd *cmd_get(const char *command)
+{
+  const char *p1, *p2;
+  char *com;
+  GSList *sl_com;
+
+  // Ignore leading COMMAND_CHAR
+  for (p1 = command ; *p1 == COMMAND_CHAR ; p1++)
+    ;
+  // Locate the end of the command
+  for (p2 = p1 ; *p2 && (*p2 != ' ') ; p2++)
+    ;
+  // Copy the clean command
+  com = g_strndup(p1, p2-p1);
+
+  // Look for command in the list
+  for (sl_com=Commands; sl_com; sl_com = g_slist_next(sl_com)) {
+    if (!strcasecmp(com, ((cmd*)sl_com->data)->name))
+      break;
+  }
+  g_free(com);
+
+  if (sl_com)       // Command has been found.
+    return (cmd*)sl_com->data;
+  return NULL;
+}
+
+//  process_command(line, iscmd)
+// Process a command line.
+// If iscmd is TRUE, process the command even if verbatim mmode is set;
+// it is intended to be used for key bindings.
+// Return 255 if this is the /quit command, and 0 for the other commands.
+int process_command(const char *line, guint iscmd)
+{
+  char *p;
+  char *xpline;
+  cmd *curcmd;
+
+  if (!line)
+    return 0;
+
+  // We do alias expansion here
+  if (iscmd || scr_get_multimode() != 2)
+    xpline = expandalias(line);
+  else
+    xpline = (char*)line; // No expansion in verbatim multi-line mode
+
+  // We want to use a copy
+  if (xpline == line)
+    xpline = g_strdup(line);
+
+  // Remove trailing spaces:
+  for (p=xpline ; *p ; p++)
+    ;
+  for (p-- ; p>xpline && (*p == ' ') ; p--)
+    *p = 0;
+
+  // Command "quit"?
+  if ((iscmd || scr_get_multimode() != 2)
+      && (!strncasecmp(xpline, mkcmdstr("quit"), strlen(mkcmdstr("quit"))))) {
+    if (!xpline[5] || xpline[5] == ' ') {
+      g_free(xpline);
+      return 255;
+    }
+  } else if (iscmd && !strncasecmp(xpline, "quit", 4) &&
+             (!xpline[4] || xpline[4] == ' ')) {
+    // If iscmd is true we can have the command without the command prefix
+    // character (usually '/').
+    g_free(xpline);
+    return 255;
+  }
+
+  // If verbatim multi-line mode, we check if another /msay command is typed
+  if (!iscmd && scr_get_multimode() == 2
+      && (strncasecmp(xpline, mkcmdstr("msay "), strlen(mkcmdstr("msay "))))) {
+    // It isn't an /msay command
+    scr_append_multiline(xpline);
+    g_free(xpline);
+    return 0;
+  }
+
+  // Commands handling
+  curcmd = cmd_get(xpline);
+
+  if (!curcmd) {
+    scr_LogPrint(LPRINT_NORMAL, "Unrecognized command.  "
+                 "Please see the manual for a list of known commands.");
+    g_free(xpline);
+    return 0;
+  }
+  if (!curcmd->func) {
+    scr_LogPrint(LPRINT_NORMAL,
+                 "This functionality is not yet implemented, sorry.");
+    g_free(xpline);
+    return 0;
+  }
+  // Lets go to the command parameters
+  for (p = xpline+1; *p && (*p != ' ') ; p++)
+    ;
+  // Skip spaces
+  while (*p && (*p == ' '))
+    p++;
+  // Call command-specific function
+  retval_for_cmds = 0;
+#ifdef MODULES_ENABLE
+  if (curcmd->userdata)
+    (*(void (*)(char *p, gpointer u))curcmd->func)(p, curcmd->userdata);
+  else
+    (*curcmd->func)(p);
+#else
+  (*curcmd->func)(p);
+#endif
+  g_free(xpline);
+  return retval_for_cmds;
+}
+
+//  process_line(line)
+// Process a command/message line.
+// If this isn't a command, this is a message and it is sent to the
+// currently selected buddy.
+// Return 255 if the line is the /quit command, or 0.
+int process_line(const char *line)
+{
+  if (!*line) { // User only pressed enter
+    if (scr_get_multimode()) {
+      scr_append_multiline("");
+      return 0;
+    }
+    if (current_buddy) {
+      if (buddy_gettype(BUDDATA(current_buddy)) & ROSTER_TYPE_GROUP)
+	do_group("toggle");
+      else {
+        // Enter chat mode
+        scr_set_chatmode(TRUE);
+        scr_ShowBuddyWindow();
+      }
+    }
+    return 0;
+  }
+
+  if (*line != COMMAND_CHAR) {
+    // This isn't a command
+    if (scr_get_multimode())
+      scr_append_multiline(line);
+    else
+      do_say_internal((char*)line, 0);
+    return 0;
+  }
+
+  /* It is _probably_ a command -- except for verbatim multi-line mode */
+  return process_command(line, FALSE);
+}
+
+// Helper routine for buffer item_{lock,unlock,toggle_lock}
+// "lock" values: 1=lock 0=unlock -1=invert
+static void roster_buddylock(char *bjid, int lock)
+{
+  gpointer bud = NULL;
+  bool may_need_refresh = FALSE;
+
+  // Allow special jid "" or "." (current buddy)
+  if (bjid && (!*bjid || !strcmp(bjid, ".")))
+    bjid = NULL;
+
+  if (bjid) {
+    // The JID has been specified.  Quick check...
+    if (check_jid_syntax(bjid)) {
+      scr_LogPrint(LPRINT_NORMAL|LPRINT_NOTUTF8,
+                   "<%s> is not a valid Jabber ID.", bjid);
+    } else {
+      // Find the buddy
+      GSList *roster_elt;
+      roster_elt = roster_find(bjid, jidsearch,
+                               ROSTER_TYPE_USER|ROSTER_TYPE_ROOM);
+      if (roster_elt)
+        bud = roster_elt->data;
+      else
+        scr_LogPrint(LPRINT_NORMAL, "This jid isn't in the roster.");
+      may_need_refresh = TRUE;
+    }
+  } else {
+    // Use the current buddy
+    if (current_buddy)
+      bud = BUDDATA(current_buddy);
+  }
+
+  // Update the ROSTER_FLAG_USRLOCK flag
+  if (bud) {
+    if (lock == -1)
+      lock = !(buddy_getflags(bud) & ROSTER_FLAG_USRLOCK);
+    buddy_setflags(bud, ROSTER_FLAG_USRLOCK, lock);
+    if (may_need_refresh) {
+      buddylist_build();
+      update_roster = TRUE;
+    }
+  }
+}
+
+//  display_and_free_note(note, winId)
+// Display the note information in the winId buffer, and free note
+// (winId is a bare jid or NULL for the status window, in which case we
+// display the note jid too)
+static void display_and_free_note(struct annotation *note, const char *winId)
+{
+  gchar tbuf[128];
+  GString *sbuf;
+  guint msg_flag = HBB_PREFIX_INFO;
+  /* We use the flag prefix_info for the first line, and prefix_cont
+     for the other lines, for better readability */
+
+  if (!note)
+    return;
+
+  sbuf = g_string_new("");
+
+  if (!winId) {
+    // We're writing to the status window, so let's show the jid too.
+    g_string_printf(sbuf, "Annotation on <%s>", note->jid);
+    scr_WriteIncomingMessage(winId, sbuf->str, 0, msg_flag, 0);
+    msg_flag = HBB_PREFIX_INFO | HBB_PREFIX_CONT;
+  }
+
+  // If we have the creation date, display it
+  if (note->cdate) {
+    strftime(tbuf, sizeof(tbuf), "%Y-%m-%d %H:%M:%S",
+             localtime(&note->cdate));
+    g_string_printf(sbuf, "Note created  %s", tbuf);
+    scr_WriteIncomingMessage(winId, sbuf->str, 0, msg_flag, 0);
+    msg_flag = HBB_PREFIX_INFO | HBB_PREFIX_CONT;
+  }
+  // If we have the modification date, display it
+  // unless it's the same as the creation date
+  if (note->mdate && note->mdate != note->cdate) {
+    strftime(tbuf, sizeof(tbuf), "%Y-%m-%d %H:%M:%S",
+             localtime(&note->mdate));
+    g_string_printf(sbuf, "Note modified %s", tbuf);
+    scr_WriteIncomingMessage(winId, sbuf->str, 0, msg_flag, 0);
+    msg_flag = HBB_PREFIX_INFO | HBB_PREFIX_CONT;
+  }
+  // Note text
+  g_string_printf(sbuf, "Note: %s", note->text);
+  scr_WriteIncomingMessage(winId, sbuf->str, 0, msg_flag, 0);
+
+  g_string_free(sbuf, TRUE);
+  g_free(note->text);
+  g_free(note->jid);
+  g_free(note);
+}
+
+static void display_all_annotations(void)
+{
+  GSList *notes;
+  notes = xmpp_get_all_storage_rosternotes();
+
+  if (!notes)
+    return;
+
+  // Call display_and_free_note() for each note,
+  // with winId = NULL (special window)
+  g_slist_foreach(notes, (GFunc)&display_and_free_note, NULL);
+  scr_setmsgflag_if_needed(SPECIAL_BUFFER_STATUS_ID, TRUE);
+  update_roster = TRUE;
+  g_slist_free(notes);
+}
+
+static void roster_note(char *arg)
+{
+  const char *bjid;
+  guint type;
+
+  if (!current_buddy)
+    return;
+
+  bjid = buddy_getjid(BUDDATA(current_buddy));
+  type = buddy_gettype(BUDDATA(current_buddy));
+
+  if (!bjid && type == ROSTER_TYPE_SPECIAL && !arg) {
+    // We're in the status window (the only special buffer currently)
+    // Let's display all server notes
+    display_all_annotations();
+    return;
+  }
+
+  if (!bjid || (type != ROSTER_TYPE_USER &&
+               type != ROSTER_TYPE_ROOM &&
+               type != ROSTER_TYPE_AGENT)) {
+    scr_LogPrint(LPRINT_NORMAL, "This item can't have a note.");
+    return;
+  }
+
+  if (arg && *arg) {  // Set a note
+    gchar *msg, *notetxt;
+    msg = to_utf8(arg);
+    if (!strcmp(msg, "-"))
+      notetxt = NULL; // delete note
+    else
+      notetxt = msg;
+    xmpp_set_storage_rosternotes(bjid, notetxt);
+    g_free(msg);
+  } else {      // Display a note
+    struct annotation *note = xmpp_get_storage_rosternotes(bjid, FALSE);
+    if (note) {
+      display_and_free_note(note, bjid);
+    } else {
+      scr_WriteIncomingMessage(bjid, "This item doesn't have a note.", 0,
+                               HBB_PREFIX_INFO, 0);
+    }
+  }
+}
+
+//  roster_updown(updown, nitems)
+// updown: -1=up, +1=down
+inline static void roster_updown(int updown, char *nitems)
+{
+  int nbitems;
+
+  if (!nitems || !*nitems)
+    nbitems = 1;
+  else
+    nbitems = strtol(nitems, NULL, 10);
+
+  if (nbitems > 0)
+    scr_RosterUpDown(updown, nbitems);
+}
+
+/* Commands callback functions */
+/* All these do_*() functions will be called with a "arg" parameter */
+/* (with arg not null)                                              */
+
+static void do_roster(char *arg)
+{
+  char **paramlst;
+  char *subcmd;
+
+  paramlst = split_arg(arg, 2, 1); // subcmd, arg
+  subcmd = *paramlst;
+  arg = *(paramlst+1);
+
+  if (!subcmd || !*subcmd) {
+    scr_LogPrint(LPRINT_NORMAL, "Missing parameter.");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  if (!strcasecmp(subcmd, "top")) {
+    scr_RosterTop();
+    update_roster = TRUE;
+  } else if (!strcasecmp(subcmd, "bottom")) {
+    scr_RosterBottom();
+    update_roster = TRUE;
+  } else if (!strcasecmp(subcmd, "hide")) {
+    scr_RosterVisibility(0);
+  } else if (!strcasecmp(subcmd, "show")) {
+    scr_RosterVisibility(1);
+  } else if (!strcasecmp(subcmd, "toggle")) {
+    scr_RosterVisibility(-1);
+  } else if (!strcasecmp(subcmd, "hide_offline")) {
+    buddylist_set_hide_offline_buddies(TRUE);
+    if (current_buddy)
+      buddylist_build();
+    update_roster = TRUE;
+  } else if (!strcasecmp(subcmd, "show_offline")) {
+    buddylist_set_hide_offline_buddies(FALSE);
+    buddylist_build();
+    update_roster = TRUE;
+  } else if (!strcasecmp(subcmd, "toggle_offline")) {
+    buddylist_set_hide_offline_buddies(-1);
+    buddylist_build();
+    update_roster = TRUE;
+  } else if (!strcasecmp(subcmd, "display")) {
+    scr_RosterDisplay(arg);
+  } else if (!strcasecmp(subcmd, "item_lock")) {
+    roster_buddylock(arg, 1);
+  } else if (!strcasecmp(subcmd, "item_unlock")) {
+    roster_buddylock(arg, 0);
+  } else if (!strcasecmp(subcmd, "item_toggle_lock")) {
+    roster_buddylock(arg, -1);
+  } else if (!strcasecmp(subcmd, "unread_first")) {
+    scr_RosterUnreadMessage(0);
+  } else if (!strcasecmp(subcmd, "unread_next")) {
+    scr_RosterUnreadMessage(1);
+  } else if (!strcasecmp(subcmd, "alternate")) {
+    scr_RosterJumpAlternate();
+  } else if (!strncasecmp(subcmd, "search", 6)) {
+    strip_arg_special_chars(arg);
+    if (!arg || !*arg) {
+      scr_LogPrint(LPRINT_NORMAL, "What name or JID are you looking for?");
+      free_arg_lst(paramlst);
+      return;
+    }
+    scr_RosterSearch(arg);
+    update_roster = TRUE;
+  } else if (!strcasecmp(subcmd, "up")) {
+    roster_updown(-1, arg);
+  } else if (!strcasecmp(subcmd, "down")) {
+    roster_updown(1, arg);
+  } else if (!strcasecmp(subcmd, "group_prev")) {
+    scr_RosterPrevGroup();
+  } else if (!strcasecmp(subcmd, "group_next")) {
+    scr_RosterNextGroup();
+  } else if (!strcasecmp(subcmd, "note")) {
+    roster_note(arg);
+  } else
+    scr_LogPrint(LPRINT_NORMAL, "Unrecognized parameter!");
+  free_arg_lst(paramlst);
+}
+
+void do_color(char *arg)
+{
+  char **paramlst;
+  char *subcmd;
+
+  paramlst = split_arg(arg, 2, 1); // subcmd, arg
+  subcmd = *paramlst;
+  arg = *(paramlst+1);
+
+  if (!subcmd || !*subcmd) {
+    scr_LogPrint(LPRINT_NORMAL, "Missing parameter.");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  if (!strcasecmp(subcmd, "roster")) {
+    char *status, *wildcard, *color;
+    char **arglist = split_arg(arg, 3, 0);
+
+    status = *arglist;
+    wildcard = to_utf8(arglist[1]);
+    color = arglist[2];
+
+    if (status && !strcmp(status, "clear")) { // Not a color command, clear all
+      scr_RosterClearColor();
+      update_roster = TRUE;
+    } else {
+      if (!status || !*status || !wildcard || !*wildcard || !color || !*color) {
+        scr_LogPrint(LPRINT_NORMAL, "Missing argument");
+      } else {
+        update_roster = scr_RosterColor(status, wildcard, color)
+                        || update_roster;
+      }
+    }
+    free_arg_lst(arglist);
+    g_free(wildcard);
+  } else if (!strcasecmp(subcmd, "muc")) {
+    char **arglist = split_arg(arg, 2, 0);
+    char *free_muc = to_utf8(*arglist);
+    const char *muc = free_muc, *mode = arglist[1];
+    if (!muc || !*muc)
+      scr_LogPrint(LPRINT_NORMAL, "What MUC?");
+    else {
+      if (!strcmp(muc, "."))
+        if (!(muc = CURRENT_JID))
+          scr_LogPrint(LPRINT_NORMAL, "No JID selected");
+      if (muc) {
+        if (check_jid_syntax(muc) && strcmp(muc, "*"))
+          scr_LogPrint(LPRINT_NORMAL, "Not a JID");
+        else {
+          if (!mode || !*mode || !strcasecmp(mode, "on"))
+            scr_MucColor(muc, MC_ALL);
+          else if (!strcasecmp(mode, "preset"))
+            scr_MucColor(muc, MC_PRESET);
+          else if (!strcasecmp(mode, "off"))
+            scr_MucColor(muc, MC_OFF);
+          else if (!strcmp(mode, "-"))
+            scr_MucColor(muc, MC_REMOVE);
+          else
+            scr_LogPrint(LPRINT_NORMAL, "Unknown coloring mode");
+        }
+      }
+    }
+    free_arg_lst(arglist);
+    g_free(free_muc);
+  } else if (!strcasecmp(subcmd, "mucnick")) {
+    char **arglist = split_arg(arg, 2, 0);
+    const char *nick = *arglist, *color = arglist[1];
+    if (!nick || !*nick || !color || !*color)
+      scr_LogPrint(LPRINT_NORMAL, "Missing argument");
+    else
+      scr_MucNickColor(nick, color);
+    free_arg_lst(arglist);
+  } else
+    scr_LogPrint(LPRINT_NORMAL, "Unrecognized parameter!");
+  free_arg_lst(paramlst);
+}
+
+//  cmd_setstatus(recipient, arg)
+// Set your Jabber status.
+// - if recipient is not NULL, the status is sent to this contact only
+// - arg must be "status message" (message is optional)
+void cmd_setstatus(const char *recipient, const char *arg)
+{
+  char **paramlst;
+  char *status;
+  char *msg;
+  enum imstatus st;
+
+  if (!lm_connection_is_authenticated(lconnection)) {
+    scr_LogPrint(LPRINT_NORMAL, "You are not connected.");
+    return;
+  }
+
+  // It makes sense to reset autoaway before changing the status
+  // (esp. for FIFO or remote commands) or the behaviour could be
+  // unexpected...
+  if (!recipient)
+    scr_CheckAutoAway(TRUE);
+
+  paramlst = split_arg(arg, 2, 1); // status, message
+  status = *paramlst;
+  msg = *(paramlst+1);
+
+  if (!status) {
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  if      (!strcasecmp(status, IMSTATUS_OFFLINE))       st = offline;
+  else if (!strcasecmp(status, IMSTATUS_ONLINE))        st = available;
+  else if (!strcasecmp(status, IMSTATUS_AVAILABLE))     st = available;
+  else if (!strcasecmp(status, IMSTATUS_AWAY))          st = away;
+  else if (!strcasecmp(status, IMSTATUS_INVISIBLE))     st = invisible;
+  else if (!strcasecmp(status, IMSTATUS_DONOTDISTURB))  st = dontdisturb;
+  else if (!strcasecmp(status, IMSTATUS_NOTAVAILABLE))  st = notavail;
+  else if (!strcasecmp(status, IMSTATUS_FREE4CHAT))     st = freeforchat;
+  else if (!strcasecmp(status, "message")) {
+    if (!msg || !*msg) {
+      // We want a message.  If there's none, we give up.
+      scr_LogPrint(LPRINT_NORMAL, "Missing parameter.");
+      free_arg_lst(paramlst);
+      return;
+    }
+    st = xmpp_getstatus();  // Preserve current status
+  } else {
+    scr_LogPrint(LPRINT_NORMAL, "Unrecognized status!");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  // Use provided message
+  if (msg && !*msg) {
+    msg = NULL;
+  }
+
+  // If a recipient is specified, let's don't use default status messages
+  if (recipient && !msg)
+    msg = "";
+
+  xmpp_setstatus(st, recipient, msg, FALSE);
+
+  free_arg_lst(paramlst);
+}
+
+static void do_status(char *arg)
+{
+  if (!*arg) {
+    const char *sm = xmpp_getstatusmsg();
+    scr_LogPrint(LPRINT_NORMAL, "Your status is: [%c] %s",
+                 imstatus2char[xmpp_getstatus()],
+                 (sm ? sm : ""));
+    return;
+  }
+  arg = to_utf8(arg);
+  cmd_setstatus(NULL, arg);
+  g_free(arg);
+}
+
+static void do_status_to(char *arg)
+{
+  char **paramlst;
+  char *fjid, *st, *msg;
+  char *jid_utf8 = NULL;
+
+  paramlst = split_arg(arg, 3, 1); // jid, status, [message]
+  fjid = *paramlst;
+  st = *(paramlst+1);
+  msg = *(paramlst+2);
+
+  if (!fjid || !st) {
+    scr_LogPrint(LPRINT_NORMAL,
+                 "Please specify both a Jabber ID and a status.");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  // Allow things like /status_to "" away
+  if (!*fjid || !strcmp(fjid, "."))
+    fjid = NULL;
+
+  if (fjid) {
+    // The JID has been specified.  Quick check...
+    if (check_jid_syntax(fjid)) {
+      scr_LogPrint(LPRINT_NORMAL|LPRINT_NOTUTF8,
+                   "<%s> is not a valid Jabber ID.", fjid);
+      fjid = NULL;
+    } else {
+      // Convert jid to lowercase
+      char *p = fjid;
+      for ( ; *p && *p != JID_RESOURCE_SEPARATOR; p++)
+        *p = tolower(*p);
+      fjid = jid_utf8 = to_utf8(fjid);
+    }
+  } else {
+    // Add the current buddy
+    if (current_buddy)
+      fjid = (char*)buddy_getjid(BUDDATA(current_buddy));
+    if (!fjid)
+      scr_LogPrint(LPRINT_NORMAL, "Please specify a Jabber ID.");
+  }
+
+  if (fjid) {
+    char *cmdline;
+    if (!msg)
+      msg = "";
+    msg = to_utf8(msg);
+    cmdline = g_strdup_printf("%s %s", st, msg);
+    scr_LogPrint(LPRINT_LOGNORM, "Sending to <%s> /status %s", fjid, cmdline);
+    cmd_setstatus(fjid, cmdline);
+    g_free(msg);
+    g_free(cmdline);
+    g_free(jid_utf8);
+  }
+  free_arg_lst(paramlst);
+}
+
+static void do_add(char *arg)
+{
+  char **paramlst;
+  char *id, *nick;
+  char *jid_utf8 = NULL;
+
+  if (!lm_connection_is_authenticated(lconnection)) {
+    scr_LogPrint(LPRINT_NORMAL, "You are not connected.");
+    return;
+  }
+
+  paramlst = split_arg(arg, 2, 0); // jid, [nickname]
+  id = *paramlst;
+  nick = *(paramlst+1);
+
+  if (!id)
+    nick = NULL; // Allow things like: /add "" nick
+  else if (!*id || !strcmp(id, "."))
+    id = NULL;
+
+  if (id) {
+    // The JID has been specified.  Quick check...
+    if (check_jid_syntax(id)) {
+      scr_LogPrint(LPRINT_NORMAL|LPRINT_NOTUTF8,
+                   "<%s> is not a valid Jabber ID.", id);
+      id = NULL;
+    } else {
+      mc_strtolower(id);
+      // Actually an UTF-8 id isn't needed because only the bare jid will
+      // be used.
+      id = jid_utf8 = to_utf8(id);
+    }
+  } else {
+    // Add the current buddy
+    if (current_buddy)
+      id = (char*)buddy_getjid(BUDDATA(current_buddy));
+    if (!id)
+      scr_LogPrint(LPRINT_NORMAL, "Please specify a Jabber ID.");
+  }
+
+  if (nick)
+    nick = to_utf8(nick);
+
+  if (id) {
+    // 2nd parameter = optional nickname
+    xmpp_addbuddy(id, nick, NULL);
+    scr_LogPrint(LPRINT_LOGNORM, "Sent presence notification request to <%s>.",
+                 id);
+  }
+
+  g_free(jid_utf8);
+  g_free(nick);
+  free_arg_lst(paramlst);
+}
+
+static void do_del(char *arg)
+{
+  const char *bjid;
+
+  if (*arg) {
+    scr_LogPrint(LPRINT_NORMAL, "This action does not require a parameter; "
+                 "the currently-selected buddy will be deleted.");
+    return;
+  }
+
+  if (!current_buddy)
+    return;
+  bjid = buddy_getjid(BUDDATA(current_buddy));
+  if (!bjid)
+    return;
+
+  if (buddy_gettype(BUDDATA(current_buddy)) & ROSTER_TYPE_ROOM) {
+    // This is a chatroom
+    if (buddy_getinsideroom(BUDDATA(current_buddy))) {
+      scr_LogPrint(LPRINT_NORMAL, "You haven't left this room!");
+      return;
+    }
+  }
+
+  // Close the buffer
+  scr_BufferPurge(1, NULL);
+
+  scr_LogPrint(LPRINT_LOGNORM, "Removing <%s>...", bjid);
+  xmpp_delbuddy(bjid);
+  scr_UpdateBuddyWindow();
+}
+
+static void do_group(char *arg)
+{
+  gpointer group = NULL;
+  guint leave_buddywindow;
+  char **paramlst;
+  char *subcmd;
+  enum { group_toggle = -1, group_unfold = 0, group_fold = 1 } group_state = 0;
+
+  if (!*arg) {
+    scr_LogPrint(LPRINT_NORMAL, "Missing parameter.");
+    return;
+  }
+
+  if (!current_buddy)
+    return;
+
+  paramlst = split_arg(arg, 2, 0); // subcmd, [arg]
+  subcmd = *paramlst;
+  arg = *(paramlst+1);
+
+  if (!subcmd || !*subcmd)
+    goto do_group_return;   // Should not happen anyway
+
+  if (arg && *arg) {
+    GSList *roster_elt;
+    char *group_utf8 = to_utf8(arg);
+    roster_elt = roster_find(group_utf8, namesearch, ROSTER_TYPE_GROUP);
+    g_free(group_utf8);
+    if (roster_elt)
+      group = buddy_getgroup(roster_elt->data);
+  } else {
+    group = buddy_getgroup(BUDDATA(current_buddy));
+  }
+  if (!group)
+    goto do_group_return;
+
+  // We'll have to redraw the chat window if we're not currently on the group
+  // entry itself, because it means we'll have to leave the current buddy
+  // chat window.
+  leave_buddywindow = (group != BUDDATA(current_buddy) &&
+                       group == buddy_getgroup(BUDDATA(current_buddy)));
+
+
+  if (!(buddy_gettype(group) & ROSTER_TYPE_GROUP)) {
+    scr_LogPrint(LPRINT_NORMAL, "You need to select a group.");
+    goto do_group_return;
+  }
+
+  if (!strcasecmp(subcmd, "expand") || !strcasecmp(subcmd, "unfold"))
+    group_state = group_unfold;
+  else if (!strcasecmp(subcmd, "shrink") || !strcasecmp(subcmd, "fold"))
+    group_state = group_fold;
+  else if (!strcasecmp(subcmd, "toggle"))
+    group_state = group_toggle;
+  else {
+    scr_LogPrint(LPRINT_NORMAL, "Unrecognized parameter!");
+    goto do_group_return;
+  }
+
+  if (group_state != group_unfold && leave_buddywindow)
+    scr_RosterPrevGroup();
+
+  buddy_hide_group(group, group_state);
+
+  buddylist_build();
+  update_roster = TRUE;
+
+do_group_return:
+  free_arg_lst(paramlst);
+}
+
+static int send_message_to(const char *fjid, const char *msg, const char *subj,
+                           LmMessageSubType type_overwrite, bool quiet)
+{
+  char *bare_jid, *rp;
+  char *hmsg;
+  gint crypted;
+  gint retval = 0;
+  int isroom;
+  gpointer xep184 = NULL;
+
+  if (!lm_connection_is_authenticated(lconnection)) {
+    scr_LogPrint(LPRINT_NORMAL, "You are not connected.");
+    return 1;
+  }
+  if (!fjid || !*fjid) {
+    scr_LogPrint(LPRINT_NORMAL, "You must specify a Jabber ID.");
+    return 1;
+  }
+  if (!msg || !*msg) {
+    scr_LogPrint(LPRINT_NORMAL, "You must specify a message.");
+    return 1;
+  }
+  if (check_jid_syntax((char*)fjid)) {
+    scr_LogPrint(LPRINT_NORMAL|LPRINT_NOTUTF8,
+                 "<%s> is not a valid Jabber ID.", fjid);
+    return 1;
+  }
+
+  // We must use the bare jid in hk_message_out()
+  rp = strchr(fjid, JID_RESOURCE_SEPARATOR);
+  if (rp)
+    bare_jid = g_strndup(fjid, rp - fjid);
+  else
+    bare_jid = (char*)fjid;
+
+  if (!quiet) {
+    // Jump to window, create one if needed
+    scr_RosterJumpJid(bare_jid);
+  }
+
+  // Check if we're sending a message to a conference room
+  // If not, we must make sure rp is NULL, for hk_message_out()
+  isroom = !!roster_find(bare_jid, jidsearch, ROSTER_TYPE_ROOM);
+  if (rp) {
+    if (isroom) rp++;
+    else rp = NULL;
+  }
+  isroom = isroom && (!rp || !*rp);
+
+  // local part (UI, logging, etc.)
+  if (subj)
+    hmsg = g_strdup_printf("[%s]\n%s", subj, msg);
+  else
+    hmsg = (char*)msg;
+
+  // Network part
+  xmpp_send_msg(fjid, msg, (isroom ? ROSTER_TYPE_ROOM : ROSTER_TYPE_USER),
+                subj, FALSE, &crypted, type_overwrite, &xep184);
+
+  if (crypted == -1) {
+    scr_LogPrint(LPRINT_LOGNORM, "Encryption error.  Message was not sent.");
+    retval = 1;
+    goto send_message_to_return;
+  }
+
+  // Hook
+  if (!isroom)
+    hk_message_out(bare_jid, rp, 0, hmsg, crypted, xep184);
+
+send_message_to_return:
+  if (hmsg != msg) g_free(hmsg);
+  if (rp) g_free(bare_jid);
+  return retval;
+}
+
+//  send_message(msg, subj, type_overwrite)
+// Write the message in the buddy's window and send the message on
+// the network.
+static void send_message(const char *msg, const char *subj,
+                         LmMessageSubType type_overwrite)
+{
+  const char *bjid;
+
+  if (!current_buddy) {
+    scr_LogPrint(LPRINT_NORMAL, "No buddy is currently selected.");
+    return;
+  }
+
+  bjid = CURRENT_JID;
+  if (!bjid) {
+    scr_LogPrint(LPRINT_NORMAL, "No buddy is currently selected.");
+    return;
+  }
+
+  send_message_to(bjid, msg, subj, type_overwrite, FALSE);
+}
+
+static LmMessageSubType scan_mtype(char **arg)
+{
+  //Try splitting it
+  char **parlist = split_arg(*arg, 2, 1);
+  LmMessageSubType result = LM_MESSAGE_SUB_TYPE_NOT_SET;
+  //Is it any good parameter?
+  if (parlist && *parlist) {
+    if (!strcmp("-n", *parlist)) {
+      result = LM_MESSAGE_SUB_TYPE_NORMAL;
+    } else if (!strcmp("-h", *parlist)) {
+      result = LM_MESSAGE_SUB_TYPE_HEADLINE;
+    }
+    if (result != LM_MESSAGE_SUB_TYPE_NOT_SET || (!strcmp("--", *parlist)))
+      *arg += strlen(*arg) - (parlist[1] ? strlen(parlist[1]) : 0);
+  }
+  //Anything found? -> skip it
+  free_arg_lst(parlist);
+  return result;
+}
+
+static void do_say_internal(char *arg, int parse_flags)
+{
+  gpointer bud;
+  LmMessageSubType msgtype = LM_MESSAGE_SUB_TYPE_NOT_SET;
+
+  scr_set_chatmode(TRUE);
+  scr_ShowBuddyWindow();
+
+  if (!current_buddy) {
+    scr_LogPrint(LPRINT_NORMAL,
+                 "Whom are you talking to?  Please select a buddy.");
+    return;
+  }
+
+  bud = BUDDATA(current_buddy);
+  if (!(buddy_gettype(bud) &
+        (ROSTER_TYPE_USER|ROSTER_TYPE_AGENT|ROSTER_TYPE_ROOM))) {
+    scr_LogPrint(LPRINT_NORMAL, "This is not a user.");
+    return;
+  }
+
+  buddy_setflags(bud, ROSTER_FLAG_LOCK, TRUE);
+  if (parse_flags)
+    msgtype = scan_mtype(&arg);
+  arg = to_utf8(arg);
+  send_message(arg, NULL, msgtype);
+  g_free(arg);
+}
+
+static void do_say(char *arg) {
+  do_say_internal(arg, 1);
+}
+
+static void do_msay(char *arg)
+{
+  /* Parameters: begin verbatim abort send send_to */
+  char **paramlst;
+  char *subcmd;
+
+  paramlst = split_arg(arg, 2, 1); // subcmd, arg
+  subcmd = *paramlst;
+  arg = *(paramlst+1);
+
+  if (!subcmd || !*subcmd) {
+    scr_LogPrint(LPRINT_NORMAL, "Missing parameter.");
+    scr_LogPrint(LPRINT_NORMAL, "Please read the manual before using "
+                 "the /msay command.");
+    scr_LogPrint(LPRINT_NORMAL, "(Use \"%s begin\" to enter "
+                 "multi-line mode...)", mkcmdstr("msay"));
+    goto do_msay_return;
+  }
+
+  if (!strcasecmp(subcmd, "toggle")) {
+    if (scr_get_multimode())
+      subcmd = "send";
+    else
+      subcmd = "begin";
+  } else if (!strcasecmp(subcmd, "toggle_verbatim")) {
+    if (scr_get_multimode())
+      subcmd = "send";
+    else
+      subcmd = "verbatim";
+  }
+
+  if (!strcasecmp(subcmd, "abort")) {
+    if (scr_get_multimode())
+      scr_LogPrint(LPRINT_NORMAL, "Leaving multi-line message mode.");
+    scr_set_multimode(FALSE, NULL);
+    goto do_msay_return;
+  } else if ((!strcasecmp(subcmd, "begin")) ||
+             (!strcasecmp(subcmd, "verbatim"))) {
+    bool verbat;
+    gchar *subj_utf8 = to_utf8(arg);
+    if (!strcasecmp(subcmd, "verbatim")) {
+      scr_set_multimode(2, subj_utf8);
+      verbat = TRUE;
+    } else {
+      scr_set_multimode(1, subj_utf8);
+      verbat = FALSE;
+    }
+
+    scr_LogPrint(LPRINT_NORMAL, "Entered %smulti-line message mode.",
+                 verbat ? "VERBATIM " : "");
+    scr_LogPrint(LPRINT_NORMAL, "Select a buddy and use \"%s send\" "
+                 "when your message is ready.", mkcmdstr("msay"));
+    if (verbat)
+      scr_LogPrint(LPRINT_NORMAL, "Use \"%s abort\" to abort this mode.",
+                   mkcmdstr("msay"));
+    g_free(subj_utf8);
+    goto do_msay_return;
+  } else if (strcasecmp(subcmd, "send") && strcasecmp(subcmd, "send_to")) {
+    scr_LogPrint(LPRINT_NORMAL, "Unrecognized parameter!");
+    goto do_msay_return;
+  }
+
+  /* send/send_to command */
+
+  if (!scr_get_multimode()) {
+    scr_LogPrint(LPRINT_NORMAL, "No message to send.  "
+                 "Use \"%s begin\" first.", mkcmdstr("msay"));
+    goto do_msay_return;
+  }
+
+  scr_set_chatmode(TRUE);
+  scr_ShowBuddyWindow();
+
+  if (!strcasecmp(subcmd, "send_to")) {
+    int err = FALSE;
+    gchar *msg_utf8;
+    LmMessageSubType msg_type = scan_mtype(&arg);
+    // Let's send to the specified JID.  We leave now if there
+    // has been an error (so we don't leave multi-line mode).
+    arg = to_utf8(arg);
+    msg_utf8 = to_utf8(scr_get_multiline());
+    if (msg_utf8) {
+      err = send_message_to(arg, msg_utf8, scr_get_multimode_subj(), msg_type,
+                            FALSE);
+      g_free(msg_utf8);
+    }
+    g_free(arg);
+    if (err)
+      goto do_msay_return;
+  } else { // Send to currently selected buddy
+    gpointer bud;
+    gchar *msg_utf8;
+
+    if (!current_buddy) {
+      scr_LogPrint(LPRINT_NORMAL, "Whom are you talking to?");
+      goto do_msay_return;
+    }
+
+    bud = BUDDATA(current_buddy);
+    if (!(buddy_gettype(bud) &
+          (ROSTER_TYPE_USER|ROSTER_TYPE_AGENT|ROSTER_TYPE_ROOM))) {
+      scr_LogPrint(LPRINT_NORMAL, "This is not a user.");
+      goto do_msay_return;
+    }
+
+    buddy_setflags(bud, ROSTER_FLAG_LOCK, TRUE);
+    msg_utf8 = to_utf8(scr_get_multiline());
+    if (msg_utf8) {
+      send_message(msg_utf8, scr_get_multimode_subj(), scan_mtype(&arg));
+      g_free(msg_utf8);
+    }
+  }
+  scr_set_multimode(FALSE, NULL);
+  scr_LogPrint(LPRINT_NORMAL, "You have left multi-line message mode.");
+do_msay_return:
+  free_arg_lst(paramlst);
+}
+
+//  load_message_from_file(filename)
+// Read the whole content of a file.
+// The data are converted to UTF8, they should be freed by the caller after
+// use.
+char *load_message_from_file(const char *filename)
+{
+  FILE *fd;
+  struct stat buf;
+  char *msgbuf, *msgbuf_utf8;
+  char *p;
+  char *next_utf8_char;
+  size_t len;
+
+  fd = fopen(filename, "r");
+
+  if (!fd || fstat(fileno(fd), &buf)) {
+    scr_LogPrint(LPRINT_LOGNORM, "Cannot open message file (%s)", filename);
+    return NULL;
+  }
+  if (!buf.st_size || buf.st_size >= HBB_BLOCKSIZE) {
+    if (!buf.st_size)
+      scr_LogPrint(LPRINT_LOGNORM, "Message file is empty (%s)", filename);
+    else
+      scr_LogPrint(LPRINT_LOGNORM, "Message file is too big (%s)", filename);
+    fclose(fd);
+    return NULL;
+  }
+
+  msgbuf = g_new0(char, HBB_BLOCKSIZE);
+  len = fread(msgbuf, 1, HBB_BLOCKSIZE-1, fd);
+  fclose(fd);
+
+  next_utf8_char = msgbuf;
+
+  // Check there is no binary data.  It must be a *message* file!
+  for (p = msgbuf ; *p ; p++) {
+    if (utf8_mode) {
+      if (p == next_utf8_char) {
+        if (!iswprint(get_char(p)) && *p != '\n' && *p != '\t')
+          break;
+        next_utf8_char = next_char(p);
+      }
+    } else {
+      unsigned char sc = *p;
+      if (!iswprint(sc) && sc != '\n' && sc != '\t')
+        break;
+    }
+  }
+
+  if (*p || (size_t)(p-msgbuf) != len) { // We're not at the End Of Line...
+    scr_LogPrint(LPRINT_LOGNORM, "Message file contains "
+                 "invalid characters (%s)", filename);
+    g_free(msgbuf);
+    return NULL;
+  }
+
+  // p is now at the EOL
+  // Let's strip trailing newlines
+  if (p > msgbuf)
+    p--;
+  while (p > msgbuf && *p == '\n')
+    *p-- = 0;
+
+  // It could be empty, once the trailing newlines are gone
+  if (p == msgbuf && *p == '\n') {
+    scr_LogPrint(LPRINT_LOGNORM, "Message file is empty (%s)", filename);
+    g_free(msgbuf);
+    return NULL;
+  }
+
+  msgbuf_utf8 = to_utf8(msgbuf);
+
+  if (!msgbuf_utf8 && msgbuf)
+    scr_LogPrint(LPRINT_LOGNORM, "Message file charset conversion error (%s)",
+                 filename);
+  g_free(msgbuf);
+  return msgbuf_utf8;
+}
+
+static void do_say_to(char *arg)
+{
+  char **paramlst;
+  char *fjid, *msg;
+  char *file = NULL;
+  LmMessageSubType msg_type = LM_MESSAGE_SUB_TYPE_NOT_SET;
+  bool quiet = FALSE;
+
+  if (!lm_connection_is_authenticated(lconnection)) {
+    scr_LogPrint(LPRINT_NORMAL, "You are not connected.");
+    return;
+  }
+
+  msg_type = scan_mtype(&arg);
+  paramlst = split_arg(arg, 2, 1); // jid, message (or option, jid, message)
+
+  if (!*paramlst) {  // No parameter?
+    scr_LogPrint(LPRINT_NORMAL, "Please specify a Jabber ID.");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  // Check for an option parameter
+  while (*paramlst) {
+    if (!strcmp(*paramlst, "-q")) {
+      char **oldparamlst = paramlst;
+      paramlst = split_arg(*(oldparamlst+1), 2, 1); // jid, message
+      free_arg_lst(oldparamlst);
+      quiet = TRUE;
+    } else if (!strcmp(*paramlst, "-f")) {
+      char **oldparamlst = paramlst;
+      paramlst = split_arg(*(oldparamlst+1), 2, 1); // filename, jid
+      free_arg_lst(oldparamlst);
+      if (!*paramlst) {
+        scr_LogPrint(LPRINT_NORMAL, "Wrong usage.");
+        return;
+      }
+      file = g_strdup(*paramlst);
+      // One more parameter shift...
+      oldparamlst = paramlst;
+      paramlst = split_arg(*(oldparamlst+1), 2, 1); // jid, nothing
+      free_arg_lst(oldparamlst);
+    } else
+      break;
+  }
+
+  if (!*paramlst) {
+    scr_LogPrint(LPRINT_NORMAL, "Wrong usage.");
+    return;
+  }
+
+  fjid = *paramlst;
+  msg = *(paramlst+1);
+
+  if (!strcmp(fjid, ".")) {
+    // Send the message to the current buddy
+    if (current_buddy)
+      fjid = (char*)buddy_getjid(BUDDATA(current_buddy));
+    if (!fjid) {
+      scr_LogPrint(LPRINT_NORMAL, "Please specify a Jabber ID.");
+      free_arg_lst(paramlst);
+      return;
+    }
+  } else if (check_jid_syntax(fjid)) {
+    scr_LogPrint(LPRINT_NORMAL, "Please specify a valid Jabber ID.");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  fjid = to_utf8(fjid);
+  if (!file) {
+    msg = to_utf8(msg);
+  } else {
+    char *filename_xp;
+    if (msg)
+      scr_LogPrint(LPRINT_NORMAL, "say_to: extra parameter ignored.");
+    filename_xp = expand_filename(file);
+    msg = load_message_from_file(filename_xp);
+    g_free(filename_xp);
+    g_free(file);
+  }
+
+  send_message_to(fjid, msg, NULL, msg_type, quiet);
+
+  g_free(fjid);
+  g_free(msg);
+  free_arg_lst(paramlst);
+}
+
+//  buffer_updown(updown, nblines)
+// updown: -1=up, +1=down
+inline static void buffer_updown(int updown, char *nlines)
+{
+  int nblines;
+
+  if (!nlines || !*nlines)
+    nblines = 0;
+  else
+    nblines = strtol(nlines, NULL, 10);
+
+  if (nblines >= 0)
+    scr_BufferScrollUpDown(updown, nblines);
+}
+
+static void buffer_search(int direction, char *arg)
+{
+  if (!arg || !*arg) {
+    scr_LogPrint(LPRINT_NORMAL, "Missing parameter.");
+    return;
+  }
+
+  scr_BufferSearch(direction, arg);
+}
+
+static void buffer_date(char *date)
+{
+  time_t t;
+
+  if (!date || !*date) {
+    scr_LogPrint(LPRINT_NORMAL, "Missing parameter.");
+    return;
+  }
+
+  strip_arg_special_chars(date);
+
+  t = from_iso8601(date, 0);
+  if (t)
+    scr_BufferDate(t);
+  else
+    scr_LogPrint(LPRINT_NORMAL, "The date you specified is "
+                 "not correctly formatted or invalid.");
+}
+
+static void buffer_percent(char *arg1, char *arg2)
+{
+  // Basically, user has typed "%arg1 arg2"
+  // "%50"  -> arg1 = 50, arg2 null pointer
+  // "% 50" -> arg1 = \0, arg2 = 50
+
+  if (!*arg1 && (!arg2 || !*arg2)) { // No value
+    scr_LogPrint(LPRINT_NORMAL, "Missing parameter.");
+    return;
+  }
+
+  if (*arg1 && arg2 && *arg2) {     // Two values
+    scr_LogPrint(LPRINT_NORMAL, "Wrong parameters.");
+    return;
+  }
+
+  scr_BufferPercent(atoi((*arg1 ? arg1 : arg2)));
+}
+
+static void do_buffer(char *arg)
+{
+  char **paramlst;
+  char *subcmd;
+
+  if (!current_buddy)
+    return;
+
+  paramlst = split_arg(arg, 2, 1); // subcmd, arg
+  subcmd = *paramlst;
+  arg = *(paramlst+1);
+
+  if (!subcmd || !*subcmd) {
+    scr_LogPrint(LPRINT_NORMAL, "Missing parameter.");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  if (buddy_gettype(BUDDATA(current_buddy)) & ROSTER_TYPE_GROUP &&
+      strcasecmp(subcmd, "close_all")) {
+    scr_LogPrint(LPRINT_NORMAL, "Groups have no buffer.");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  if (!strcasecmp(subcmd, "top")) {
+    scr_BufferTopBottom(-1);
+  } else if (!strcasecmp(subcmd, "bottom")) {
+    scr_BufferTopBottom(1);
+  } else if (!strcasecmp(subcmd, "clear")) {
+    scr_BufferClear();
+  } else if (!strcasecmp(subcmd, "close")) {
+    scr_BufferPurge(1, arg);
+  } else if (!strcasecmp(subcmd, "close_all")) {
+    scr_BufferPurgeAll(1);
+  } else if (!strcasecmp(subcmd, "purge")) {
+    scr_BufferPurge(0, arg);
+  } else if (!strcasecmp(subcmd, "scroll_lock")) {
+    scr_BufferScrollLock(1);
+  } else if (!strcasecmp(subcmd, "scroll_unlock")) {
+    scr_BufferScrollLock(0);
+  } else if (!strcasecmp(subcmd, "scroll_toggle")) {
+    scr_BufferScrollLock(-1);
+  } else if (!strcasecmp(subcmd, "up")) {
+    buffer_updown(-1, arg);
+  } else if (!strcasecmp(subcmd, "down")) {
+    buffer_updown(1, arg);
+  } else if (!strcasecmp(subcmd, "search_backward")) {
+    strip_arg_special_chars(arg);
+    buffer_search(-1, arg);
+  } else if (!strcasecmp(subcmd, "search_forward")) {
+    strip_arg_special_chars(arg);
+    buffer_search(1, arg);
+  } else if (!strcasecmp(subcmd, "date")) {
+    buffer_date(arg);
+  } else if (*subcmd == '%') {
+    buffer_percent(subcmd+1, arg);
+  } else if (!strcasecmp(subcmd, "save")) {
+    scr_BufferDump(arg);
+  } else if (!strcasecmp(subcmd, "list")) {
+    scr_BufferList();
+  } else {
+    scr_LogPrint(LPRINT_NORMAL, "Unrecognized parameter!");
+  }
+
+  free_arg_lst(paramlst);
+}
+
+static void do_clear(char *arg)    // Alias for "buffer clear"
+{
+  do_buffer("clear");
+}
+
+static void do_info(char *arg)
+{
+  gpointer bud;
+  const char *bjid, *name;
+  guint type, on_srv;
+  char *buffer;
+  enum subscr esub;
+
+  if (!current_buddy)
+    return;
+  bud = BUDDATA(current_buddy);
+
+  bjid   = buddy_getjid(bud);
+  name   = buddy_getname(bud);
+  type   = buddy_gettype(bud);
+  esub   = buddy_getsubscription(bud);
+  on_srv = buddy_getonserverflag(bud);
+
+  buffer = g_new(char, 4096);
+
+  if (bjid) {
+    GSList *resources, *p_res;
+    char *bstr = "unknown";
+
+    // Enter chat mode
+    scr_set_chatmode(TRUE);
+    scr_ShowBuddyWindow();
+
+    snprintf(buffer, 4095, "jid:  <%s>", bjid);
+    scr_WriteIncomingMessage(bjid, buffer, 0, HBB_PREFIX_INFO, 0);
+    if (name) {
+      snprintf(buffer, 4095, "Name: %s", name);
+      scr_WriteIncomingMessage(bjid, buffer, 0, HBB_PREFIX_INFO, 0);
+    }
+
+    if (type == ROSTER_TYPE_USER)       bstr = "user";
+    else if (type == ROSTER_TYPE_ROOM)  bstr = "chatroom";
+    else if (type == ROSTER_TYPE_AGENT) bstr = "agent";
+    snprintf(buffer, 127, "Type: %s", bstr);
+    scr_WriteIncomingMessage(bjid, buffer, 0, HBB_PREFIX_INFO, 0);
+
+    if (!on_srv) {
+      scr_WriteIncomingMessage(bjid, "(Local item, not on the server)",
+                               0, HBB_PREFIX_INFO, 0);
+    }
+
+    if (esub == sub_both)     bstr = "both";
+    else if (esub & sub_from) bstr = "from";
+    else if (esub & sub_to)   bstr = "to";
+    else bstr = "none";
+    snprintf(buffer, 64, "Subscription: %s", bstr);
+    if (esub & sub_pending)
+      strcat(buffer, " (pending)");
+    scr_WriteIncomingMessage(bjid, buffer, 0, HBB_PREFIX_INFO, 0);
+
+    resources = buddy_getresources(bud);
+    if (!resources && type == ROSTER_TYPE_USER) {
+      // No resource; display last status message, if any.
+      const char *rst_msg = buddy_getstatusmsg(bud, "");
+      if (rst_msg) {
+        snprintf(buffer, 4095, "Last status message: %s", rst_msg);
+        scr_WriteIncomingMessage(bjid, buffer, 0, HBB_PREFIX_INFO, 0);
+      }
+    }
+    for (p_res = resources ; p_res ; p_res = g_slist_next(p_res)) {
+      gchar rprio;
+      enum imstatus rstatus;
+      const char *rst_msg;
+      time_t rst_time;
+      struct pgp_data *rpgp;
+
+      rprio   = buddy_getresourceprio(bud, p_res->data);
+      rstatus = buddy_getstatus(bud, p_res->data);
+      rst_msg = buddy_getstatusmsg(bud, p_res->data);
+      rst_time = buddy_getstatustime(bud, p_res->data);
+      rpgp = buddy_resource_pgp(bud, p_res->data);
+
+      snprintf(buffer, 4095, "Resource: [%c] (%d) %s", imstatus2char[rstatus],
+               rprio, (char*)p_res->data);
+      scr_WriteIncomingMessage(bjid, buffer, 0, HBB_PREFIX_INFO, 0);
+      if (rst_msg) {
+        snprintf(buffer, 4095, "Status message: %s", rst_msg);
+        scr_WriteIncomingMessage(bjid, buffer,
+                                 0, HBB_PREFIX_INFO | HBB_PREFIX_CONT, 0);
+      }
+      if (rst_time) {
+        char tbuf[128];
+
+        strftime(tbuf, sizeof(tbuf), "%Y-%m-%d %H:%M:%S", localtime(&rst_time));
+        snprintf(buffer, 127, "Status timestamp: %s", tbuf);
+        scr_WriteIncomingMessage(bjid, buffer,
+                                 0, HBB_PREFIX_INFO | HBB_PREFIX_CONT, 0);
+      }
+#ifdef HAVE_GPGME
+      if (rpgp && rpgp->sign_keyid) {
+        snprintf(buffer, 4095, "PGP key id: %s", rpgp->sign_keyid);
+        scr_WriteIncomingMessage(bjid, buffer,
+                                 0, HBB_PREFIX_INFO | HBB_PREFIX_CONT, 0);
+        if (rpgp->last_sigsum) {
+          gpgme_sigsum_t ss = rpgp->last_sigsum;
+          snprintf(buffer, 4095, "Last PGP signature: %s",
+                  (ss & GPGME_SIGSUM_GREEN ? "good":
+                   (ss & GPGME_SIGSUM_RED ? "bad" : "unknown")));
+          scr_WriteIncomingMessage(bjid, buffer,
+                                   0, HBB_PREFIX_INFO | HBB_PREFIX_CONT, 0);
+        }
+      }
+#endif
+      g_free(p_res->data);
+    }
+    g_slist_free(resources);
+  } else {  /* Item has no jid */
+    if (name) scr_LogPrint(LPRINT_NORMAL, "Name: %s", name);
+    scr_LogPrint(LPRINT_NORMAL, "Type: %s",
+                 type == ROSTER_TYPE_GROUP ? "group" :
+                 (type == ROSTER_TYPE_SPECIAL ? "special" : "unknown"));
+  }
+  g_free(buffer);
+
+  // Tell the user if this item has an annotation.
+  if (type == ROSTER_TYPE_USER ||
+      type == ROSTER_TYPE_ROOM ||
+      type == ROSTER_TYPE_AGENT) {
+    struct annotation *note = xmpp_get_storage_rosternotes(bjid, TRUE);
+    if (note) {
+      // We do not display the note, we just tell the user.
+      g_free(note->text);
+      g_free(note->jid);
+      g_free(note);
+      scr_WriteIncomingMessage(bjid, "(This item has an annotation)", 0,
+                               HBB_PREFIX_INFO, 0);
+    }
+  }
+}
+
+// room_names() is a variation of do_info(), for chatrooms only
+static void room_names(gpointer bud, char *arg)
+{
+  const char *bjid;
+  char *buffer;
+  GSList *resources, *p_res;
+  enum { style_normal = 0, style_detail, style_short,
+         style_quiet, style_compact } style = 0;
+
+  if (*arg) {
+    if (!strcasecmp(arg, "--short"))
+      style = style_short;
+    else if (!strcasecmp(arg, "--quiet"))
+      style = style_quiet;
+    else if (!strcasecmp(arg, "--detail"))
+      style = style_detail;
+    else if (!strcasecmp(arg, "--compact"))
+      style = style_compact;
+    else {
+      scr_LogPrint(LPRINT_NORMAL, "Unrecognized parameter!");
+      return;
+    }
+  }
+
+  // Enter chat mode
+  scr_set_chatmode(TRUE);
+  scr_ShowBuddyWindow();
+
+  bjid = buddy_getjid(bud);
+
+  buffer = g_new(char, 4096);
+  strncpy(buffer, "Room members:", 127);
+  scr_WriteIncomingMessage(bjid, buffer, 0, HBB_PREFIX_INFO, 0);
+
+  resources = buddy_getresources(bud);
+  for (p_res = resources ; p_res ; p_res = g_slist_next(p_res)) {
+    enum imstatus rstatus;
+    const char *rst_msg;
+
+    rstatus = buddy_getstatus(bud, p_res->data);
+    rst_msg = buddy_getstatusmsg(bud, p_res->data);
+
+    if (style == style_short) {
+      snprintf(buffer, 4095, "[%c] %s%s%s", imstatus2char[rstatus],
+               (char*)p_res->data,
+               rst_msg ? " -- " : "", rst_msg ? rst_msg : "");
+      scr_WriteIncomingMessage(bjid, buffer, 0, HBB_PREFIX_INFO, 0);
+    } else if (style == style_compact) {
+        enum imrole role = buddy_getrole(bud, p_res->data);
+        enum imaffiliation affil = buddy_getaffil(bud, p_res->data);
+        bool showaffil = (affil != affil_none);
+
+        snprintf(buffer, 4095, "[%c] %s (%s%s%s)",
+                 imstatus2char[rstatus], (char*)p_res->data,
+                 showaffil ? straffil[affil] : "\0",
+                 showaffil ? "/" : "\0",
+                 strrole[role]);
+        scr_WriteIncomingMessage(bjid, buffer, 0, HBB_PREFIX_INFO, 0);
+      } else {
+      // (Style "normal", "detail" or "quiet")
+      snprintf(buffer, 4095, "[%c] %s", imstatus2char[rstatus],
+               (char*)p_res->data);
+      scr_WriteIncomingMessage(bjid, buffer, 0, HBB_PREFIX_INFO, 0);
+      if (rst_msg && style != style_quiet) {
+        snprintf(buffer, 4095, "Status message: %s", rst_msg);
+        scr_WriteIncomingMessage(bjid, buffer,
+                                 0, HBB_PREFIX_INFO | HBB_PREFIX_CONT, 0);
+      }
+      if (style == style_detail) {
+        enum imrole role = buddy_getrole(bud, p_res->data);
+        enum imaffiliation affil = buddy_getaffil(bud, p_res->data);
+
+        snprintf(buffer, 4095, "Role: %s", strrole[role]);
+        scr_WriteIncomingMessage(bjid, buffer,
+                                 0, HBB_PREFIX_INFO | HBB_PREFIX_CONT, 0);
+        if (affil != affil_none) {
+          snprintf(buffer, 4095, "Affiliat.: %s", straffil[affil]);
+          scr_WriteIncomingMessage(bjid, buffer,
+                                   0, HBB_PREFIX_INFO | HBB_PREFIX_CONT, 0);
+        }
+      }
+    }
+    g_free(p_res->data);
+  }
+  g_slist_free(resources);
+  g_free(buffer);
+}
+
+static void move_group_member(gpointer bud, void *groupnamedata)
+{
+  const char *bjid, *name, *groupname;
+
+  groupname = (char *)groupnamedata;
+
+  bjid = buddy_getjid(bud);
+  name = buddy_getname(bud);
+
+  xmpp_updatebuddy(bjid, name, *groupname ? groupname : NULL);
+}
+
+static void do_rename(char *arg)
+{
+  gpointer bud;
+  const char *bjid, *group;
+  guint type, on_srv;
+  char *newname, *p;
+  char *name_utf8;
+
+  if (!current_buddy)
+    return;
+  bud = BUDDATA(current_buddy);
+
+  bjid   = buddy_getjid(bud);
+  group  = buddy_getgroupname(bud);
+  type   = buddy_gettype(bud);
+  on_srv = buddy_getonserverflag(bud);
+
+  if (type & ROSTER_TYPE_SPECIAL) {
+    scr_LogPrint(LPRINT_NORMAL, "You can't rename this item.");
+    return;
+  }
+
+  if (!*arg && !(type & ROSTER_TYPE_GROUP)) {
+    scr_LogPrint(LPRINT_NORMAL, "Please specify a new name.");
+    return;
+  }
+
+  if (!(type & ROSTER_TYPE_GROUP) && !on_srv) {
+    scr_LogPrint(LPRINT_NORMAL,
+                 "Note: this item will be added to your server roster.");
+    // If this is a MUC room w/o bookmark, let's give a small hint...
+    if ((type & ROSTER_TYPE_ROOM) && !xmpp_is_bookmarked(bjid)) {
+      scr_LogPrint(LPRINT_NORMAL,
+                   "You should add a room bookmark or it will not be "
+                   "recognized as a MUC room next time you run mcabber.");
+    }
+  }
+
+  newname = g_strdup(arg);
+  // Remove trailing space
+  for (p = newname; *p; p++) ;
+  while (p > newname && *p == ' ') *p = 0;
+
+  strip_arg_special_chars(newname);
+
+  name_utf8 = to_utf8(newname);
+
+  if (type & ROSTER_TYPE_GROUP) {
+    // Rename a whole group
+    foreach_group_member(bud, &move_group_member, name_utf8);
+    // Let's jump to the previous buddy, because this group name should
+    // disappear when we receive the server answer.
+    scr_RosterUpDown(-1, 1);
+  } else {
+    // Rename a single buddy
+    guint del_name = 0;
+    if (!*newname || !strcmp(arg, "-"))
+      del_name = TRUE;
+    buddy_setname(bud, (del_name ? (char*)bjid : name_utf8));
+    xmpp_updatebuddy(bjid, (del_name ? NULL : name_utf8), group);
+  }
+
+  g_free(name_utf8);
+  g_free(newname);
+  update_roster = TRUE;
+}
+
+static void do_move(char *arg)
+{
+  gpointer bud;
+  const char *bjid, *name, *oldgroupname;
+  guint type;
+  char *newgroupname, *p;
+  char *group_utf8;
+
+  if (!current_buddy)
+    return;
+  bud = BUDDATA(current_buddy);
+
+  bjid = buddy_getjid(bud);
+  name = buddy_getname(bud);
+  type = buddy_gettype(bud);
+
+  oldgroupname = buddy_getgroupname(bud);
+
+  if (type & ROSTER_TYPE_GROUP) {
+    scr_LogPrint(LPRINT_NORMAL, "You can't move groups!");
+    return;
+  }
+  if (type & ROSTER_TYPE_SPECIAL) {
+    scr_LogPrint(LPRINT_NORMAL, "You can't move this item.");
+    return;
+  }
+
+  newgroupname = g_strdup(arg);
+  // Remove trailing space
+  for (p = newgroupname; *p; p++) ;
+  while (p > newgroupname && *p == ' ') *p-- = 0;
+
+  strip_arg_special_chars(newgroupname);
+
+  group_utf8 = to_utf8(newgroupname);
+  if (strcmp(oldgroupname, group_utf8)) {
+    guint msgflag;
+
+    xmpp_updatebuddy(bjid, name, *group_utf8 ? group_utf8 : NULL);
+    scr_RosterUpDown(-1, 1);
+
+    // If the buddy has a pending message flag,
+    // we remove it temporarily in order to reset the global group
+    // flag.  We set it back once the buddy is in the new group,
+    // which will update the new group's flag.
+    msgflag = buddy_getflags(bud) & ROSTER_FLAG_MSG;
+    if (msgflag)
+      roster_msg_setflag(bjid, FALSE, FALSE);
+    buddy_setgroup(bud, group_utf8);
+    if (msgflag)
+      roster_msg_setflag(bjid, FALSE, TRUE);
+  }
+
+  g_free(group_utf8);
+  g_free(newgroupname);
+  update_roster = TRUE;
+}
+
+static void print_option_cb(char *k, char *v, void *f)
+{
+  char *format = (char *)f;
+  scr_LogPrint (LPRINT_NORMAL, format, k, v);
+}
+
+static void do_set(char *arg)
+{
+  guint assign;
+  gchar *option, *value;
+  gchar *option_utf8;
+
+  if (!*arg) {
+    // list all set options
+    settings_foreach(SETTINGS_TYPE_OPTION, print_option_cb, "%s = [%s]");
+    return;
+  }
+
+  assign = parse_assigment(arg, &option, &value);
+  if (!option) {
+    scr_LogPrint(LPRINT_NORMAL, "Set what option?");
+    return;
+  }
+  option_utf8 = to_utf8(option);
+  g_free(option);
+  if (!assign) {  // This is a query
+    const char *val = settings_opt_get(option_utf8);
+    if (val)
+      scr_LogPrint(LPRINT_NORMAL, "%s = [%s]", option_utf8, val);
+    else
+      scr_LogPrint(LPRINT_NORMAL, "Option %s is not set", option_utf8);
+    g_free(option_utf8);
+    return;
+  }
+  // Update the option
+  // Maybe some options should be protected when user is connected (server,
+  // username, etc.).  And we should catch some options here, too
+  // (hide_offline_buddies for ex.)
+  if (!value) {
+    settings_del(SETTINGS_TYPE_OPTION, option_utf8);
+  } else {
+    gchar *value_utf8 = to_utf8(value);
+    settings_set(SETTINGS_TYPE_OPTION, option_utf8, value_utf8);
+    g_free(value_utf8);
+    g_free(value);
+  }
+  g_free(option_utf8);
+}
+
+static void dump_alias(char *k, char *v, void *param)
+{
+  scr_LogPrint(LPRINT_NORMAL|LPRINT_NOTUTF8, "Alias %s = %s", k, v);
+}
+
+static void do_alias(char *arg)
+{
+  guint assign;
+  gchar *alias, *value;
+
+  assign = parse_assigment(arg, &alias, &value);
+  if (!alias) {
+    settings_foreach(SETTINGS_TYPE_ALIAS, &dump_alias, NULL);
+    return;
+  }
+  if (!assign) {  // This is a query
+    const char *val = settings_get(SETTINGS_TYPE_ALIAS, alias);
+    // NOTE: LPRINT_NOTUTF8 here, see below why it isn't encoded...
+    if (val)
+      scr_LogPrint(LPRINT_NORMAL|LPRINT_NOTUTF8, "%s = %s", alias, val);
+    else
+      scr_LogPrint(LPRINT_NORMAL|LPRINT_NOTUTF8,
+                   "Alias '%s' does not exist", alias);
+    goto do_alias_return;
+  }
+  // Check the alias does not conflict with a registered command
+  if (cmd_get(alias)) {
+      scr_LogPrint(LPRINT_NORMAL|LPRINT_NOTUTF8,
+                   "'%s' is a reserved word!", alias);
+      goto do_alias_return;
+  }
+  // Update the alias
+  if (!value) {
+    if (settings_get(SETTINGS_TYPE_ALIAS, alias)) {
+      settings_del(SETTINGS_TYPE_ALIAS, alias);
+      // Remove alias from the completion list
+      compl_del_category_word(COMPL_CMD, alias);
+    }
+  } else {
+    /* Add alias to the completion list, if not already in.
+       NOTE: We're not UTF8-encoding "alias" and "value" here because UTF-8 is
+       not yet supported in the UI... (and we use the values in the completion
+       system)
+    */
+    if (!settings_get(SETTINGS_TYPE_ALIAS, alias))
+      compl_add_category_word(COMPL_CMD, alias);
+    settings_set(SETTINGS_TYPE_ALIAS, alias, value);
+    g_free(value);
+  }
+do_alias_return:
+  g_free(alias);
+}
+
+static void dump_bind(char *k, char *v, void *param)
+{
+  scr_LogPrint(LPRINT_NORMAL, "Key %4s is bound to: %s", k, v);
+}
+
+static void do_bind(char *arg)
+{
+  guint assign;
+  gchar *k_code, *value;
+
+  assign = parse_assigment(arg, &k_code, &value);
+  if (!k_code) {
+    settings_foreach(SETTINGS_TYPE_BINDING, &dump_bind, NULL);
+    return;
+  }
+  if (!assign) {  // This is a query
+    const char *val = settings_get(SETTINGS_TYPE_BINDING, k_code);
+    if (val)
+      scr_LogPrint(LPRINT_NORMAL, "Key %s is bound to: %s", k_code, val);
+    else
+      scr_LogPrint(LPRINT_NORMAL, "Key %s is not bound.", k_code);
+    g_free(k_code);
+    return;
+  }
+  // Update the key binding
+  if (!value) {
+    settings_del(SETTINGS_TYPE_BINDING, k_code);
+  } else {
+    gchar *value_utf8 = to_utf8(value);
+    settings_set(SETTINGS_TYPE_BINDING, k_code, value_utf8);
+    g_free(value_utf8);
+    g_free(value);
+  }
+  g_free(k_code);
+}
+
+static void do_rawxml(char *arg)
+{
+  char **paramlst;
+  char *subcmd;
+
+  if (!lm_connection_is_authenticated(lconnection)) {
+    scr_LogPrint(LPRINT_NORMAL, "You are not connected.");
+    return;
+  }
+
+  paramlst = split_arg(arg, 2, 1); // subcmd, arg
+  subcmd = *paramlst;
+  arg = *(paramlst+1);
+
+  if (!subcmd || !*subcmd) {
+    scr_LogPrint(LPRINT_NORMAL, "Please read the manual page"
+                 " before using /rawxml :-)");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  if (!strcasecmp(subcmd, "send"))  {
+    gchar *buffer;
+
+    if (!subcmd || !*subcmd) {
+      scr_LogPrint(LPRINT_NORMAL, "Missing parameter.");
+      free_arg_lst(paramlst);
+      return;
+    }
+
+    // We don't strip_arg_special_chars() here, because it would be a pain for
+    // the user to escape quotes in a XML stream...
+
+    buffer = to_utf8(arg);
+    if (buffer) {
+      scr_LogPrint(LPRINT_NORMAL, "Sending XML string");
+      lm_connection_send_raw(lconnection, buffer, NULL);
+      g_free(buffer);
+    } else {
+      scr_LogPrint(LPRINT_NORMAL, "Conversion error in XML string.");
+    }
+  } else {
+    scr_LogPrint(LPRINT_NORMAL, "Unrecognized parameter!");
+  }
+
+  free_arg_lst(paramlst);
+}
+
+//  check_room_subcommand(arg, param_needed, buddy_must_be_a_room)
+// - Check if this is a room, if buddy_must_be_a_room is not null
+// - Check there is at least 1 parameter, if param_needed is true
+// - Return null if one of the checks fails, or a pointer to the first
+//   non-space character.
+static char *check_room_subcommand(char *arg, bool param_needed,
+                                   gpointer buddy_must_be_a_room)
+{
+  if (buddy_must_be_a_room &&
+      !(buddy_gettype(buddy_must_be_a_room) & ROSTER_TYPE_ROOM)) {
+    scr_LogPrint(LPRINT_NORMAL, "This isn't a conference room.");
+    return NULL;
+  }
+
+  if (param_needed) {
+    if (!arg) {
+      scr_LogPrint(LPRINT_NORMAL, "Missing parameter.");
+      return NULL;
+    }
+  }
+
+  if (arg)
+    return arg;
+  else
+    return "";
+}
+
+static void room_join(gpointer bud, char *arg)
+{
+  char **paramlst;
+  char *roomname, *nick, *pass;
+  char *roomname_tmp = NULL;
+  char *pass_utf8;
+
+  paramlst = split_arg(arg, 3, 0); // roomid, nickname, password
+  roomname = *paramlst;
+  nick = *(paramlst+1);
+  pass = *(paramlst+2);
+
+  if (!roomname)
+    nick = NULL;
+  if (!nick)
+    pass = NULL;
+
+  if (!roomname || !strcmp(roomname, ".")) {
+    // If the current_buddy is recognized as a room, the room name
+    // can be omitted (or "." can be used).
+    if (!bud || !(buddy_gettype(bud) & ROSTER_TYPE_ROOM)) {
+      scr_LogPrint(LPRINT_NORMAL, "Please specify a room name.");
+      free_arg_lst(paramlst);
+      return;
+    }
+    roomname = (char*)buddy_getjid(bud);
+  } else if (strchr(roomname, '/')) {
+    scr_LogPrint(LPRINT_NORMAL, "Invalid room name.");
+    free_arg_lst(paramlst);
+    return;
+  } else {
+    // The room id has been specified.  Let's convert it and use it.
+    mc_strtolower(roomname);
+    roomname = roomname_tmp = to_utf8(roomname);
+  }
+
+  // If no nickname is provided with the /join command,
+  // we try to get a default nickname.
+  if (!nick || !*nick)
+    nick = default_muc_nickname(roomname);
+  else
+    nick = to_utf8(nick);
+  // If we still have no nickname, give up
+  if (!nick || !*nick) {
+    scr_LogPrint(LPRINT_NORMAL, "Please specify a nickname.");
+    g_free(nick);
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  pass_utf8 = to_utf8(pass);
+
+  xmpp_room_join(roomname, nick, pass_utf8);
+
+  scr_LogPrint(LPRINT_LOGNORM, "Sent a join request to <%s>...", roomname);
+
+  g_free(roomname_tmp);
+  g_free(nick);
+  g_free(pass_utf8);
+  buddylist_build();
+  update_roster = TRUE;
+  free_arg_lst(paramlst);
+}
+
+static void room_invite(gpointer bud, char *arg)
+{
+  char **paramlst;
+  const gchar *roomname;
+  char* fjid;
+  gchar *reason_utf8;
+
+  paramlst = split_arg(arg, 2, 1); // jid, [reason]
+  fjid = *paramlst;
+  arg = *(paramlst+1);
+  // An empty reason is no reason...
+  if (arg && !*arg)
+    arg = NULL;
+
+  if (!fjid || !*fjid) {
+    scr_LogPrint(LPRINT_NORMAL, "Missing or incorrect Jabber ID.");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  roomname = buddy_getjid(bud);
+  reason_utf8 = to_utf8(arg);
+  xmpp_room_invite(roomname, fjid, reason_utf8);
+  scr_LogPrint(LPRINT_LOGNORM, "Invitation sent to <%s>.", fjid);
+  g_free(reason_utf8);
+  free_arg_lst(paramlst);
+}
+
+static void room_affil(gpointer bud, char *arg)
+{
+  char **paramlst;
+  gchar *fjid, *rolename;
+  struct role_affil ra;
+  const char *roomid = buddy_getjid(bud);
+
+  paramlst = split_arg(arg, 3, 1); // jid, new_affil, [reason]
+  fjid = *paramlst;
+  rolename = *(paramlst+1);
+  arg = *(paramlst+2);
+
+  if (!fjid || !*fjid || !rolename || !*rolename) {
+    scr_LogPrint(LPRINT_NORMAL, "Please specify both a Jabber ID and a role.");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  ra.type = type_affil;
+  ra.val.affil = affil_none;
+  for (; ra.val.affil < imaffiliation_size; ra.val.affil++)
+    if (!strcasecmp(rolename, straffil[ra.val.affil]))
+      break;
+
+  if (ra.val.affil < imaffiliation_size) {
+    gchar *jid_utf8, *reason_utf8;
+    jid_utf8 = to_utf8(fjid);
+    reason_utf8 = to_utf8(arg);
+    xmpp_room_setattrib(roomid, jid_utf8, NULL, ra, reason_utf8);
+    g_free(jid_utf8);
+    g_free(reason_utf8);
+  } else
+    scr_LogPrint(LPRINT_NORMAL, "Wrong affiliation parameter.");
+
+  free_arg_lst(paramlst);
+}
+
+static void room_role(gpointer bud, char *arg)
+{
+  char **paramlst;
+  gchar *fjid, *rolename;
+  struct role_affil ra;
+  const char *roomid = buddy_getjid(bud);
+
+  paramlst = split_arg(arg, 3, 1); // jid, new_role, [reason]
+  fjid = *paramlst;
+  rolename = *(paramlst+1);
+  arg = *(paramlst+2);
+
+  if (!fjid || !*fjid || !rolename || !*rolename) {
+    scr_LogPrint(LPRINT_NORMAL, "Please specify both a Jabber ID and a role.");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  ra.type = type_role;
+  ra.val.role = role_none;
+  for (; ra.val.role < imrole_size; ra.val.role++)
+    if (!strcasecmp(rolename, strrole[ra.val.role]))
+      break;
+
+  if (ra.val.role < imrole_size) {
+    gchar *jid_utf8, *reason_utf8;
+    jid_utf8 = to_utf8(fjid);
+    reason_utf8 = to_utf8(arg);
+    xmpp_room_setattrib(roomid, jid_utf8, NULL, ra, reason_utf8);
+    g_free(jid_utf8);
+    g_free(reason_utf8);
+  } else
+    scr_LogPrint(LPRINT_NORMAL, "Wrong role parameter.");
+
+  free_arg_lst(paramlst);
+}
+
+
+// The expected argument is a Jabber id
+static void room_ban(gpointer bud, char *arg)
+{
+  char **paramlst;
+  gchar *fjid, *bjid;
+  const gchar *banjid;
+  gchar *jid_utf8, *reason_utf8;
+  struct role_affil ra;
+  const char *roomid = buddy_getjid(bud);
+
+  paramlst = split_arg(arg, 2, 1); // jid, [reason]
+  fjid = *paramlst;
+  arg = *(paramlst+1);
+
+  if (!fjid || !*fjid) {
+    scr_LogPrint(LPRINT_NORMAL, "Please specify a Jabber ID.");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  ra.type = type_affil;
+  ra.val.affil = affil_outcast;
+
+  bjid = jidtodisp(fjid);
+  jid_utf8 = to_utf8(bjid);
+
+  // If the argument doesn't look like a jid, we'll try to find a matching
+  // nickname.
+  if (!strchr(bjid, JID_DOMAIN_SEPARATOR) || check_jid_syntax(bjid)) {
+    const gchar *tmp;
+    // We want the initial argument, so the fjid variable, because
+    // we don't want to strip a resource-like string from the nickname!
+    g_free(jid_utf8);
+    jid_utf8 = to_utf8(fjid);
+    tmp = buddy_getrjid(bud, jid_utf8);
+    if (!tmp) {
+      scr_LogPrint(LPRINT_NORMAL, "Wrong JID or nickname");
+      goto room_ban_return;
+    }
+    banjid = jidtodisp(tmp);
+  } else
+    banjid = jid_utf8;
+
+  scr_LogPrint(LPRINT_NORMAL, "Requesting a ban for %s", banjid);
+
+  reason_utf8 = to_utf8(arg);
+  xmpp_room_setattrib(roomid, banjid, NULL, ra, reason_utf8);
+  g_free(reason_utf8);
+
+room_ban_return:
+  g_free(bjid);
+  g_free(jid_utf8);
+  free_arg_lst(paramlst);
+}
+
+// The expected argument is a Jabber id
+static void room_unban(gpointer bud, char *arg)
+{
+  gchar *fjid = arg;
+  gchar *jid_utf8;
+  struct role_affil ra;
+  const char *roomid = buddy_getjid(bud);
+
+  if (!fjid || !*fjid) {
+    scr_LogPrint(LPRINT_NORMAL, "Please specify a Jabber ID.");
+    return;
+  }
+
+  ra.type = type_affil;
+  ra.val.affil = affil_none;
+
+  jid_utf8 = to_utf8(fjid);
+  xmpp_room_setattrib(roomid, jid_utf8, NULL, ra, NULL);
+  g_free(jid_utf8);
+}
+
+// The expected argument is a nickname
+static void room_kick(gpointer bud, char *arg)
+{
+  char **paramlst;
+  gchar *nick;
+  gchar *nick_utf8, *reason_utf8;
+  struct role_affil ra;
+  const char *roomid = buddy_getjid(bud);
+
+  paramlst = split_arg(arg, 2, 1); // nickname, [reason]
+  nick = *paramlst;
+  arg = *(paramlst+1);
+
+  if (!nick || !*nick) {
+    scr_LogPrint(LPRINT_NORMAL, "Please specify a nickname.");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  ra.type = type_role;
+  ra.val.affil = role_none;
+
+  nick_utf8 = to_utf8(nick);
+  reason_utf8 = to_utf8(arg);
+  xmpp_room_setattrib(roomid, NULL, nick_utf8, ra, reason_utf8);
+  g_free(nick_utf8);
+  g_free(reason_utf8);
+
+  free_arg_lst(paramlst);
+}
+
+void cmd_room_leave(gpointer bud, char *arg)
+{
+  gchar *roomid, *desc;
+  const char *nickname;
+
+  nickname = buddy_getnickname(bud);
+  if (!nickname) {
+    scr_LogPrint(LPRINT_NORMAL, "You are not in this room.");
+    return;
+  }
+
+  roomid = g_strdup_printf("%s/%s", buddy_getjid(bud), nickname);
+  desc = to_utf8(arg);
+  xmpp_setstatus(offline, roomid, desc, TRUE);
+  g_free(desc);
+  g_free(roomid);
+}
+
+static void room_nick(gpointer bud, char *arg)
+{
+  if (!buddy_getinsideroom(bud)) {
+    scr_LogPrint(LPRINT_NORMAL, "You are not in this room.");
+    return;
+  }
+
+  if (!arg || !*arg) {
+    const char *nick = buddy_getnickname(bud);
+    if (nick)
+      scr_LogPrint(LPRINT_NORMAL, "Your nickname is: %s", nick);
+    else
+      scr_LogPrint(LPRINT_NORMAL, "You have no nickname in this room.");
+  } else {
+    gchar *nick = to_utf8(arg);
+    strip_arg_special_chars(nick);
+    xmpp_room_join(buddy_getjid(bud), nick, NULL);
+    g_free(nick);
+  }
+}
+
+static void room_privmsg(gpointer bud, char *arg)
+{
+  char **paramlst;
+  gchar *fjid_utf8, *nick, *nick_utf8, *msg;
+
+  paramlst = split_arg(arg, 2, 1); // nickname, message
+  nick = *paramlst;
+  arg = *(paramlst+1);
+
+  if (!nick || !*nick || !arg || !*arg) {
+    scr_LogPrint(LPRINT_NORMAL,
+                 "Please specify both a Jabber ID and a message.");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  nick_utf8 = to_utf8(nick);
+  fjid_utf8 = g_strdup_printf("%s/%s", buddy_getjid(bud), nick_utf8);
+  g_free (nick_utf8);
+  msg = to_utf8(arg);
+  send_message_to(fjid_utf8, msg, NULL, LM_MESSAGE_SUB_TYPE_NOT_SET, FALSE);
+  g_free(fjid_utf8);
+  g_free(msg);
+  free_arg_lst(paramlst);
+}
+
+static void room_remove(gpointer bud, char *arg)
+{
+  if (*arg) {
+    scr_LogPrint(LPRINT_NORMAL, "This action does not require a parameter; "
+                 "the currently-selected room will be removed.");
+    return;
+  }
+
+  // Quick check: if there are resources, we haven't left
+  if (buddy_getinsideroom(bud)) {
+    scr_LogPrint(LPRINT_NORMAL, "You haven't left this room!");
+    return;
+  }
+  // Delete the room
+  roster_del_user(buddy_getjid(bud));
+  scr_UpdateBuddyWindow();
+  buddylist_build();
+  update_roster = TRUE;
+}
+
+static void room_topic(gpointer bud, char *arg)
+{
+  if (!buddy_getinsideroom(bud)) {
+    scr_LogPrint(LPRINT_NORMAL, "You are not in this room.");
+    return;
+  }
+
+  // If no parameter is given, display the current topic
+  if (!*arg) {
+    const char *topic = buddy_gettopic(bud);
+    if (topic)
+      scr_LogPrint(LPRINT_NORMAL, "Topic: %s", topic);
+    else
+      scr_LogPrint(LPRINT_NORMAL, "No topic has been set.");
+    return;
+  }
+
+  // If arg is "-", let's clear the topic
+  if (!strcmp(arg, "-"))
+    arg = NULL;
+
+  arg = to_utf8(arg);
+  // Set the topic
+  xmpp_send_msg(buddy_getjid(bud), NULL, ROSTER_TYPE_ROOM, arg ? arg : "",
+                FALSE, NULL, LM_MESSAGE_SUB_TYPE_NOT_SET, NULL);
+  g_free(arg);
+}
+
+static void room_destroy(gpointer bud, char *arg)
+{
+  gchar *msg;
+
+  if (arg && *arg)
+    msg = to_utf8(arg);
+  else
+    msg = NULL;
+
+  xmpp_room_destroy(buddy_getjid(bud), NULL, msg);
+  g_free(msg);
+}
+
+static void room_unlock(gpointer bud, char *arg)
+{
+  if (*arg) {
+    scr_LogPrint(LPRINT_NORMAL, "Unknown parameter.");
+    return;
+  }
+
+  xmpp_room_unlock(buddy_getjid(bud));
+}
+
+static void room_setopt(gpointer bud, char *arg)
+{
+  char **paramlst;
+  char *param, *value;
+  enum { opt_none = 0, opt_printstatus, opt_autowhois } option = 0;
+
+  paramlst = split_arg(arg, 2, 1); // param, value
+  param = *paramlst;
+  value = *(paramlst+1);
+  if (!param) {
+    scr_LogPrint(LPRINT_NORMAL, "Please specify a room option.");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  if (!strcasecmp(param, "print_status"))
+    option = opt_printstatus;
+  else if (!strcasecmp(param, "auto_whois"))
+    option = opt_autowhois;
+  else {
+    scr_LogPrint(LPRINT_NORMAL, "Wrong option!");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  // If no value is given, display the current value
+  if (!value) {
+    const char *strval;
+    if (option == opt_printstatus)
+      strval = strprintstatus[buddy_getprintstatus(bud)];
+    else
+      strval = strautowhois[buddy_getautowhois(bud)];
+    scr_LogPrint(LPRINT_NORMAL, "%s is set to: %s", param, strval);
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  if (option == opt_printstatus) {
+    enum room_printstatus eval;
+    if (!strcasecmp(value, "none"))
+      eval = status_none;
+    else if (!strcasecmp(value, "in_and_out"))
+      eval = status_in_and_out;
+    else if (!strcasecmp(value, "all"))
+      eval = status_all;
+    else {
+      eval = status_default;
+      if (strcasecmp(value, "default") != 0)
+        scr_LogPrint(LPRINT_NORMAL, "Unrecognized value, assuming default...");
+    }
+    buddy_setprintstatus(bud, eval);
+  } else if (option == opt_autowhois) {
+    enum room_autowhois eval;
+    if (!strcasecmp(value, "on"))
+      eval = autowhois_on;
+    else if (!strcasecmp(value, "off"))
+      eval = autowhois_off;
+    else {
+      eval = autowhois_default;
+      if (strcasecmp(value, "default") != 0)
+        scr_LogPrint(LPRINT_NORMAL, "Unrecognized value, assuming default...");
+    }
+    buddy_setautowhois(bud, eval);
+  }
+
+  free_arg_lst(paramlst);
+}
+
+//  cmd_room_whois(..)
+// If interactive is TRUE, chatmode can be enabled.
+void cmd_room_whois(gpointer bud, char *arg, guint interactive)
+{
+  char **paramlst;
+  gchar *nick, *buffer;
+  const char *bjid, *realjid;
+  const char *rst_msg;
+  gchar rprio;
+  enum imstatus rstatus;
+  enum imrole role;
+  enum imaffiliation affil;
+  time_t rst_time;
+  guint msg_flag = HBB_PREFIX_INFO;
+
+  paramlst = split_arg(arg, 1, 0); // nickname
+  nick = *paramlst;
+
+  if (!nick || !*nick) {
+    scr_LogPrint(LPRINT_NORMAL, "Please specify a nickname.");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  nick = to_utf8(nick);
+
+  if (interactive) {
+    // Enter chat mode
+    scr_set_chatmode(TRUE);
+    scr_ShowBuddyWindow();
+  } else
+    msg_flag |= HBB_PREFIX_NOFLAG;
+
+  bjid = buddy_getjid(bud);
+  rstatus = buddy_getstatus(bud, nick);
+
+  if (rstatus == offline) {
+    scr_LogPrint(LPRINT_NORMAL, "No such member: %s", nick);
+    free_arg_lst(paramlst);
+    g_free(nick);
+    return;
+  }
+
+  rst_time = buddy_getstatustime(bud, nick);
+  rprio   = buddy_getresourceprio(bud, nick);
+  rst_msg = buddy_getstatusmsg(bud, nick);
+  if (!rst_msg) rst_msg = "";
+
+  role = buddy_getrole(bud, nick);
+  affil = buddy_getaffil(bud, nick);
+  realjid = buddy_getrjid(bud, nick);
+
+  buffer = g_new(char, 4096);
+
+  snprintf(buffer, 4095, "Whois [%s]", nick);
+  scr_WriteIncomingMessage(bjid, buffer, 0, msg_flag, 0);
+  snprintf(buffer, 4095, "Status   : [%c] %s", imstatus2char[rstatus],
+           rst_msg);
+  scr_WriteIncomingMessage(bjid, buffer, 0, msg_flag | HBB_PREFIX_CONT, 0);
+
+  if (rst_time) {
+    char tbuf[128];
+
+    strftime(tbuf, sizeof(tbuf), "%Y-%m-%d %H:%M:%S", localtime(&rst_time));
+    snprintf(buffer, 127, "Timestamp: %s", tbuf);
+    scr_WriteIncomingMessage(bjid, buffer, 0, msg_flag | HBB_PREFIX_CONT, 0);
+  }
+
+  if (realjid) {
+    snprintf(buffer, 4095, "JID      : <%s>", realjid);
+    scr_WriteIncomingMessage(bjid, buffer, 0, msg_flag | HBB_PREFIX_CONT, 0);
+  }
+
+  snprintf(buffer, 4095, "Role     : %s", strrole[role]);
+  scr_WriteIncomingMessage(bjid, buffer, 0, msg_flag | HBB_PREFIX_CONT, 0);
+  snprintf(buffer, 4095, "Affiliat.: %s", straffil[affil]);
+  scr_WriteIncomingMessage(bjid, buffer, 0, msg_flag | HBB_PREFIX_CONT, 0);
+  snprintf(buffer, 4095, "Priority : %d", rprio);
+  scr_WriteIncomingMessage(bjid, buffer, 0, msg_flag | HBB_PREFIX_CONT, 0);
+
+  scr_WriteIncomingMessage(bjid, "End of WHOIS", 0, msg_flag, 0);
+
+  g_free(buffer);
+  g_free(nick);
+  free_arg_lst(paramlst);
+}
+
+static void room_bookmark(gpointer bud, char *arg)
+{
+  const char *roomid;
+  const char *name = NULL, *nick = NULL;
+  char *tmpnick = NULL;
+  enum room_autowhois autowhois = 0;
+  enum room_printstatus printstatus = 0;
+  enum { bm_add = 0, bm_del = 1 } action = 0;
+  int autojoin = 0;
+  int nick_set = 0;
+
+  if (arg && *arg) {
+    // /room bookmark [add|del] [[+|-]autojoin] [-|nick]
+    char **paramlst;
+    char **pp;
+
+    paramlst = split_arg(arg, 3, 0); // At most 3 parameters
+    for (pp = paramlst; *pp; pp++) {
+      if (!strcasecmp(*pp, "add"))
+        action = bm_add;
+      else if (!strcasecmp(*pp, "del"))
+        action = bm_del;
+      else if (!strcasecmp(*pp, "-autojoin"))
+        autojoin = 0;
+      else if (!strcasecmp(*pp, "+autojoin") || !strcasecmp(*pp, "autojoin"))
+        autojoin = 1;
+      else if (!strcmp(*pp, "-"))
+        nick_set = 1;
+      else {
+        nick_set = 1;
+        nick = tmpnick = to_utf8 (*pp);
+      }
+    }
+    free_arg_lst(paramlst);
+  }
+
+  roomid = buddy_getjid(bud);
+
+  if (action == bm_add) {
+    name = buddy_getname(bud);
+    if (!nick_set)
+      nick = buddy_getnickname(bud);
+    printstatus = buddy_getprintstatus(bud);
+    autowhois   = buddy_getautowhois(bud);
+  }
+
+  xmpp_set_storage_bookmark(roomid, name, nick, NULL, autojoin,
+                            printstatus, autowhois);
+  g_free (tmpnick);
+}
+
+static void display_all_bookmarks(void)
+{
+  GSList *bm, *bmp;
+  GString *sbuf;
+  struct bookmark *bm_elt;
+
+  bm = xmpp_get_all_storage_bookmarks();
+
+  if (!bm)
+    return;
+
+  sbuf = g_string_new("");
+
+  scr_WriteIncomingMessage(NULL, "List of MUC bookmarks:",
+                           0, HBB_PREFIX_INFO, 0);
+
+  for (bmp = bm; bmp; bmp = g_slist_next(bmp)) {
+    bm_elt = bmp->data;
+    g_string_printf(sbuf, "%c <%s>",
+                    (bm_elt->autojoin ? '*' : ' '), bm_elt->roomjid);
+    if (bm_elt->nick)
+      g_string_append_printf(sbuf, " (%s)", bm_elt->nick);
+    if (bm_elt->name)
+      g_string_append_printf(sbuf, " %s", bm_elt->name);
+    g_free(bm_elt->roomjid);
+    g_free(bm_elt->name);
+    g_free(bm_elt->nick);
+    g_free(bm_elt);
+    scr_WriteIncomingMessage(NULL, sbuf->str,
+                             0, HBB_PREFIX_INFO | HBB_PREFIX_CONT, 0);
+  }
+
+  scr_setmsgflag_if_needed(SPECIAL_BUFFER_STATUS_ID, TRUE);
+  update_roster = TRUE;
+  g_string_free(sbuf, TRUE);
+  g_slist_free(bm);
+}
+
+#ifdef MODULES_ENABLE
+static gint module_list_comparator(gconstpointer arg1, gconstpointer arg2)
+{
+  const loaded_module_t *module = arg1;
+  const char *name = arg2;
+  return g_strcmp0(module->name, name);
+}
+
+static void do_load(char *arg)
+{
+  GModule *mod;
+  GSList *lmod;
+  char *mdir, *path;
+  if (!arg || !*arg) {
+    scr_LogPrint(LPRINT_LOGNORM, "Missing modulename.");
+    return;
+  }
+  lmod = g_slist_find_custom(loaded_modules, arg, module_list_comparator);
+  if (lmod) {
+    scr_LogPrint(LPRINT_LOGNORM, "Module %s is already loaded.", arg);
+    return;
+  }
+  mdir = expand_filename(settings_opt_get("modules_dir"));
+  path = g_module_build_path(mdir, arg);
+  mod  = g_module_open(path, G_MODULE_BIND_LAZY);
+  if (!mod)
+    scr_LogPrint(LPRINT_LOGNORM, "Module loading failed: %s",
+                 g_module_error());
+  else {
+    loaded_module_t *module = g_new(loaded_module_t, 1);
+    module->name   = g_strdup(arg);
+    module->module = mod;
+    loaded_modules = g_slist_prepend(loaded_modules, module);
+    scr_LogPrint(LPRINT_LOGNORM, "Loaded module %s.", arg);
+  }
+  g_free(path);
+  g_free(mdir);
+}
+
+static void do_unload(char *arg)
+{
+  GSList *module;
+  if (!arg || !*arg) {
+    scr_LogPrint(LPRINT_LOGNORM, "Missing modulename.");
+    return;
+  }
+  module = g_slist_find_custom(loaded_modules, arg, module_list_comparator);
+  if (module) {
+    loaded_module_t *mod = module->data;
+    if (!g_module_close(mod->module))
+      scr_LogPrint(LPRINT_LOGNORM, "Module unloading failed: %s",
+                   g_module_error());
+    else {
+      g_free(mod->name);
+      g_free(mod);
+      loaded_modules = g_slist_delete_link(loaded_modules, module);
+      scr_LogPrint(LPRINT_LOGNORM, "Unloaded module %s.", arg);
+    }
+  } else
+    scr_LogPrint(LPRINT_LOGNORM, "Module %s not loaded.", arg);
+}
+#endif
+
+static void do_room(char *arg)
+{
+  char **paramlst;
+  char *subcmd;
+  gpointer bud;
+
+  if (!lm_connection_is_authenticated(lconnection)) {
+    scr_LogPrint(LPRINT_NORMAL, "You are not connected.");
+    return;
+  }
+
+  paramlst = split_arg(arg, 2, 1); // subcmd, arg
+  subcmd = *paramlst;
+  arg = *(paramlst+1);
+
+  if (!subcmd || !*subcmd) {
+    scr_LogPrint(LPRINT_NORMAL, "Missing parameter.");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  if (current_buddy) {
+    bud = BUDDATA(current_buddy);
+  } else {
+    if (strcasecmp(subcmd, "join")) {
+      free_arg_lst(paramlst);
+      return;
+    }
+    // "room join" is a special case, we don't need to have a valid
+    // current_buddy.
+    bud = NULL;
+  }
+
+  if (!strcasecmp(subcmd, "join"))  {
+    if ((arg = check_room_subcommand(arg, FALSE, NULL)) != NULL)
+      room_join(bud, arg);
+  } else if (!strcasecmp(subcmd, "invite"))  {
+    if ((arg = check_room_subcommand(arg, TRUE, bud)) != NULL)
+      room_invite(bud, arg);
+  } else if (!strcasecmp(subcmd, "affil"))  {
+    if ((arg = check_room_subcommand(arg, TRUE, bud)) != NULL)
+      room_affil(bud, arg);
+  } else if (!strcasecmp(subcmd, "role"))  {
+    if ((arg = check_room_subcommand(arg, TRUE, bud)) != NULL)
+      room_role(bud, arg);
+  } else if (!strcasecmp(subcmd, "ban"))  {
+    if ((arg = check_room_subcommand(arg, TRUE, bud)) != NULL)
+      room_ban(bud, arg);
+  } else if (!strcasecmp(subcmd, "unban"))  {
+    if ((arg = check_room_subcommand(arg, TRUE, bud)) != NULL)
+      room_unban(bud, arg);
+  } else if (!strcasecmp(subcmd, "kick"))  {
+    if ((arg = check_room_subcommand(arg, TRUE, bud)) != NULL)
+      room_kick(bud, arg);
+  } else if (!strcasecmp(subcmd, "leave"))  {
+    if ((arg = check_room_subcommand(arg, FALSE, bud)) != NULL)
+      cmd_room_leave(bud, arg);
+  } else if (!strcasecmp(subcmd, "names"))  {
+    if ((arg = check_room_subcommand(arg, FALSE, bud)) != NULL)
+      room_names(bud, arg);
+  } else if (!strcasecmp(subcmd, "nick"))  {
+    if ((arg = check_room_subcommand(arg, FALSE, bud)) != NULL)
+      room_nick(bud, arg);
+  } else if (!strcasecmp(subcmd, "privmsg"))  {
+    if ((arg = check_room_subcommand(arg, TRUE, bud)) != NULL)
+      room_privmsg(bud, arg);
+  } else if (!strcasecmp(subcmd, "remove"))  {
+    if ((arg = check_room_subcommand(arg, FALSE, bud)) != NULL)
+      room_remove(bud, arg);
+  } else if (!strcasecmp(subcmd, "destroy"))  {
+    if ((arg = check_room_subcommand(arg, FALSE, bud)) != NULL)
+      room_destroy(bud, arg);
+  } else if (!strcasecmp(subcmd, "unlock"))  {
+    if ((arg = check_room_subcommand(arg, FALSE, bud)) != NULL)
+      room_unlock(bud, arg);
+  } else if (!strcasecmp(subcmd, "setopt"))  {
+    if ((arg = check_room_subcommand(arg, FALSE, bud)) != NULL)
+      room_setopt(bud, arg);
+  } else if (!strcasecmp(subcmd, "topic"))  {
+    if ((arg = check_room_subcommand(arg, FALSE, bud)) != NULL)
+      room_topic(bud, arg);
+  } else if (!strcasecmp(subcmd, "whois"))  {
+    if ((arg = check_room_subcommand(arg, TRUE, bud)) != NULL)
+      cmd_room_whois(bud, arg, TRUE);
+  } else if (!strcasecmp(subcmd, "bookmark"))  {
+    if (!arg && !buddy_getjid(BUDDATA(current_buddy)) &&
+        buddy_gettype(BUDDATA(current_buddy)) == ROSTER_TYPE_SPECIAL)
+      display_all_bookmarks();
+    else if ((arg = check_room_subcommand(arg, FALSE, bud)) != NULL)
+      room_bookmark(bud, arg);
+  } else {
+    scr_LogPrint(LPRINT_NORMAL, "Unrecognized parameter!");
+  }
+
+  free_arg_lst(paramlst);
+}
+
+static void do_authorization(char *arg)
+{
+  char **paramlst;
+  char *subcmd;
+  char *jid_utf8;
+
+  if (!lm_connection_is_authenticated(lconnection)) {
+    scr_LogPrint(LPRINT_NORMAL, "You are not connected.");
+    return;
+  }
+
+  paramlst = split_arg(arg, 2, 0); // subcmd, [jid]
+  subcmd = *paramlst;
+  arg = *(paramlst+1);
+
+  if (!subcmd || !*subcmd) {
+    scr_LogPrint(LPRINT_NORMAL, "Missing parameter.");
+    goto do_authorization_return;
+  }
+
+  // Use the provided jid, if it looks valid
+  if (arg) {
+    if (!*arg) {
+      // If no jid is provided, we use the current selected buddy
+      arg = NULL;
+    } else {
+      if (check_jid_syntax(arg)) {
+        scr_LogPrint(LPRINT_NORMAL|LPRINT_NOTUTF8,
+                     "<%s> is not a valid Jabber ID.", arg);
+        goto do_authorization_return;
+      }
+    }
+  }
+
+  if (!arg) {       // Use the current selected buddy's jid
+    gpointer bud;
+    guint type;
+
+    if (!current_buddy)
+      goto do_authorization_return;
+    bud = BUDDATA(current_buddy);
+
+    jid_utf8 = arg  = (char*)buddy_getjid(bud);
+    type = buddy_gettype(bud);
+
+    if (!(type & (ROSTER_TYPE_USER|ROSTER_TYPE_AGENT))) {
+      scr_LogPrint(LPRINT_NORMAL, "Invalid buddy.");
+      goto do_authorization_return;
+    }
+  } else {
+    jid_utf8 = to_utf8(arg);
+  }
+
+  if (!strcasecmp(subcmd, "allow"))  {
+    xmpp_send_s10n(jid_utf8, LM_MESSAGE_SUB_TYPE_SUBSCRIBED);
+    scr_LogPrint(LPRINT_LOGNORM,
+                 "Sent presence subscription approval to <%s>.",
+                 jid_utf8);
+  } else if (!strcasecmp(subcmd, "cancel"))  {
+    xmpp_send_s10n(jid_utf8, LM_MESSAGE_SUB_TYPE_UNSUBSCRIBED);
+    scr_LogPrint(LPRINT_LOGNORM,
+                 "<%s> will no longer receive your presence updates.",
+                 jid_utf8);
+  } else if (!strcasecmp(subcmd, "request"))  {
+    xmpp_send_s10n(jid_utf8, LM_MESSAGE_SUB_TYPE_SUBSCRIBE);
+    scr_LogPrint(LPRINT_LOGNORM,
+                 "Sent presence notification request to <%s>.", jid_utf8);
+  } else if (!strcasecmp(subcmd, "request_unsubscribe"))  {
+    xmpp_send_s10n(jid_utf8, LM_MESSAGE_SUB_TYPE_UNSUBSCRIBE);
+    scr_LogPrint(LPRINT_LOGNORM,
+                 "Sent presence notification unsubscription request to <%s>.",
+                 jid_utf8);
+  } else {
+    scr_LogPrint(LPRINT_NORMAL, "Unrecognized parameter!");
+  }
+
+  // Only free jid_utf8 if it has been allocated, i.e. if != arg.
+  if (jid_utf8 && jid_utf8 != arg)
+    g_free(jid_utf8);
+do_authorization_return:
+  free_arg_lst(paramlst);
+}
+
+static void do_version(char *arg)
+{
+  gchar *ver = mcabber_version();
+  scr_LogPrint(LPRINT_NORMAL, "This is mcabber version %s.", ver);
+  g_free(ver);
+}
+
+static void do_request(char *arg)
+{
+  char **paramlst;
+  char *fjid, *type;
+  enum iqreq_type numtype = iqreq_none;
+  char *jid_utf8 = NULL;
+
+  paramlst = split_arg(arg, 2, 0); // type, jid
+  type = *paramlst;
+  fjid = *(paramlst+1);
+
+  if (type) {
+    // Quick check...
+    if (!strcasecmp(type, "version"))
+      numtype = iqreq_version;
+    else if (!strcasecmp(type, "time"))
+      numtype = iqreq_time;
+    else if (!strcasecmp(type, "last"))
+      numtype = iqreq_last;
+    else if (!strcasecmp(type, "vcard"))
+      numtype = iqreq_vcard;
+  }
+
+  if (!type || !numtype) {
+    scr_LogPrint(LPRINT_NORMAL,
+                 "Please specify a query type (version, time...).");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  if (!lm_connection_is_authenticated(lconnection)) {
+    scr_LogPrint(LPRINT_NORMAL, "You are not connected.");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  // Allow special jid "" or "." (current buddy)
+  if (fjid && (!*fjid || !strcmp(fjid, ".")))
+    fjid = NULL;
+
+  if (fjid) {
+    // The JID has been specified.  Quick check...
+    if (check_jid_syntax(fjid)) {
+      scr_LogPrint(LPRINT_NORMAL|LPRINT_NOTUTF8,
+                   "<%s> is not a valid Jabber ID.", fjid);
+      fjid = NULL;
+    } else {
+      // Convert jid to lowercase
+      char *p;
+      for (p = fjid; *p && *p != JID_RESOURCE_SEPARATOR; p++)
+        *p = tolower(*p);
+      fjid = jid_utf8 = to_utf8(fjid);
+    }
+  } else {
+    // Add the current buddy
+    if (current_buddy)
+      fjid = (char*)buddy_getjid(BUDDATA(current_buddy));
+    if (!fjid)
+      scr_LogPrint(LPRINT_NORMAL, "Please specify a Jabber ID.");
+  }
+
+  if (fjid) {
+    switch (numtype) {
+      case iqreq_version:
+      case iqreq_time:
+      case iqreq_last:
+      case iqreq_vcard:
+          xmpp_request(fjid, numtype);
+          break;
+      default:
+          break;
+    }
+  }
+  g_free(jid_utf8);
+  free_arg_lst(paramlst);
+}
+
+static void do_event(char *arg)
+{
+  char **paramlst;
+  char *evid, *subcmd;
+  int action = -1;
+  GSList *evidlst;
+
+  paramlst = split_arg(arg, 2, 0); // id, subcmd
+  evid = *paramlst;
+  subcmd = *(paramlst+1);
+
+  if (!evid || !subcmd) {
+    // Special case: /event list
+    if (evid && !strcasecmp(evid, "list"))
+      evs_display_list();
+    else
+      scr_LogPrint(LPRINT_NORMAL,
+                   "Missing parameter.  Usage: /event num action");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  if (!strcasecmp(subcmd, "reject"))
+    action = 0;
+  else if (!strcasecmp(subcmd, "accept"))
+    action = 1;
+  else if (!strcasecmp(subcmd, "ignore"))
+    action = 2;
+
+  if (action == -1) {
+    scr_LogPrint(LPRINT_NORMAL, "Wrong action parameter.");
+  } else if (action >= 0 && action <= 2) {
+    GSList *p;
+
+    if (action == 2) {
+      action = EVS_CONTEXT_CANCEL;
+    } else {
+      action += EVS_CONTEXT_USER;
+    }
+
+    if (!strcmp(evid, "*")) {
+      // Use completion list
+      evidlst = evs_geteventslist(FALSE);
+    } else {
+      // Let's create a slist with the provided event id
+      evidlst = g_slist_append(NULL, g_strdup(evid));
+    }
+    for (p = evidlst; p; p = g_slist_next(p)) {
+      if (evs_callback(p->data, action) == -1) {
+        scr_LogPrint(LPRINT_NORMAL, "Event %s not found.", p->data);
+      }
+      g_free(p->data);
+    }
+    g_slist_free(evidlst);
+  }
+
+  free_arg_lst(paramlst);
+}
+
+static void do_pgp(char *arg)
+{
+  char **paramlst;
+  char *fjid, *subcmd, *keyid;
+  enum {
+    pgp_none,
+    pgp_enable,
+    pgp_disable,
+    pgp_setkey,
+    pgp_force,
+    pgp_info
+  } op = 0;
+  int force = FALSE;
+
+  paramlst = split_arg(arg, 3, 0); // subcmd, jid, [key]
+  subcmd = *paramlst;
+  fjid = *(paramlst+1);
+  keyid = *(paramlst+2);
+
+  if (!subcmd)
+    fjid = NULL;
+  if (!fjid)
+    keyid = NULL;
+
+  if (subcmd) {
+    if (!strcasecmp(subcmd, "enable"))
+      op = pgp_enable;
+    else if (!strcasecmp(subcmd, "disable"))
+      op = pgp_disable;
+    else if (!strcasecmp(subcmd, "setkey"))
+      op = pgp_setkey;
+    else if ((!strcasecmp(subcmd, "force")) ||
+             (!strcasecmp(subcmd, "+force"))) {
+      op = pgp_force;
+      force = TRUE;
+    } else if (!strcasecmp(subcmd, "-force"))
+      op = pgp_force;
+    else if (!strcasecmp(subcmd, "info"))
+      op = pgp_info;
+  }
+
+  if (!op) {
+    scr_LogPrint(LPRINT_NORMAL, "Unrecognized or missing parameter!");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  // Allow special jid "" or "." (current buddy)
+  if (fjid && (!*fjid || !strcmp(fjid, ".")))
+    fjid = NULL;
+
+  if (fjid) {
+    // The JID has been specified.  Quick check...
+    if (check_jid_syntax(fjid) || !strchr(fjid, '@')) {
+      scr_LogPrint(LPRINT_NORMAL|LPRINT_NOTUTF8,
+                   "<%s> is not a valid Jabber ID.", fjid);
+      fjid = NULL;
+    } else {
+      // Convert jid to lowercase and strip resource
+      char *p;
+      for (p = fjid; *p && *p != JID_RESOURCE_SEPARATOR; p++)
+        *p = tolower(*p);
+      if (*p == JID_RESOURCE_SEPARATOR)
+        *p = '\0';
+    }
+  } else {
+    gpointer bud = NULL;
+    if (current_buddy)
+      bud = BUDDATA(current_buddy);
+    if (bud) {
+      guint type = buddy_gettype(bud);
+      if (type & ROSTER_TYPE_USER)  // Is it a user?
+        fjid = (char*)buddy_getjid(bud);
+      else
+        scr_LogPrint(LPRINT_NORMAL, "The selected item should be a user.");
+    }
+  }
+
+  if (fjid) { // fjid is actually a bare jid...
+    guint disabled;
+    GString *sbuf;
+    switch (op) {
+      case pgp_enable:
+      case pgp_disable:
+          settings_pgp_setdisabled(fjid, (op == pgp_disable ? TRUE : FALSE));
+          break;
+      case pgp_force:
+          settings_pgp_setforce(fjid, force);
+          break;
+      case pgp_setkey:
+          settings_pgp_setkeyid(fjid, keyid);
+          break;
+      case pgp_info:
+          sbuf = g_string_new("");
+          if (settings_pgp_getkeyid(fjid)) {
+            g_string_printf(sbuf, "PGP Encryption key id: %s",
+                            settings_pgp_getkeyid(fjid));
+            scr_WriteIncomingMessage(fjid, sbuf->str, 0, HBB_PREFIX_INFO, 0);
+          }
+          disabled = settings_pgp_getdisabled(fjid);
+          g_string_printf(sbuf, "PGP encryption is %s",
+                          (disabled ?  "disabled" : "enabled"));
+          scr_WriteIncomingMessage(fjid, sbuf->str, 0, HBB_PREFIX_INFO, 0);
+          if (!disabled && settings_pgp_getforce(fjid)) {
+            scr_WriteIncomingMessage(fjid,
+                                     "Encryption enforced (no negotiation)",
+                                     0, HBB_PREFIX_INFO, 0);
+          }
+          g_string_free(sbuf, TRUE);
+          break;
+      default:
+          break;
+    }
+  } else {
+    scr_LogPrint(LPRINT_NORMAL, "Please specify a valid Jabber ID.");
+  }
+
+  free_arg_lst(paramlst);
+}
+
+static void do_otr(char *arg)
+{
+#ifdef HAVE_LIBOTR
+  char **paramlst;
+  char *fjid, *subcmd, *keyid;
+  enum {
+    otr_none,
+    otr_start,
+    otr_stop,
+    otr_fpr,
+    otr_smpq,
+    otr_smpr,
+    otr_smpa,
+    otr_k,
+    otr_info
+  } op = 0;
+
+  if (!otr_enabled()) {
+    scr_LogPrint(LPRINT_LOGNORM,
+                 "Warning: OTR hasn't been enabled -- command ignored.");
+    return;
+  }
+
+  paramlst = split_arg(arg, 3, 0); // subcmd, jid, [key]
+  subcmd = *paramlst;
+  fjid = *(paramlst+1);
+  keyid = *(paramlst+2);
+
+  if (!subcmd)
+    fjid = NULL;
+  if (!fjid)
+    keyid = NULL;
+
+  if (subcmd) {
+    if (!strcasecmp(subcmd, "start"))
+      op = otr_start;
+    else if (!strcasecmp(subcmd, "stop"))
+      op = otr_stop;
+    else if (!strcasecmp(subcmd, "fingerprint"))
+      op = otr_fpr;
+    else if (!strcasecmp(subcmd, "smpq"))
+      op = otr_smpq;
+    else if (!strcasecmp(subcmd, "smpr"))
+      op = otr_smpr;
+    else if (!strcasecmp(subcmd, "smpa"))
+      op = otr_smpa;
+    else if (!strcasecmp(subcmd, "key"))
+      op = otr_k;
+    else if (!strcasecmp(subcmd, "info"))
+      op = otr_info;
+  }
+
+  if (!op) {
+    scr_LogPrint(LPRINT_NORMAL, "Unrecognized or missing parameter!");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  if (op == otr_k)
+    otr_key();
+  else {
+    // Allow special jid "" or "." (current buddy)
+    if (fjid && (!*fjid || !strcmp(fjid, ".")))
+      fjid = NULL;
+
+    if (fjid) {
+      // The JID has been specified.  Quick check...
+      if (check_jid_syntax(fjid) || !strchr(fjid, '@')) {
+        scr_LogPrint(LPRINT_NORMAL|LPRINT_NOTUTF8,
+                     "<%s> is not a valid Jabber ID.", fjid);
+        fjid = NULL;
+      } else {
+        // Convert jid to lowercase and strip resource
+        char *p;
+        for (p = fjid; *p && *p != JID_RESOURCE_SEPARATOR; p++)
+          *p = tolower(*p);
+        if (*p == JID_RESOURCE_SEPARATOR)
+          *p = '\0';
+      }
+    } else {
+      gpointer bud = NULL;
+      if (current_buddy)
+        bud = BUDDATA(current_buddy);
+      if (bud) {
+        guint type = buddy_gettype(bud);
+        if (type & ROSTER_TYPE_USER)  // Is it a user?
+          fjid = (char*)buddy_getjid(bud);
+        else
+          scr_LogPrint(LPRINT_NORMAL, "The selected item should be a user.");
+      }
+    }
+
+    if (fjid) { // fjid is actually a bare jid...
+      switch (op) {
+        case otr_start:
+          otr_establish(fjid);          break;
+        case otr_stop:
+          otr_disconnect(fjid);         break;
+        case otr_fpr:
+          otr_fingerprint(fjid, keyid); break;
+        case otr_smpq:
+          otr_smp_query(fjid, keyid);   break;
+        case otr_smpr:
+          otr_smp_respond(fjid, keyid); break;
+        case otr_smpa:
+          otr_smp_abort(fjid);          break;
+        case otr_info:
+          otr_print_info(fjid);         break;
+        default:
+          break;
+      }
+    } else
+      scr_LogPrint(LPRINT_NORMAL, "Please specify a valid Jabber ID.");
+  }
+  free_arg_lst(paramlst);
+
+#else
+  scr_LogPrint(LPRINT_NORMAL, "Please recompile mcabber with libotr enabled.");
+#endif /* HAVE_LIBOTR */
+}
+
+#ifdef HAVE_LIBOTR
+static char *string_for_otrpolicy(enum otr_policy p)
+{
+  switch (p) {
+    case plain:         return "plain";
+    case opportunistic: return "opportunistic";
+    case manual:        return "manual";
+    case always:        return "always";
+    default:            return "unknown";
+  }
+}
+
+static void dump_otrpolicy(char *k, char *v, void *nothing)
+{
+  scr_LogPrint(LPRINT_NORMAL|LPRINT_NOTUTF8, "otrpolicy for %s: %s", k,
+               string_for_otrpolicy(*(enum otr_policy*)v));
+}
+#endif
+
+static void do_otrpolicy(char *arg)
+{
+#ifdef HAVE_LIBOTR
+  char **paramlst;
+  char *fjid, *policy;
+  enum otr_policy p;
+
+  paramlst = split_arg(arg, 2, 0); // [jid|default] policy
+  fjid = *paramlst;
+  policy = *(paramlst+1);
+
+  if (!fjid && !policy) {
+    scr_LogPrint(LPRINT_NORMAL, "default otrpolicy: %s",
+                 string_for_otrpolicy(settings_otr_getpolicy(NULL)));
+    settings_foreach(SETTINGS_TYPE_OTR, &dump_otrpolicy, NULL);
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  if (!policy) {
+    scr_LogPrint(LPRINT_NORMAL,
+                 "Please call otrpolicy correctly: /otrpolicy (default|jid) "
+                 "(plain|manual|opportunistic|always)");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  if (!strcasecmp(policy, "plain"))
+    p = plain;
+  else if (!strcasecmp(policy, "manual"))
+    p = manual;
+  else if (!strcasecmp(policy, "opportunistic"))
+    p = opportunistic;
+  else if (!strcasecmp(policy, "always"))
+    p = always;
+  else {
+    /* Fail, we don't know _this_ policy*/
+    scr_LogPrint(LPRINT_NORMAL, "mcabber doesn't support _this_ policy!");
+    free_arg_lst(paramlst);
+    return;
+  }
+
+  if (!strcasecmp(fjid, "default") || !strcasecmp(fjid, "*")) {
+    /*set default policy*/
+    settings_otr_setpolicy(NULL, p);
+    free_arg_lst(paramlst);
+    return;
+  }
+  // Allow special jid "" or "." (current buddy)
+  if (fjid && (!*fjid || !strcmp(fjid, ".")))
+    fjid = NULL;
+
+  if (fjid) {
+    // The JID has been specified.  Quick check...
+    if (check_jid_syntax(fjid) || !strchr(fjid, '@')) {
+      scr_LogPrint(LPRINT_NORMAL|LPRINT_NOTUTF8,
+                   "<%s> is not a valid Jabber ID.", fjid);
+      fjid = NULL;
+    } else {
+      // Convert jid to lowercase and strip resource
+      char *p;
+      for (p = fjid; *p && *p != JID_RESOURCE_SEPARATOR; p++)
+        *p = tolower(*p);
+      if (*p == JID_RESOURCE_SEPARATOR)
+        *p = '\0';
+    }
+  } else {
+    gpointer bud = NULL;
+    if (current_buddy)
+      bud = BUDDATA(current_buddy);
+    if (bud) {
+      guint type = buddy_gettype(bud);
+      if (type & ROSTER_TYPE_USER)  // Is it a user?
+        fjid = (char*)buddy_getjid(bud);
+      else
+        scr_LogPrint(LPRINT_NORMAL, "The selected item should be a user.");
+    }
+  }
+
+  if (fjid)
+    settings_otr_setpolicy(fjid, p);
+  else
+    scr_LogPrint(LPRINT_NORMAL, "Please specify a valid Jabber ID.");
+
+  free_arg_lst(paramlst);
+#else
+  scr_LogPrint(LPRINT_NORMAL, "Please recompile mcabber with libotr enabled.");
+#endif /* HAVE_LIBOTR */
+}
+
+/* !!!
+  After changing the /iline arguments names here, you must change ones
+  in init_bindings().
+*/
+static void do_iline(char *arg)
+{
+  if (!strcasecmp(arg, "fword")) {
+    readline_forward_word();
+  } else if (!strcasecmp(arg, "bword")) {
+    readline_backward_word();
+  } else if (!strcasecmp(arg, "word_fdel")) {
+    readline_forward_kill_word();
+  } else if (!strcasecmp(arg, "word_bdel")) {
+    readline_backward_kill_word();
+  } else if (!strcasecmp(arg, "word_upcase")) {
+    readline_updowncase_word(1);
+  } else if (!strcasecmp(arg, "word_downcase")) {
+    readline_updowncase_word(0);
+  } else if (!strcasecmp(arg, "word_capit")) {
+    readline_capitalize_word();
+  } else if (!strcasecmp(arg, "fchar")) {
+    readline_forward_char();
+  } else if (!strcasecmp(arg, "bchar")) {
+    readline_backward_char();
+  } else if (!strcasecmp(arg, "char_fdel")) {
+    readline_forward_kill_char();
+  } else if (!strcasecmp(arg, "char_bdel")) {
+    readline_backward_kill_char();
+  } else if (!strcasecmp(arg, "char_swap")) {
+    readline_transpose_chars();
+  } else if (!strcasecmp(arg, "hist_beginning_search_bwd")) {
+    readline_hist_beginning_search_bwd();
+  } else if (!strcasecmp(arg, "hist_beginning_search_fwd")) {
+    readline_hist_beginning_search_fwd();
+  } else if (!strcasecmp(arg, "hist_prev")) {
+    readline_hist_prev();
+  } else if (!strcasecmp(arg, "hist_next")) {
+    readline_hist_next();
+  } else if (!strcasecmp(arg, "iline_start")) {
+    readline_iline_start();
+  } else if (!strcasecmp(arg, "iline_end")) {
+    readline_iline_end();
+  } else if (!strcasecmp(arg, "iline_fdel")) {
+    readline_forward_kill_iline();
+  } else if (!strcasecmp(arg, "iline_bdel")) {
+    readline_backward_kill_iline();
+  } else if (!strcasecmp(arg, "send_multiline")) {
+    readline_send_multiline();
+  } else if (!strcasecmp(arg, "iline_accept")) {
+    retval_for_cmds = readline_accept_line(FALSE);
+  } else if (!strcasecmp(arg, "iline_accept_down_hist")) {
+    retval_for_cmds = readline_accept_line(TRUE);
+  } else if (!strcasecmp(arg, "compl_cancel")) {
+    readline_cancel_completion();
+  } else if (!strcasecmp(arg, "compl_do")) {
+    readline_do_completion();
+  }
+}
+
+static void do_screen_refresh(char *arg)
+{
+  readline_refresh_screen();
+}
+
+static void do_chat_disable(char *arg)
+{
+  guint show_roster;
+
+  if (arg && !strcasecmp(arg, "--show-roster"))
+    show_roster = 1;
+  else
+    show_roster = 0;
+
+  readline_disable_chat_mode(show_roster);
+}
+
+static void do_source(char *arg)
+{
+  static int recur_level;
+  gchar *filename, *expfname;
+  if (!*arg) {
+    scr_LogPrint(LPRINT_NORMAL, "Missing filename.");
+    return;
+  }
+  if (recur_level > 20) {
+    scr_LogPrint(LPRINT_LOGNORM, "** Too many source commands!");
+    return;
+  }
+  filename = g_strdup(arg);
+  strip_arg_special_chars(filename);
+  expfname = expand_filename(filename);
+  recur_level++;
+  cfg_read_file(expfname, FALSE);
+  recur_level--;
+  g_free(filename);
+  g_free(expfname);
+}
+
+static void do_connect(char *arg)
+{
+  xmpp_connect();
+}
+
+static void do_disconnect(char *arg)
+{
+  xmpp_disconnect();
+}
+
+static void do_help(char *arg)
+{
+  help_process(arg);
+}
+
+static void do_echo(char *arg)
+{
+  if (arg)
+    scr_print_logwindow(arg);
+}
+
+/* vim: set expandtab cindent cinoptions=>2\:2(0:  For Vim users... */