diff options
| author | Case Duckworth | 2021-04-27 13:51:42 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-04-27 13:51:42 -0500 |
| commit | 06409e4bd192314076bedb497b9de87901ea7266 (patch) | |
| tree | 69b59c1d7ea7cca9f639675642aa4f836c8258d7 /gnus.el | |
| parent | Add a leader key for elpher-bookmarks; add gemini-write (diff) | |
| parent | Add gnus leader mapping (diff) | |
| download | emacs-06409e4bd192314076bedb497b9de87901ea7266.tar.gz emacs-06409e4bd192314076bedb497b9de87901ea7266.zip | |
Merge branch 'main' of https://tildegit.org/acdw/emacs
Diffstat (limited to 'gnus.el')
| -rw-r--r-- | gnus.el | 10 |
1 files changed, 8 insertions, 2 deletions
| diff --git a/gnus.el b/gnus.el index 185849b..fa20133 100644 --- a/gnus.el +++ b/gnus.el | |||
| @@ -27,6 +27,11 @@ | |||
| 27 | (nnir-search-engine imap)) | 27 | (nnir-search-engine imap)) |
| 28 | (nntp "news.tilde.club"))) | 28 | (nntp "news.tilde.club"))) |
| 29 | 29 | ||
| 30 | ;;; Gnus behavior options | ||
| 31 | (setq gnus-gcc-mark-as-read t | ||
| 32 | message-signature (or (file-exists-p message-signature-file) | ||
| 33 | "~ acdw")) | ||
| 34 | |||
| 30 | ;;; Gnus UI options | 35 | ;;; Gnus UI options |
| 31 | (setq gnus-thread-sort-functions '(gnus-thread-sort-by-most-recent-date | 36 | (setq gnus-thread-sort-functions '(gnus-thread-sort-by-most-recent-date |
| 32 | (not gnus-thread-sort-by-number)) | 37 | (not gnus-thread-sort-by-number)) |
| @@ -47,9 +52,9 @@ | |||
| 47 | (setq gnus-summary-line-format | 52 | (setq gnus-summary-line-format |
| 48 | (concat | 53 | (concat |
| 49 | "%0{%U%R%z%}" | 54 | "%0{%U%R%z%}" |
| 50 | "%3{│%}" "%1{%d%}" "%3{│%}" ;; date | 55 | "%3{│%}" "%1{%d%}" "%3{│%}" ; date |
| 51 | " " | 56 | " " |
| 52 | "%4{%-20,20f%}" ;; name | 57 | "%4{%-20,20f%}" ; name |
| 53 | " " | 58 | " " |
| 54 | "%3{│%}" | 59 | "%3{│%}" |
| 55 | " " | 60 | " " |
| @@ -59,6 +64,7 @@ | |||
| 59 | (setq gnus-summary-display-arrow t) | 64 | (setq gnus-summary-display-arrow t) |
| 60 | 65 | ||
| 61 | (add-hook 'gnus-group-mode-hook #'hl-line-mode) | 66 | (add-hook 'gnus-group-mode-hook #'hl-line-mode) |
| 67 | (add-hook 'gnus-article-mode-hook #'acdw/reading-mode) | ||
| 62 | 68 | ||
| 63 | ;;; Sending mail | 69 | ;;; Sending mail |
| 64 | (setq send-mail-function #'smtpmail-send-it | 70 | (setq send-mail-function #'smtpmail-send-it |