Move code to proper place. Merge duplicate code.
--- 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")