.emacs-my
changeset 680 285d2ffb35ff
parent 677 154f402aa2dc
child 681 6a9c54f8629a
equal deleted inserted replaced
679:9db25653169a 680:285d2ffb35ff
  1064  jabber-muc-private-foreign-prompt-format "[%t] %g/%n>\n"
  1064  jabber-muc-private-foreign-prompt-format "[%t] %g/%n>\n"
  1065  )
  1065  )
  1066 
  1066 
  1067 (let ( (mgs-list '("Я тутачки, а где Вы меня ожидали?"
  1067 (let ( (mgs-list '("Я тутачки, а где Вы меня ожидали?"
  1068                    "Software Development == Church Development. Step 1. Build it. Step 2. Pray."
  1068                    "Software Development == Church Development. Step 1. Build it. Step 2. Pray."
       
  1069                    "Great books aren't written – they're rewritten."
  1069                    "А любит Б, Б любит С, что делать A? Найти другую Б!")) )
  1070                    "А любит Б, Б любит С, что делать A? Найти другую Б!")) )
  1070   (random t)
  1071   (random t)
  1071   (setq jabber-default-show (nth (random (length mgs-list)) mgs-list))
  1072   (setq jabber-default-show (nth (random (length mgs-list)) mgs-list))
  1072   (setq jabber-default-status (nth (random (length mgs-list)) mgs-list))
  1073   (setq jabber-default-status (nth (random (length mgs-list)) mgs-list))
  1073   )
  1074   )