--- a/.emacs-my	Fri Apr 01 19:00:17 2016 +0300
+++ b/.emacs-my	Fri Apr 01 19:04:18 2016 +0300
@@ -2119,7 +2119,7 @@
   ;; Handle Emacs exit.
   (add-hook 'kill-emacs-hook 'jabber-disconnect))
 
-(setq my-chat-prompt "[%t] %n>\n")
+(defvar my-chat-prompt "[%t] %n>\n")
 (setq
  jabber-chat-foreign-prompt-format my-chat-prompt
  jabber-chat-local-prompt-format my-chat-prompt
@@ -2162,24 +2162,6 @@
 (global-set-key (kbd "C-x C-j C-s") 'my-jabber-send)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(message "rcirc")
-
-(eval-when 'compile (require 'rcirc))
-
-;; Turn on logging everything to a special buffer, for debugging.
-;; (setq rcirc-debug-flag t)
-
-(add-hook 'rcirc-mode-hook (lambda () (rcirc-track-minor-mode 1)))
-(setq rcirc-time-format "%H:%M ")
-(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)
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "erc")
 
 (eval-when 'compile
@@ -2437,6 +2419,8 @@
 (message "gdb, gud")
 ;; Use C-x SPACE to set breakpoint in source file.
 
+(eval-when 'compile (require 'gdb-mi nil t))
+
 (setq gdb-show-main t)                  ; See also (gdb-many-windows)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;