1 files changed, 85 insertions, 0 deletions
diff --git a/systems/izumi/home-files/gnus-configuration.el b/systems/izumi/home-files/gnus-configuration.el
new file mode 100644
index 0000000..570b8fd
--- /dev/null
+++ b/systems/izumi/home-files/gnus-configuration.el
@@ -0,0 +1,85 @@
+;;; https://github.com/redguardtoo/mastering-emacs-in-one-year-guide/blob/master/gnus-guide-en.org#my-gnusel
+;; (require 'nnir)
+
+;; (setq-default gnus-select-method '(nntp "news.gwene.org"))
+
+(setq-default epa-file-cache-passphrase-for-symmetric-encryption t)
+
+(setq-default gnus-select-method
+	      '(nnimap "marekpasnikowski.pl"
+		       (nnimap-address "marekpasnikowski.pl")
+		       (nnimap-server-port 993)
+		       (nnimap-stream ssl)
+		       ;; (nnir-search-engine imap)
+		       (nnmail-expiry-wait 90)))
+
+(setq-default gnus-thread-sort-functions
+	      '(gnus-thread-sort-by-most-recent-date
+		(not gnus-thread-sort-by-number)))
+
+(setq-default gnus-use-cache t)
+
+(defun my-gnus-group-list-subscribed-groups ()
+  "List all subscribed groups with or without un-read messages"
+  ()
+  (interactive)
+  (gnus-group-list-all-groups 5))
+
+(define-key gnus-group-mode-map
+	    (kbd "o") 'my-gnus-group-list-subscribed-groups)
+
+;; (add-to-list 'load-path "~/Dokumenty/bbdb")
+;; (require 'bbdb)
+;; (bbdb-initialize 'message 'gnus 'sendmail)
+;; (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
+;; (setq-default bbdb/mail-auto-create-p t
+;; 	      bbdb/news-auto-create-p t)
+
+(setq-default gnus-read-active-file 'some)
+
+(eval-after-load 'mailcap
+  '(progn (cond ((eq system-type 'darwin))
+		((eq system-type 'windows-nt))
+		(t (mailcap-parse-mailcaps)))))
+
+(add-hook 'gnus-group-mode-hook
+	  'gnus-topic-mode)
+
+(setq-default gnus-summary-thread-gathering-function
+	      'gnus-gather-threads-by-subject)
+
+(setq-default gnus-thread-hide-subtree t)
+(setq-default gnus-thread-ignore-subject t)
+
+(setq-default gnus-use-correct-string-widths nil)
+
+
+(eval-after-load 'gnus-topic
+  '(progn (setq-default gnus-message-archive-group
+			'((format-time-string "sent.%Y")))
+	  (setq-default gnus-server-alist
+			'(("archive"
+			   nnfolder
+			   "archive"
+			   (nnfolder-directory "~/Mail/archive")
+			   (nnfolder-active-file "~/Mail/archive/active")
+			   (nnfolder-get-new-mail nil)
+			   (nnfolder-inhibit-expiry t))))
+	  (setq-default gnus-topic-topology
+			'(("Gnus" visible)
+			  (("marekpasnikowski.pl" visible nil nil))
+			  (("misc" visible))))
+	  (setq-default gnus-topic-alist
+			'(("marekpasnikowski.pl"
+			   "nnimap+marekpasnikowski.pl:Inbox"
+			   "nnimap+marekpasnikowski.pl:Drafts"
+			   "nnimap+marekpasnikowski.pl:Sent"
+			   "nnimap+marekpasnikowski.pl:Archive"
+			   "nnimap+marekpasnikowski.pl:Junk"
+			   "nnimap+marekpasnikowski.pl:Trash")
+			  ("misc"
+			   "nnfolder+archive:sent.2024"
+			   "nndraft:drafts")
+			  ("Gnus")))
+	  (gnus-topic-set-parameters "marekpasnikowski.pl"
+				     '((display . 200)))))