equal
deleted
inserted
replaced
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") |