.emacs-my
changeset 534 988093149442
parent 533 15b63e0cc424
child 538 45b1d7e9f251
child 543 8ea7e3cb5127
equal deleted inserted replaced
533:15b63e0cc424 534:988093149442
   930    jabber-chat-local-prompt-format my-chat-prompt
   930    jabber-chat-local-prompt-format my-chat-prompt
   931    jabber-groupchat-prompt-format my-chat-prompt
   931    jabber-groupchat-prompt-format my-chat-prompt
   932    jabber-muc-private-foreign-prompt-format "[%t] %g/%n>\n"
   932    jabber-muc-private-foreign-prompt-format "[%t] %g/%n>\n"
   933    )
   933    )
   934   )
   934   )
       
   935 
       
   936 (when (featurep 'jabber)
       
   937   (let ( (mgs-list '("Я тутачки, а где Вы меня ожидали?"
       
   938                      "Software Development == Church Development. Step 1. Build it. Step 2. Pray."
       
   939                      "А любит Б, Б любит С, что делать A? Найти другую Б!")) )
       
   940     (setq jabber-default-show (nth (random (length mgs-list)) mgs-list))
       
   941     (setq jabber-default-status (nth (random (length mgs-list)) mgs-list))
       
   942     )
   935 
   943 
   936 ;; fsm used in emacs jabber
   944 ;; fsm used in emacs jabber
   937 (when (featurep 'fsm)
   945 (when (featurep 'fsm)
   938   (setq fsm-debug nil)                  ; Disable *fsm-debug* buffer.
   946   (setq fsm-debug nil)                  ; Disable *fsm-debug* buffer.
   939   )
   947   )