aboutsummaryrefslogtreecommitdiff
path: root/dot_emacs
diff options
context:
space:
mode:
authorRyan Kavanagh <rak@rak.ac>2022-08-15 11:34:34 -0400
committerRyan Kavanagh <rak@rak.ac>2022-08-15 11:34:34 -0400
commit77b1eefab01b5090baa05e3bd57e97c076ef5228 (patch)
tree44f27c87f7c28a9b390edc308d89483952340517 /dot_emacs
parentMove general emacs customizations under :custom (diff)
various gnus configurations
Diffstat (limited to 'dot_emacs')
-rw-r--r--dot_emacs86
1 files changed, 51 insertions, 35 deletions
diff --git a/dot_emacs b/dot_emacs
index 210982c..c8aa664 100644
--- a/dot_emacs
+++ b/dot_emacs
@@ -32,6 +32,8 @@
:custom
(inhibit-startup-screen t)
(default-input-method "TeX")
+ (user-full-name "Ryan Kavanagh")
+ (user-mail-address "rak@rak.ac")
(face-font-family-alternatives
(append '(("Spleen 16x32" "Ubuntu Mono" "FreeMono" "Liberation Mono"))
face-font-family-alternatives))
@@ -310,25 +312,39 @@ Extended Format date in the date field and return it as a string obeing
(use-package gnus
:ensure t
:defer t
+ :bind
+ ;; (:map gnus-summary-buffer-map
+ ;; ("SPC" . (gnus-summary-goto-next-page)
:custom
(gnus-select-method
'(nntp "news.club.cc.cmu.edu"
(nntp-address "news.club.cc.cmu.edu")
- (nntp-via-address "unix.club.cc.cmu.edu")
+ (nntp-via-address "news-cclub")
(nntp-via-rlogin-command "ssh")
- (nntp-via-rlogin-command-switches ("-C"))
(nntp-open-connection-function nntp-open-via-rlogin-and-netcat)))
(gnus-home-score-file "gnus.SCORE")
(gnus-secondary-select-methods
'((nntp "news.gmane.io")
- (nntp "news.eternal-september.org")
+ ; (nntp "news.eternal-september.org")
; (nntp "nntp.olduse.net")
+ (nnimap "imap.rak.ac")
+ (nnimap "mail.cs.mcgill.ca")
(nntp "tilde.team"
(nntp-address "localhost")
(nntp-via-address "tilde.team")
(nntp-via-rlogin-command "ssh")
(nntp-via-rlogin-command-switches ("-C"))
(nntp-open-connection-function nntp-open-via-rlogin-and-netcat))))
+ (gnus-parameters
+ '(("^nntp+.*" (address . "rak@rak.ac"))
+ ("^nnimap+imap\\.rak\\.ac:.*"
+ (posting-style
+ (address . "rak@rak.ac")
+ (gcc "nnimap+imap.rak.ac:Sent")))
+ ("^nnimap+mail\\.cs\\.mcgill\\.ca:.*"
+ (posting-style
+ (address . "rkavanagh@cs.mcgill.ca")
+ (gcc "nnimap+mail.cs.mcgill.ca:INBOX.Sent")))))
(message-citation-line-function 'message-insert-formatted-citation-line)
(gnus-update-message-archive-method t)
(gnus-message-archive-method
@@ -339,6 +355,7 @@ Extended Format date in the date field and return it as a string obeing
(nnfolder-directory "~/News/sent")))
(gnus-check-new-newsgroups nil)
(gnus-group-line-format "%M%S%p%P%5y:%B%(%G%) %z\n")
+ (gnus-topic-display-empty-topics nil)
:hook
(message-send . gnus-score-followup-article)
(gnus-group-mode . gnus-topic-mode))
@@ -474,36 +491,36 @@ Otherwise split the current paragraph into one sentence per line."
(interactive)
(save-excursion
(save-restriction
- (widen)
- (let ((signature-delimiter
- (progn
- ;; Find the last occurence of "-- " in the buffer
- ;; and set signature-delimiter to the position of the first -
- ;; This means we must subtract 2, because re-search-backward
- ;; returns the end of the occurence found
- (goto-char (point-max))
- (- (re-search-backward "^-- $" nil t) 2))))
- (when signature-delimiter
- (progn
- ;; Run whitespace-cleanup on the region
- ;; [start, signature-delimiter]. Include the first dash
- ;; to avoid deleting any empty lines leading up to the
- ;; delimiter.
- (narrow-to-region (point-min) signature-delimiter)
- (whitespace-cleanup)
- (widen)
- ;; Run it on the region [signature-delimiter, end).
- ;; We include the signature delimiter so that we do not
- ;; delete any empty lines immediately following it.
- ;; A side-effect is that the first line might become "^--$".
- ;; This means that we must re-add the space at the end of
- ;; the first line. Easiest just replace the first line of the
- ;; buffer by "^-- $".
- (narrow-to-region signature-delimiter (point-max))
- (whitespace-cleanup)
- (goto-char (point-min))
- (kill-whole-line 0)
- (insert "-- ")))))))
+ (widen)
+ (let ((signature-delimiter
+ (progn
+ ;; Find the last occurence of "-- " in the buffer
+ ;; and set signature-delimiter to the position of the first -
+ ;; This means we must subtract 2, because re-search-backward
+ ;; returns the end of the occurence found
+ (goto-char (point-max))
+ (- (re-search-backward "^-- $" nil t) 2))))
+ (when signature-delimiter
+ (progn
+ ;; Run whitespace-cleanup on the region
+ ;; [start, signature-delimiter]. Include the first dash
+ ;; to avoid deleting any empty lines leading up to the
+ ;; delimiter.
+ (narrow-to-region (point-min) signature-delimiter)
+ (whitespace-cleanup)
+ (widen)
+ ;; Run it on the region [signature-delimiter, end).
+ ;; We include the signature delimiter so that we do not
+ ;; delete any empty lines immediately following it.
+ ;; A side-effect is that the first line might become "^--$".
+ ;; This means that we must re-add the space at the end of
+ ;; the first line. Easiest just replace the first line of the
+ ;; buffer by "^-- $".
+ (narrow-to-region signature-delimiter (point-max))
+ (whitespace-cleanup)
+ (goto-char (point-min))
+ (kill-whole-line 0)
+ (insert "-- ")))))))
:hook
((message-mode . (lambda () (remove-hook 'before-save-hook 'whitespace-cleanup t)))
(before-save . whitespace-cleanup-mail))
@@ -895,8 +912,7 @@ If not, issue a warning."
(use-package sendmail
:custom
(mail-specify-envelope-from t)
- (mail-envelope-from 'header)
- (message-send-mail-function 'sendmail-send-it))
+ (mail-envelope-from 'header))
(use-package simple
:custom