From 77b1eefab01b5090baa05e3bd57e97c076ef5228 Mon Sep 17 00:00:00 2001 From: Ryan Kavanagh Date: Mon, 15 Aug 2022 11:34:34 -0400 Subject: various gnus configurations --- dot_emacs | 86 +++++++++++++++++++++++++++++++++++++-------------------------- 1 file 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 -- cgit v1.2.3