--- a/.emacs-my	Thu Sep 20 20:39:19 2012 +0300
+++ b/.emacs-my	Thu Sep 20 20:52:53 2012 +0300
@@ -1294,10 +1294,15 @@
      (define-key message-mode-map "\e\t" 'mail-abbrev-complete-alias)
      ))
 
-(defun my-message-setup-routine ()
-  (flyspell-mode 1)
-  )
-(add-hook 'message-setup-hook 'my-message-setup-routine)
+(defun my-message-mode-hook ()
+  (setq fill-column 78)
+  (turn-on-auto-fill)
+  (flyspell-mode 1))
+(add-hook 'message-mode-hook 'my-message-mode-hook)
+
+;; Mark all send message with same domain "Message-Id" to provide for replays
+;; to me in followups.
+(setq message-user-fqdn "gavenkoa.example.com")
 
 ;; Kill message buffer after mail send. You always can use C-c C-s to preserve it.
 (setq message-kill-buffer-on-exit t)
@@ -1342,16 +1347,6 @@
 ;; (setq smtpmail-debug-verb t)
 ;; (setq smtpmail-debug-info t)
 
-(defun my-message-mode-hook ()
-  (setq fill-column 78)
-  (turn-on-auto-fill)
-  )
-(add-hook 'message-mode-hook 'my-message-mode-hook)
-
-;; Mark all send message with same domain "Message-Id" to provide for replays
-;; to me in followups.
-(setq message-user-fqdn "gavenkoa.example.com")
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "gnus, mh-e")