equal
deleted
inserted
replaced
1414 (setq fill-column 78) |
1414 (setq fill-column 78) |
1415 (turn-on-auto-fill) |
1415 (turn-on-auto-fill) |
1416 (flyspell-mode 1)) |
1416 (flyspell-mode 1)) |
1417 (add-hook 'message-mode-hook 'my-message-mode-hook) |
1417 (add-hook 'message-mode-hook 'my-message-mode-hook) |
1418 |
1418 |
1419 ;; Mark all send message with same domain "Message-Id" to provide for replays |
1419 ;; Mark all my messages by "common" string in "Message-Id" field to simplify |
1420 ;; to me in followups. |
1420 ;; lookup for followups to me. |
1421 (setq message-user-fqdn "gavenkoa.example.com") |
1421 (setq message-user-fqdn "gavenkoa.example.com") |
1422 |
1422 |
1423 ;; Kill message buffer after mail send. You always can use C-c C-s to preserve it. |
1423 ;; Kill message buffer after mail send. You always can use C-c C-s to preserve it. |
1424 (setq message-kill-buffer-on-exit t) |
1424 (setq message-kill-buffer-on-exit t) |
1425 |
1425 |
1471 (defun my-kill-gnus () |
1471 (defun my-kill-gnus () |
1472 "Kill Gnus when exiting Emacs." |
1472 "Kill Gnus when exiting Emacs." |
1473 (let ( (gnus-interactive-exit nil) ) |
1473 (let ( (gnus-interactive-exit nil) ) |
1474 (gnus-group-exit) |
1474 (gnus-group-exit) |
1475 )) |
1475 )) |
1476 (eval-after-load 'gnus |
1476 (eval-after-load 'gnus '(add-hook 'kill-emacs-hook 'my-kill-gnus)) |
1477 '(progn |
|
1478 (add-hook 'kill-emacs-hook 'my-kill-gnus) |
|
1479 )) |
|
1480 |
1477 |
1481 (eval-after-load 'gnus-art |
1478 (eval-after-load 'gnus-art |
1482 '(progn |
1479 '(progn |
1483 (setq gnus-visible-headers (concat gnus-visible-headers "\\|^Archived-At")) |
1480 (setq gnus-visible-headers (concat gnus-visible-headers "\\|^Archived-At")) |
1484 )) |
1481 )) |