# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1295293236 -7200
# Node ID 45b1d7e9f25169f11dd3d464140b67372a4b32fc
# Parent  05e20b2ae7c88aca29b0aa8de9d34eae29db274a# Parent  7d4926cc2f321bd00f4d9c2ecb11fa0bce6b2345
merged

diff -r 7d4926cc2f32 -r 45b1d7e9f251 .emacs-my
--- a/.emacs-my	Mon Jan 17 00:08:34 2011 +0200
+++ b/.emacs-my	Mon Jan 17 21:40:36 2011 +0200
@@ -19,6 +19,14 @@
 (setq debug-on-error nil)               ; t/nil
 
 ;;; ----------------------------------------------------------------
+;;; user info.
+
+(setq user-full-name "Oleksandr Gavenko")
+(setq user-mail-address "gavenkoa@gmail.com")
+(setq user-nick "gavenkoa")
+(setenv "ORGANIZATION" (concat user-full-name " <" user-mail-address  ">"))
+
+;;; ----------------------------------------------------------------
 ;;; mode groups.
 
 (defun my-modelist-to-hooklist (modes)
@@ -69,7 +77,6 @@
   (my-modelist-to-hooklist my-text-mode-list)
   "List of text mode hooks.")
 
-
 ;;; ----------------------------------------------------------------
 ;;; appearance.
 
@@ -910,7 +917,7 @@
   (setq
    jabber-history-enabled t
    jabber-use-global-history nil
-   jabber-backlog-number 15
+   jabber-backlog-number 40
    jabber-backlog-days 30
    jabber-alert-presence-message-function (lambda (who oldstatus newstatus statustext) nil)
    )
@@ -926,13 +933,21 @@
    )
   )
 
+(when (featurep 'jabber)
+  (let ( (mgs-list '("Я тутачки, а где Вы меня ожидали?"
+                     "Software Development == Church Development. Step 1. Build it. Step 2. Pray."
+                     "А любит Б, Б любит С, что делать A? Найти другую Б!")) )
+    (setq jabber-default-show (nth (random (length mgs-list)) mgs-list))
+    (setq jabber-default-status (nth (random (length mgs-list)) mgs-list))
+    )
+
 ;; fsm used in emacs jabber
 (when (featurep 'fsm)
   (setq fsm-debug nil)                  ; Disable *fsm-debug* buffer.
   )
 
 (defvar my-jabber-users nil
-  "Assoc list of jabber user goup. Keys are strings, values are lists of JIDs.")
+  "Assoc list of jabber user group. Keys are strings, values are lists of JIDs.")
 
 (defun my-jabber-send (group)
   "GROUP is keys from `my-jabber-users'"
@@ -968,6 +983,11 @@
 (defun rcirc-handler-301 (process cmd sender args)
   "/away message handler.")
 
+(setq rcirc-default-server "irc.freenode.net")
+(setq rcirc-default-port 6667)
+(setq rcirc-default-nick user-nick)
+(setq rcirc-default-user-full-name user-full-name)
+
 ;;; ----------------------------------------------------------------
 ;;; erc.
 
@@ -1102,8 +1122,16 @@
 ;;; ----------------------------------------------------------------
 ;;; TAGS, etags, ctags, GNU GLOBAL.
 
+;; One of 'tags-table-list' or 'tags-file-name' control which TAGS files to
+;; use.
+
+(setq tags-add-tables t)
+
 (when (featurep 'etags-table)
   (setq etags-table-search-up-depth 8)
+  (when (featurep 'etags-select)
+    (global-set-key "\M-." 'etags-select-find-tag)
+    )
   )
 
 ;;; ----------------------------------------------------------------
@@ -1403,12 +1431,8 @@
 ;; Note: if you kill unsaved file auto save file not deleted.
 (setq delete-auto-save-files t)
 
-;;; ----------------------------------------------------------------
-;;; user info.
-
-(setq user-full-name "Oleksandr Gavenko")
-(setq user-mail-address "gavenkoa@gmail.com")
-(setenv "ORGANIZATION" (concat user-full-name " <" user-mail-address  ">"))
+;; ----------------------------------------------------------------
+;; User welcome msg.
 
 (add-hook 'emacs-startup-hook
           (lambda ()
diff -r 7d4926cc2f32 -r 45b1d7e9f251 .emacs-post
--- a/.emacs-post	Mon Jan 17 00:08:34 2011 +0200
+++ b/.emacs-post	Mon Jan 17 21:40:36 2011 +0200
@@ -1,3 +1,24 @@
 ;; -*- mode: lisp; coding: utf-8; fill-column: 78 -*-
 ;;
 ;; For load order see README.
+
+;; (require 'cygwin-mount)
+;; (cygwin-mount-activate)
+
+;; (when (featurep 'jabber)
+;;   (setq jabber-account-list
+;;         '(
+;;           ("gavenko@services.bifit.int"
+;;            (:port . 5222)
+;;            (:password . "")
+;;            ;; (:network-server . "talk.google.com")
+;;            (:connection-type . network))
+;;           ("gavenkoa@gmail.com"
+;;            ;; (:port . 5222)
+;;            (:password . "")
+;;            (:network-server . "talk.google.com")
+;;            (:connection-type . ssl))
+;;           )
+;;         )
+;;   (jabber-connect-all)
+;;   )
diff -r 7d4926cc2f32 -r 45b1d7e9f251 .emacs-pre
--- a/.emacs-pre	Mon Jan 17 00:08:34 2011 +0200
+++ b/.emacs-pre	Mon Jan 17 21:40:36 2011 +0200
@@ -1,3 +1,13 @@
 ;; -*- mode: lisp; coding: utf-8; fill-column: 78 -*-
 ;;
 ;; For load order see README.
+
+;; (require 'remember)
+
+;; (require 'etags-select)
+;; (require 'etags-table)
+
+;; (require 'jabber)
+
+;; (require 'rcirc)
+