diff -r f3ac6416ef21 -r 7bef62461084 .emacs-my
--- a/.emacs-my	Wed Aug 03 09:15:07 2011 +0300
+++ b/.emacs-my	Fri Aug 05 15:39:31 2011 +0300
@@ -239,6 +239,15 @@
 ;; (setq inhibit-splash-screen t) ; nonexist on 21.4.1
 (setq inhibit-startup-message t)
 
+;; ----------------------------------------------------------------
+(message "Cygwin, MSYS")
+
+(when (eq window-system 'w32)
+  (ignore-errors
+    (require 'cygwin-mount)
+    (cygwin-mount-activate)
+  ))
+
 ;;; ----------------------------------------------------------------
 (message "whitespaces")
 
@@ -1046,41 +1055,43 @@
 ;;; ----------------------------------------------------------------
 (message "jabber")
 
-(when (featurep 'jabber)
-  (setq
-   jabber-history-enabled t
-   jabber-use-global-history nil
-   jabber-backlog-number 40
-   jabber-backlog-days 30
-   jabber-alert-presence-message-function (lambda (who oldstatus newstatus statustext) nil)
-   )
-  ;; Redefine standard binding for sending message form RET to C-RET.
-  (define-key jabber-chat-mode-map (kbd "RET") 'newline)
-  (define-key jabber-chat-mode-map [C-return] 'jabber-chat-buffer-send)
-  )
+(autoload 'jabber-connect-all "jabber")
+
+(setq
+ jabber-history-enabled t
+ jabber-use-global-history nil
+ jabber-backlog-number 40
+ jabber-backlog-days 30
+ jabber-alert-presence-message-function (lambda (who oldstatus newstatus statustext) nil)
+ )
+
+(eval-after-load 'jabber
+  '(progn
+    ;; Redefine standard binding for sending message form RET to C-RET.
+    (define-key jabber-chat-mode-map (kbd "RET") 'newline)
+    (define-key jabber-chat-mode-map [C-return] 'jabber-chat-buffer-send)
+    ;; fsm used in emacs jabber
+    (when (featurep 'fsm)
+      (setq fsm-debug nil)                  ; Disable *fsm-debug* buffer.
+      )
+    ;; Handle Emacs exit.
+    (add-hook 'kill-emacs-hook 'jabber-disconnect)
+    ))
 
 (setq my-chat-prompt "[%t] %n>\n")
-(when (featurep 'jabber)
-  (setq
-   jabber-chat-foreign-prompt-format my-chat-prompt
-   jabber-chat-local-prompt-format my-chat-prompt
-   jabber-groupchat-prompt-format my-chat-prompt
-   jabber-muc-private-foreign-prompt-format "[%t] %g/%n>\n"
-   )
-  )
+(setq
+ jabber-chat-foreign-prompt-format my-chat-prompt
+ jabber-chat-local-prompt-format my-chat-prompt
+ jabber-groupchat-prompt-format my-chat-prompt
+ jabber-muc-private-foreign-prompt-format "[%t] %g/%n>\n"
+ )
 
-(when (featurep 'jabber)
-  (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))
-    ) )
-
-;; fsm used in emacs jabber
-(when (featurep 'fsm)
-  (setq fsm-debug nil)                  ; Disable *fsm-debug* buffer.
+(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))
   )
 
 (defvar my-jabber-users nil
@@ -1109,9 +1120,6 @@
 
 (global-set-key (kbd "C-x C-j C-s") 'my-jabber-send)
 
-(when (featurep 'jabber)
-  (add-hook 'kill-emacs-hook 'jabber-disconnect) )
-
 ;;; ----------------------------------------------------------------
 (message "rcirc")
 
@@ -1315,15 +1323,14 @@
 ;; One of 'tags-table-list' or 'tags-file-name' control which TAGS files to
 ;; use.
 
-(setq tags-add-tables t)
-
-(when (featurep 'etags-table)
+(ignore-errors
+  (require 'etags-table)
   (setq etags-table-search-up-depth 8)
-  (when (featurep 'etags-select)
-    (global-set-key "\M-." 'etags-select-find-tag)
-    )
+  (require 'etags-select)
+  (global-set-key "\M-." 'etags-select-find-tag)
   )
 
+(setq tags-add-tables t)
 (global-set-key "\M-\r" 'complete-tag)
 
 ;;; ----------------------------------------------------------------