.emacs-my
changeset 937 8f8987262795
parent 936 c5f9c7bc1661
child 938 d063544b9199
equal deleted inserted replaced
936:c5f9c7bc1661 937:8f8987262795
  1292   '(progn
  1292   '(progn
  1293      (require 'mailabbrev)
  1293      (require 'mailabbrev)
  1294      (define-key message-mode-map "\e\t" 'mail-abbrev-complete-alias)
  1294      (define-key message-mode-map "\e\t" 'mail-abbrev-complete-alias)
  1295      ))
  1295      ))
  1296 
  1296 
  1297 (defun my-message-setup-routine ()
  1297 (defun my-message-mode-hook ()
  1298   (flyspell-mode 1)
  1298   (setq fill-column 78)
  1299   )
  1299   (turn-on-auto-fill)
  1300 (add-hook 'message-setup-hook 'my-message-setup-routine)
  1300   (flyspell-mode 1))
       
  1301 (add-hook 'message-mode-hook 'my-message-mode-hook)
       
  1302 
       
  1303 ;; Mark all send message with same domain "Message-Id" to provide for replays
       
  1304 ;; to me in followups.
       
  1305 (setq message-user-fqdn "gavenkoa.example.com")
  1301 
  1306 
  1302 ;; Kill message buffer after mail send. You always can use C-c C-s to preserve it.
  1307 ;; Kill message buffer after mail send. You always can use C-c C-s to preserve it.
  1303 (setq message-kill-buffer-on-exit t)
  1308 (setq message-kill-buffer-on-exit t)
  1304 
  1309 
  1305 (defconst my-safe-filename-char-regex "[[:alnum:]-_!.@]"
  1310 (defconst my-safe-filename-char-regex "[[:alnum:]-_!.@]"
  1339    message-send-mail-function 'smtpmail-send-it
  1344    message-send-mail-function 'smtpmail-send-it
  1340    )
  1345    )
  1341   )
  1346   )
  1342 ;; (setq smtpmail-debug-verb t)
  1347 ;; (setq smtpmail-debug-verb t)
  1343 ;; (setq smtpmail-debug-info t)
  1348 ;; (setq smtpmail-debug-info t)
  1344 
       
  1345 (defun my-message-mode-hook ()
       
  1346   (setq fill-column 78)
       
  1347   (turn-on-auto-fill)
       
  1348   )
       
  1349 (add-hook 'message-mode-hook 'my-message-mode-hook)
       
  1350 
       
  1351 ;; Mark all send message with same domain "Message-Id" to provide for replays
       
  1352 ;; to me in followups.
       
  1353 (setq message-user-fqdn "gavenkoa.example.com")
       
  1354 
  1349 
  1355 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1350 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1356 (message "gnus, mh-e")
  1351 (message "gnus, mh-e")
  1357 
  1352 
  1358 (setq gnus-site-init-file "~/.gnus.el")
  1353 (setq gnus-site-init-file "~/.gnus.el")