Initialize prng.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Wed, 19 Jan 2011 11:31:52 +0200
changeset 551 4e3276dbad80
parent 550 d8092299457a
child 552 1cdd21e5f0b9
Initialize prng.
.emacs-my
--- a/.emacs-my	Wed Jan 19 11:16:32 2011 +0200
+++ b/.emacs-my	Wed Jan 19 11:31:52 2011 +0200
@@ -951,6 +951,7 @@
   (let ( (mgs-list '("Я тутачки, а где Вы меня ожидали?"
                      "Software Development == Church Development. Step 1. Build it. Step 2. Pray."
                      "А любит Б, Б любит С, что делать A? Найти другую Б!")) )
+    (random t)
     (setq jabber-default-show (nth (random (length mgs-list)) mgs-list))
     (setq jabber-default-status (nth (random (length mgs-list)) mgs-list))
     ) )