summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorfpi2020-04-05 13:50:08 +0200
committerfpi2020-04-05 13:50:08 +0200
commitc86e9958098d4616fced44319b5da63fde0595d5 (patch)
tree31794d2a1d55586317eaf39b26d27c86e8832589
parentAdd call for org-src-block lang specific hydras (diff)
Add gnus configuration
-rw-r--r--emacs-private.el.gpgbin988 -> 1030 bytes
-rw-r--r--gnus.org289
2 files changed, 289 insertions, 0 deletions
diff --git a/emacs-private.el.gpg b/emacs-private.el.gpg
index 18194cf..6b46930 100644
--- a/emacs-private.el.gpg
+++ b/emacs-private.el.gpg
Binary files differ
diff --git a/gnus.org b/gnus.org
new file mode 100644
index 0000000..0240d8a
--- /dev/null
+++ b/gnus.org
@@ -0,0 +1,289 @@
+#+PROPERTY: header-args:emacs-lisp :tangle tangle/gnus.el
+
+#+begin_src shell :results silent
+ln -s $(pwd)/tangle/gnus.el ~/.gnus.el
+#+end_src
+
+Load private settings
+#+begin_src emacs-lisp
+(setq secret-file (expand-file-name "emacs-private.el.gpg"
+ user-emacs-directory))
+(load secret-file)
+#+end_src
+* Config
+#+begin_src emacs-lisp
+;; (add-to-list 'gnus-secondary-select-methods
+(setq gnus-select-method
+ `(nnimap ,private/imap-name
+ (nnimap-address ,private/imap-address)
+ (nnimap-server-port 993)
+ (nnimap-stream ssl)
+ (nnir-search-engine imap)))
+#+end_src
+Sort by newest first
+#+begin_src emacs-lisp
+(setq gnus-article-sort-functions '((not gnus-thread-sort-by-date))
+ gnus-thread-sort-functions '((not gnus-thread-sort-by-date)))
+#+end_src
+
+Sending mail
+#+begin_src emacs-lisp :tangle no
+(setq message-send-mail-function 'smtpmail-send-it
+ smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil))
+ smtpmail-auth-credentials '(("smtp.gmail.com" 587 "your-name@gmail.com" nil))
+ smtpmail-default-smtp-server "smtp.gmail.com"
+ smtpmail-smtp-server "smtp.gmail.com"
+ smtpmail-smtp-service 587
+ starttls-use-gnutls t)
+#+end_src
+
+Load only groups with level < 2 for faster startup.
+#+begin_src emacs-lisp
+(setq gnus-activate-level 2)
+#+end_src
+Sent mails are read.
+#+begin_src emacs-lisp
+(setq gnus-gcc-mark-as-read t)
+#+end_src
+Save sent mails in my imap folder
+#+begin_src emacs-lisp
+(setq gnus-message-archive-method "dummy string")
+(setq gnus-message-archive-group private/imap-sent-folder)
+#+end_src
+
+** Adaptive scoring
+See [[info:gnus#Adaptive Scoring][info:gnus#Adaptive Scoring]].
+#+begin_src emacs-lisp
+(setq gnus-use-adaptive-scoring '(word line))
+(setq gnus-adaptive-word-length-limit 5)
+(setq gnus-adaptive-word-no-group-words t)
+(setq gnus-summary-mark-below -300)
+(setq gnus-default-adaptive-score-alist
+ '((gnus-unread-mark)
+ (gnus-ticked-mark)
+ (gnus-dormant-mark)
+ (gnus-del-mark (subject -1))
+ (gnus-read-mark (subject 2))
+ (gnus-expirable-mark (subject -1))
+ (gnus-killed-mark (subject -3))
+ (gnus-kill-file-mark)
+ (gnus-ancient-mark)
+ (gnus-low-score-mark)
+ (gnus-catchup-mark (subject -1))))
+#+end_src
+Scoring List for Groups with various From Senders:
+#+begin_example
+'((gnus-unread-mark)
+ (gnus-ticked-mark (from 4))
+ (gnus-dormant-mark (from 5))
+ (gnus-del-mark (from -4) (subject -1))
+ (gnus-read-mark (from 4) (subject 2))
+ (gnus-expirable-mark (from -1) (subject -1))
+ (gnus-killed-mark (from -1) (subject -3) (followup -1))
+ (gnus-kill-file-mark)
+ (gnus-ancient-mark)
+ (gnus-low-score-mark)
+ (gnus-catchup-mark (from -1) (subject -1)))
+#+end_example
+** Window Layout
+See [[info:gnus#Window Layout][info:gnus#Window Layout]].
+#+begin_src emacs-lisp
+(setq gnus-use-full-window nil)
+#+end_src
+** Format Summary buffer lines
+#+begin_src emacs-lisp
+(setq gnus-summary-line-format "%U%R%z%I%(%[ %d : %-23,23f %]%) %s
+")
+#+end_src
+** Demon
+Background fetching for gnus. See the manual and [[https://www.emacswiki.org/emacs/GnusDemon][emacswiki]].
+#+begin_src emacs-lisp
+(defun gnus-demon-scan-news-level (level only)
+ (let ((win (current-window-configuration))
+ (gnus-read-active-file 'some)
+ (gnus-check-new-newsgroups nil)
+ (gnus-verbose 2)
+ (gnus-verbose-backends 5))
+ (while-no-input
+ (unwind-protect
+ (save-window-excursion
+ (when (gnus-alive-p)
+ (with-current-buffer gnus-group-buffer
+ (gnus-group-get-new-news level only))))
+ (set-window-configuration win)))))
+(defun gnus-demon-scan-news-2 ()
+ (gnus-demon-scan-news-level 2 nil))
+(defun gnus-demon-scan-news-3 ()
+ (gnus-demon-scan-news-level 3 t))
+
+(setq gnus-demon-timestep 10)
+(gnus-demon-add-handler 'gnus-demon-scan-news-2 3 nil)
+(gnus-demon-add-handler 'gnus-demon-scan-news-3 360 nil)
+(gnus-demon-add-handler 'gnus-demon-scan-news-3 60 1)
+#+end_src
+** Modeline indicator
+From the [[https://www.emacswiki.org/emacs/GnusNotify][emacswiki Gnus Notify]].
+#+begin_quote
+[…] use ~G p~ in the group buffer, then add ~(modeline-notify t)~ […]
+#+end_quote
+Activate with [[elisp:gnus-mst-show-groups-with-new-messages]].
+Code:
+#+begin_src emacs-lisp
+;;; gnus-notify.el --- use the modeline to indicate groups with new messages
+
+;; Author: Mark Triggs <mark@dishevelled.net>
+;;
+;; Contributions from: Frederic Couchet <fcouchet AT april.org>
+
+;; This file is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; This file is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING. If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; This code provides modeline notification of when certain groups contain
+;; unread messages. Groups for whom unread messages should be indicated are
+;; chosen by setting a group parameter.
+
+;; Clicking on a group in the modeline will enter that group and view the new
+;; message.
+
+;; Code:
+
+(require 'cl-lib)
+
+(defvar gnus-notify-show-unread-counts t
+ "If true, show the number of unread messages in the modeline in addition to shortened group names.")
+
+
+(when (fboundp 'gnus-define-group-parameter)
+ (gnus-define-group-parameter
+ modeline-notify
+ :type bool
+ :parameter-type '(const :tag "Notify of new messages for this group." t)
+ :parameter-document "\
+
+If this is set, the name of this group will be placed on the modeline when it
+contains new messages"))
+
+(defvar gnus-mst-display-new-messages "")
+(defvar gnus-mst-notify-groups '())
+(defvar gnus-notify-jump-to-group-hook '()
+ "This hook is invoked before jumping to a gnus group with unread messages.
+ Each hook should take a single argument - the GROUP to be selected")
+
+
+(add-hook 'gnus-exit-gnus-hook
+ (lambda ()
+ (setq gnus-mst-display-new-messages "")))
+
+
+(defun gnus-mst-notify-modeline-form ()
+ gnus-mst-display-new-messages)
+
+
+(if (featurep 'xemacs)
+ (unless (member 'gnus-mst-display-new-messages global-mode-string)
+ (if (null global-mode-string)
+ (setq global-mode-string '("" gnus-mst-display-new-messages))
+ (setq global-mode-string
+ (append global-mode-string
+ '(gnus-mst-display-new-messages)))))
+ (unless (member '(:eval (gnus-mst-notify-modeline-form)) global-mode-string)
+ (setq global-mode-string
+ (append global-mode-string
+ (list '(:eval (gnus-mst-notify-modeline-form)))))))
+
+
+(defun gnus-mst-notify-shorten-group-name (group)
+ "shorten the group name to make it better fit on the modeline"
+ (let ((name (if (string-match ":" group)
+ (cadr (split-string group "[:]"))
+ group)))
+ (mapconcat 'identity
+ (mapcar
+ (lambda (segment)
+ (string (elt segment 0)))
+ (split-string name "[\\./]"))
+ ".")))
+
+
+(defun gnus-mst-notify-update-modeline ()
+ "Update the modeline to show groups containing new messages"
+ (if gnus-mst-notify-groups
+ (setq gnus-mst-display-new-messages
+ (append (list " [m: ")
+ (cl-maplist
+ (lambda (sublist)
+ (let ((group (car sublist))
+ (map (make-sparse-keymap)))
+ (define-key map [mode-line mouse-1]
+ `(lambda ()
+ (interactive)
+ (run-hook-with-args
+ 'gnus-notify-jump-to-group-hook ,group)
+ (gnus-group-read-group nil nil ,group)))
+ (cl-list*
+ (list ':propertize
+ (if gnus-notify-show-unread-counts
+ (format "[%s %s]"
+ (gnus-mst-notify-shorten-group-name
+ (car sublist))
+ (gnus-group-unread (car sublist)))
+ (format "%s"
+ (gnus-mst-notify-shorten-group-name
+ (car sublist))))
+ 'face 'bold
+ 'keymap map
+ 'help-echo "Visit this group")
+ (if (cdr sublist)
+ (list ", ")
+ nil))))
+ gnus-mst-notify-groups)
+ (list "] ")))
+ (setq gnus-mst-display-new-messages "")))
+
+
+(defun gnus-mst-notify-group (group)
+ "Add notification for this group"
+ (unless (member group gnus-mst-notify-groups)
+ (add-to-list 'gnus-mst-notify-groups group t)
+ (gnus-mst-notify-update-modeline)))
+
+
+(defun gnus-mst-show-groups-with-new-messages (&rest ignored)
+ (interactive)
+ (setq gnus-mst-notify-groups '())
+ (gnus-mst-notify-update-modeline)
+ (mapc #'(lambda (g)
+ (let* ((group (car g))
+ (unread (gnus-group-unread group)))
+ (when (and (cdr (assoc 'modeline-notify
+ (gnus-group-find-parameter group)))
+ (and (numberp unread) (> unread 0)))
+ (gnus-mst-notify-group group))))
+ gnus-newsrc-alist))
+
+
+(add-hook 'gnus-after-getting-new-news-hook
+ 'gnus-mst-show-groups-with-new-messages)
+
+
+(add-hook 'gnus-summary-exit-hook
+ 'gnus-mst-show-groups-with-new-messages)
+
+
+(provide 'gnus-notify)
+;;; gnus-notify.el ends here
+#+end_src