;;; 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)))))