949 

   949 

   950 (when (featurep 'jabber)

   950 (when (featurep 'jabber)

   951   (let ( (mgs-list '("Я тутачки, а где Вы меня ожидали?"

   951   (let ( (mgs-list '("Я тутачки, а где Вы меня ожидали?"

   952                      "Software Development == Church Development. Step 1. Build it. Step 2. Pray."

   952                      "Software Development == Church Development. Step 1. Build it. Step 2. Pray."

   953                      "А любит Б, Б любит С, что делать A? Найти другую Б!")) )

   953                      "А любит Б, Б любит С, что делать A? Найти другую Б!")) )

   954     (setq jabber-default-show (nth (random (length mgs-list)) mgs-list))

   955     (setq jabber-default-show (nth (random (length mgs-list)) mgs-list))

   955     (setq jabber-default-status (nth (random (length mgs-list)) mgs-list))

   956     (setq jabber-default-status (nth (random (length mgs-list)) mgs-list))

   956     ) )

   957     ) )

   957 

   958 

   958 ;; fsm used in emacs jabber

   959 ;; fsm used in emacs jabber