emacs: erc: fix for erc lurker (bug#36843)

[~bandali/configs] / .emacs.d / init.el

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 6bf61e4..d3f8850 100644 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -125,7 +125,9 @@
   "Expand filename FILE relative to `b/var-dir'."
   (expand-file-name (convert-standard-filename file) b/var-dir))
 
   "Expand filename FILE relative to `b/var-dir'."
   (expand-file-name (convert-standard-filename file) b/var-dir))
 

-(setq auto-save-list-file-prefix (b/var "auto-save/sessions/"))
+(setq
+ auto-save-list-file-prefix (b/var "auto-save/sessions/")
+ nsm-settings-file (b/var "nsm-settings.el"))

 
 ;; separate custom file (don't want it mixing with init.el)
 (use-package custom
 
 ;; separate custom file (don't want it mixing with init.el)
 (use-package custom


@@ -412,6 +414,10 @@ For disabling the behaviour for certain buffers and/or modes."
   :custom ((ediff-window-setup-function 'ediff-setup-windows-plain)
            (ediff-split-window-function 'split-window-horizontally)))
 
   :custom ((ediff-window-setup-function 'ediff-setup-windows-plain)
            (ediff-split-window-function 'split-window-horizontally)))
 

+;; i don't feel like jumping out of my chair every now and again; so
+;; don't BEEP! at me, emacs
+(setq ring-bell-function 'ignore)
+

 \f
 ;;; General bindings
 
 \f
 ;;; General bindings
 


@@ -435,11 +441,6 @@ For disabling the behaviour for certain buffers and/or modes."
  ("C-x k"   . kill-this-buffer)
  ("C-x K"   . kill-buffer)
 
  ("C-x k"   . kill-this-buffer)
  ("C-x K"   . kill-buffer)
 

- ("s-p"     . beginning-of-buffer)
- ("s-n"     . end-of-buffer)
-
- ("M-O"     . facemenu-keymap)
-

  :map emacs-lisp-mode-map
  ("<C-return>" . b/add-elisp-section))
 
  :map emacs-lisp-mode-map
  ("<C-return>" . b/add-elisp-section))
 


@@ -482,9 +483,10 @@ For disabling the behaviour for certain buffers and/or modes."
          (org-mode . auto-fill-mode)
          (org-mode . flyspell-mode))
   :custom
          (org-mode . auto-fill-mode)
          (org-mode . flyspell-mode))
   :custom

+  (org-pretty-entities t)

   (org-agenda-files '("~/usr/org/todos/personal.org"
                       "~/usr/org/todos/habits.org"
   (org-agenda-files '("~/usr/org/todos/personal.org"
                       "~/usr/org/todos/habits.org"

-                      "~/usr/org/todos/masters.org"))
+                      "~/src/git/masters-thesis/todo.org"))

   (org-agenda-start-on-weekday 0)
   (org-agenda-time-leading-zero t)
   (org-habit-graph-column 44)
   (org-agenda-start-on-weekday 0)
   (org-agenda-time-leading-zero t)
   (org-habit-graph-column 44)


@@ -568,6 +570,9 @@ For disabling the behaviour for certain buffers and/or modes."
   (nconc magit-section-initial-visibility-alist
          '(([unpulled status] . show)
            ([unpushed status] . show)))
   (nconc magit-section-initial-visibility-alist
          '(([unpulled status] . show)
            ([unpushed status] . show)))

+  (setq transient-history-file (b/var "transient/history.el")
+        transient-levels-file  (b/etc "transient/levels.el")
+        transient-values-file  (b/etc "transient/values.el"))

   :custom (magit-display-buffer-function #'magit-display-buffer-fullframe-status-v1)
   :custom-face (magit-diff-file-heading ((t (:weight normal)))))
 
   :custom (magit-display-buffer-function #'magit-display-buffer-fullframe-status-v1)
   :custom-face (magit-diff-file-heading ((t (:weight normal)))))
 


@@ -581,7 +586,9 @@ For disabling the behaviour for certain buffers and/or modes."
   (recentf-save-file (b/var "recentf-save.el")))
 
 ;; smart M-x enhancement (needed by counsel for history)
   (recentf-save-file (b/var "recentf-save.el")))
 
 ;; smart M-x enhancement (needed by counsel for history)

-(use-package smex)
+(use-package smex
+  :config
+  (setq smex-save-file (b/var "smex-save.el")))

 
 (use-package ivy
   :defer 0.3
 
 (use-package ivy
   :defer 0.3


@@ -681,7 +688,7 @@ For disabling the behaviour for certain buffers and/or modes."
 
 (use-package ibuffer
   :bind
 
 (use-package ibuffer
   :bind

-  (("C-x C-b" . ibuffer-other-window)
+  (("C-x C-b" . ibuffer)

    :map ibuffer-mode-map
    ("P"   . ibuffer-backward-filter-group)
    ("N"   . ibuffer-forward-filter-group)
    :map ibuffer-mode-map
    ("P"   . ibuffer-backward-filter-group)
    ("N"   . ibuffer-forward-filter-group)


@@ -1129,7 +1136,10 @@ For disabling the behaviour for certain buffers and/or modes."
     (eclim-executable "~/.p2/pool/plugins/org.eclim_2.8.0/bin/eclim")
     (eclim-eclipse-dirs '("~/usr/eclipse/dsl-2018-09/eclipse"))))
 
     (eclim-executable "~/.p2/pool/plugins/org.eclim_2.8.0/bin/eclim")
     (eclim-eclipse-dirs '("~/usr/eclipse/dsl-2018-09/eclipse"))))
 

-(use-package geiser)
+(use-package geiser
+  :config
+  (make-directory (b/var "geiser/") t)
+  (setq geiser-repl-history-filename (b/var "geiser/repl-history")))

 
 (use-package geiser-guile
   :config
 
 (use-package geiser-guile
   :config


@@ -1148,6 +1158,12 @@ For disabling the behaviour for certain buffers and/or modes."
   :hook
   (po-mode . (lambda () (run-with-timer 0.1 nil 'View-exit))))
 
   :hook
   (po-mode . (lambda () (run-with-timer 0.1 nil 'View-exit))))
 

+(use-package tex-mode
+  :config
+  (cl-delete-if
+   (lambda (p) (string-match "^---?" (car p)))
+   tex--prettify-symbols-alist))
+

 \f
 ;;; Theme
 
 \f
 ;;; Theme
 


@@ -1270,18 +1286,17 @@ For disabling the behaviour for certain buffers and/or modes."
          ("C-c j"   . crux-top-join-line)
          ("C-S-j"   . crux-top-join-line)))
 
          ("C-c j"   . crux-top-join-line)
          ("C-S-j"   . crux-top-join-line)))
 

-(comment
-  ;; TODO
-  (use-package mwim
-    :bind (("C-a"    . mwim-beginning-of-code-or-line)
-           ("C-e"    . mwim-end-of-code-or-line)
-           ("<home>" . mwim-beginning-of-line-or-code)
-           ("<end>"  . mwim-end-of-line-or-code))))
+(use-package mwim
+  :bind (("C-a"    . mwim-beginning-of-code-or-line)
+         ("C-e"    . mwim-end-of-code-or-line)
+         ("<home>" . mwim-beginning-of-line-or-code)
+         ("<end>"  . mwim-end-of-line-or-code)))

 
 (use-package projectile
   :defer 0.5
   :bind-keymap ("C-c P" . projectile-command-map)
   :config
 
 (use-package projectile
   :defer 0.5
   :bind-keymap ("C-c P" . projectile-command-map)
   :config

+  (make-directory (b/var "projectile/") t)

   (projectile-mode)
 
   (defun b/projectile-mode-line-fun ()
   (projectile-mode)
 
   (defun b/projectile-mode-line-fun ()


@@ -1306,7 +1321,9 @@ For disabling the behaviour for certain buffers and/or modes."
        (advice-add 'magit-branch-and-checkout
                    :after #'my-projectile-invalidate-cache)))
   :custom
        (advice-add 'magit-branch-and-checkout
                    :after #'my-projectile-invalidate-cache)))
   :custom

+  (projectile-cache-file (b/var "projectile/cache.el"))

   (projectile-completion-system 'ivy)
   (projectile-completion-system 'ivy)

+  (projectile-known-projects-file (b/var "projectile/known-projects.el"))

   (projectile-mode-line-prefix " proj"))
 
 (use-package helpful
   (projectile-mode-line-prefix " proj"))
 
 (use-package helpful


@@ -1318,45 +1335,41 @@ For disabling the behaviour for certain buffers and/or modes."
    ("C-S-h k" . helpful-key)
    ("C-S-h p" . helpful-at-point)))
 
    ("C-S-h k" . helpful-key)
    ("C-S-h p" . helpful-at-point)))
 

-(comment
-  ;; TODO
-  (use-package unkillable-scratch
-    :defer 0.6
-    :config
-    (unkillable-scratch 1)
-    :custom
-    (unkillable-buffers '("^\\*scratch\\*$" "^\\*Messages\\*$"))))
+(use-package unkillable-scratch
+  :defer 0.6
+  :config
+  (unkillable-scratch 1)
+  :custom
+  (unkillable-buffers '("^\\*scratch\\*$" "^\\*Messages\\*$")))

 
 

-(comment
-  ;; TODO
-  ;; ,----
-  ;; | make pretty boxed quotes like this
-  ;; `----
-  (use-package boxquote
-    :defer 0.6
-    :bind
-    (:prefix-map b/boxquote-prefix-map
-                 :prefix "C-c q"
-                 ("b"   . boxquote-buffer)
-                 ("B"   . boxquote-insert-buffer)
-                 ("d"   . boxquote-defun)
-                 ("F"   . boxquote-insert-file)
-                 ("hf"  . boxquote-describe-function)
-                 ("hk"  . boxquote-describe-key)
-                 ("hv"  . boxquote-describe-variable)
-                 ("hw"  . boxquote-where-is)
-                 ("k"   . boxquote-kill)
-                 ("p"   . boxquote-paragraph)
-                 ("q"   . boxquote-boxquote)
-                 ("r"   . boxquote-region)
-                 ("s"   . boxquote-shell-command)
-                 ("t"   . boxquote-text)
-                 ("T"   . boxquote-title)
-                 ("u"   . boxquote-unbox)
-                 ("U"   . boxquote-unbox-region)
-                 ("y"   . boxquote-yank)
-                 ("M-q" . boxquote-fill-paragraph)
-                 ("M-w" . boxquote-kill-ring-save))))
+;; ,----
+;; | make pretty boxed quotes like this
+;; `----
+(use-package boxquote
+  :defer 0.6
+  :bind
+  (:prefix-map b/boxquote-prefix-map
+               :prefix "C-c q"
+               ("b"   . boxquote-buffer)
+               ("B"   . boxquote-insert-buffer)
+               ("d"   . boxquote-defun)
+               ("F"   . boxquote-insert-file)
+               ("hf"  . boxquote-describe-function)
+               ("hk"  . boxquote-describe-key)
+               ("hv"  . boxquote-describe-variable)
+               ("hw"  . boxquote-where-is)
+               ("k"   . boxquote-kill)
+               ("p"   . boxquote-paragraph)
+               ("q"   . boxquote-boxquote)
+               ("r"   . boxquote-region)
+               ("s"   . boxquote-shell-command)
+               ("t"   . boxquote-text)
+               ("T"   . boxquote-title)
+               ("u"   . boxquote-unbox)
+               ("U"   . boxquote-unbox-region)
+               ("y"   . boxquote-yank)
+               ("M-q" . boxquote-fill-paragraph)
+               ("M-w" . boxquote-kill-ring-save)))

 
 (use-package orgalist
   ;; http://lists.gnu.org/archive/html/emacs-orgmode/2019-04/msg00007.html
 
 (use-package orgalist
   ;; http://lists.gnu.org/archive/html/emacs-orgmode/2019-04/msg00007.html


@@ -1378,23 +1391,21 @@ For disabling the behaviour for certain buffers and/or modes."
   :config
   (global-hl-todo-mode))
 
   :config
   (global-hl-todo-mode))
 

-(comment
-  ;; TODO
-  (use-package shrink-path
-    :defer 0.5
-    :after eshell
-    :config
-    (defvar user-@-host (concat (user-login-name) "@" (system-name) " "))
-    (defun +eshell/prompt ()
-      (let ((base/dir (shrink-path-prompt default-directory)))
-        (concat (propertize user-@-host 'face 'default)
-                (propertize (car base/dir)
-                            'face 'font-lock-comment-face)
-                (propertize (cdr base/dir)
-                            'face 'font-lock-constant-face)
-                (propertize "> " 'face 'default))))
-    (setq eshell-prompt-regexp (concat user-@-host ".*> ")
-          eshell-prompt-function #'+eshell/prompt)))
+(use-package shrink-path
+  :defer 0.5
+  :after eshell
+  :config
+  (defvar user-@-host (concat (user-login-name) "@" (system-name) " "))
+  (defun +eshell/prompt ()
+    (let ((base/dir (shrink-path-prompt default-directory)))
+      (concat (propertize user-@-host 'face 'default)
+              (propertize (car base/dir)
+                          'face 'font-lock-comment-face)
+              (propertize (cdr base/dir)
+                          'face 'font-lock-constant-face)
+              (propertize "> " 'face 'default))))
+  (setq eshell-prompt-regexp (concat user-@-host ".*> ")
+        eshell-prompt-function #'+eshell/prompt))

 
 (use-package eshell-up
   :after eshell
 
 (use-package eshell-up
   :after eshell


@@ -1471,7 +1482,9 @@ For disabling the behaviour for certain buffers and/or modes."
                ("c" . mc/edit-lines)
                ("n" . mc/mark-next-like-this)
                ("p" . mc/mark-previous-like-this)
                ("c" . mc/edit-lines)
                ("n" . mc/mark-next-like-this)
                ("p" . mc/mark-previous-like-this)

-               ("a" . mc/mark-all-like-this))))
+               ("a" . mc/mark-all-like-this)))
+  :config
+  (setq mc/list-file (b/var "mc-list.el")))

 
 (comment
   ;; TODO
 
 (comment
   ;; TODO


@@ -1484,6 +1497,7 @@ For disabling the behaviour for certain buffers and/or modes."
   :config
   (defconst yas-verbosity-cur yas-verbosity)
   (setq yas-verbosity 2)
   :config
   (defconst yas-verbosity-cur yas-verbosity)
   (setq yas-verbosity 2)

+  (setq yas-snippet-dirs (list (b/etc "yasnippet/snippets/")))

   (add-to-list 'yas-snippet-dirs "~/src/git/guix/etc/snippets" t)
   (yas-reload-all)
   (setq yas-verbosity yas-verbosity-cur)
   (add-to-list 'yas-snippet-dirs "~/src/git/guix/etc/snippets" t)
   (yas-reload-all)
   (setq yas-verbosity yas-verbosity-cur)


@@ -1507,16 +1521,20 @@ For disabling the behaviour for certain buffers and/or modes."
 ;; (use-package fill-column-indicator)
 
 (use-package emojify
 ;; (use-package fill-column-indicator)
 
 (use-package emojify

+  :config
+  (make-directory (b/var "emojify/") t)
+  (setq emojify-emojis-dir (b/var "emojify/"))

   :hook (erc-mode . emojify-mode))
 
 (use-package window
   :bind
   (("s-o"   . other-window)
   :hook (erc-mode . emojify-mode))
 
 (use-package window
   :bind
   (("s-o"   . other-window)

-   ("M-o"   . other-window)

    ("s-/ ." . split-window-right)
    ("s-/ ," . split-window-below)
    ("s-/ 0" . delete-window)
    ("s-/ ." . split-window-right)
    ("s-/ ," . split-window-below)
    ("s-/ 0" . delete-window)

-   ("s-q"   . delete-window)))
+   ("s-q"   . delete-window))
+  :custom
+  (split-width-threshold 150))

 
 (use-package windmove
   :defer 0.6
 
 (use-package windmove
   :defer 0.6


@@ -1535,6 +1553,14 @@ For disabling the behaviour for certain buffers and/or modes."
   :bind ("C-c a p" . pass)
   :hook (pass-mode . View-exit))
 
   :bind ("C-c a p" . pass)
   :hook (pass-mode . View-exit))
 

+(use-package pdf-tools
+  :defer 0.5
+  :bind (:map pdf-view-mode-map
+              ("M-RET" . image-previous-line))
+  :config (pdf-tools-install nil t))
+
+(use-package biblio)
+

 \f
 ;;; Email (with Gnus)
 
 \f
 ;;; Email (with Gnus)
 


@@ -1572,45 +1598,22 @@ For disabling the behaviour for certain buffers and/or modes."
                                  ;; (: gnus-registry-split-fancy-with-parent)
                                  ;; (: gnus-group-split-fancy "INBOX" t "INBOX")
                                  ;; gnu
                                  ;; (: gnus-registry-split-fancy-with-parent)
                                  ;; (: gnus-group-split-fancy "INBOX" t "INBOX")
                                  ;; gnu

-                                 (list ".*emacs-devel.gnu.org" "l.gnu.emacs.devel")
-                                 (list ".*help-gnu-emacs.gnu.org" "l.gnu.emacs.help")
-                                 (list ".*info-gnu-emacs.gnu.org" "l.gnu.emacs.info")
-                                 (list ".*emacs-orgmode.gnu.org" "l.gnu.emacs.orgmode")
-                                 (list ".*emacs-tangents.gnu.org" "l.gnu.emacs.tangents")
-                                 (list ".*emacsconf-discuss.gnu.org" "l.gnu.emacsconf.discuss")
-                                 (list ".*emacsconf-register.gnu.org" "l.gnu.emacsconf.register")
-                                 (list ".*emacsconf-submit.gnu.org" "l.gnu.emacsconf.submit")
-                                 (list ".*fencepost-users.gnu.org" "l.gnu.fencepost.users")
-                                 (list ".*gnunet-developers.gnu.org" "l.gnu.gnunet.developers")
-                                 (list ".*help-gnunet.gnu.org" "l.gnu.gnunet.help")
-                                 (list ".*bug-gnuzilla.gnu.org" "l.gnu.gnuzilla.bug")
-                                 (list ".*gnuzilla-dev.gnu.org" "l.gnu.gnuzilla.dev")
-                                 (list ".*guile-devel.gnu.org" "l.gnu.guile.devel")
-                                 (list ".*guile-user.gnu.org" "l.gnu.guile.user")
-                                 (list ".*guix-devel.gnu.org" "l.gnu.guix.devel")
-                                 (list ".*help-guix.gnu.org" "l.gnu.guix.help")
-                                 (list ".*info-guix.gnu.org" "l.gnu.guix.info")
-                                 (list ".*savannah-hackers-public.gnu.org" "l.gnu.savannah.hackers.public")
-                                 (list ".*savannah-users.gnu.org" "l.gnu.savannah.users")
-                                 (list ".*www-commits.gnu.org" "l.gnu.www.commits")
-                                 (list ".*www-discuss.gnu.org" "l.gnu.www.discuss")
+                                 (list ".*<\\(.*\\)\\.\\(non\\)?gnu\\.org>.*" "l.\\1")
+                                 ;; *@lists.sr.ht
+                                 (list ".*<~\\(.*\\)/\\(.*\\)@lists.sr.ht>" "l.~\\1.\\2")

                                  ;; webmasters
                                  (from "webmasters\\(-comment\\)?@gnu\\.org" "webmasters")
                                  ;; webmasters
                                  (from "webmasters\\(-comment\\)?@gnu\\.org" "webmasters")

-                                 ;; haskell
-                                 (list ".*haskell-art.we.lurk.org" "l.haskell.art")
-                                 (list ".*haskell-cafe.haskell.org" "l.haskell.cafe")

                                  ;; other
                                  (list ".*atreus.freelists.org" "l.atreus")
                                  (list ".*deepspec.lists.cs.princeton.edu" "l.deepspec")
                                  ;; other
                                  (list ".*atreus.freelists.org" "l.atreus")
                                  (list ".*deepspec.lists.cs.princeton.edu" "l.deepspec")

-                                 (list ".*notmuch.notmuchmail.org" "l.notmuch")
-                                 (list ".*dev.lists.parabola.nu" "l.parabola.dev")
-                                 ;; *@lists.sr.ht
-                                 (list ".*~bandali/public-inbox@lists.sr.ht" "l.~bandali.public-inbox")
-                                 (list ".*~sircmpwn/free-writers-club@lists.sr.ht" "l.~sircmpwn.free-writers-club")
-                                 (list ".*~sircmpwn/sr.ht-admins@lists.sr.ht" "l.~sircmpwn.srht.admins")
-                                 (list ".*~sircmpwn/sr.ht-announce@lists.sr.ht" "l.~sircmpwn.srht.announce")
-                                 (list ".*~sircmpwn/sr.ht-dev@lists.sr.ht" "l.~sircmpwn.srht.dev")
-                                 (list ".*~sircmpwn/sr.ht-discuss@lists.sr.ht" "l.~sircmpwn.srht.discuss")
+                                 ;; (list ".*haskell-art.we.lurk.org" "l.haskell.art") ;d
+                                 (list ".*haskell-cafe.haskell.org" "l.haskell.cafe")
+                                 ;; (list ".*notmuch.notmuchmail.org" "l.notmuch") ;u
+                                 ;; (list ".*dev.lists.parabola.nu" "l.parabola-dev") ;u
+                                 ;; ----------------------------------
+                                 ;; legend: (u)nsubscribed | (d)ead
+                                 ;; ----------------------------------
+                                 ;; otherwise, leave mail in INBOX

                                  "INBOX")))
      (nnimap "uw"
              (nnimap-stream plain)
                                  "INBOX")))
      (nnimap "uw"
              (nnimap-stream plain)


@@ -1622,9 +1625,9 @@ For disabling the behaviour for certain buffers and/or modes."
              (nnimap-split-methods 'nnimap-split-fancy)
              (nnimap-split-fancy (|
                                   ;; (: gnus-registry-split-fancy-with-parent)
              (nnimap-split-methods 'nnimap-split-fancy)
              (nnimap-split-fancy (|
                                   ;; (: gnus-registry-split-fancy-with-parent)

-                                  ;; se463-s19
-                                  ("subject" "\\(SE\\s-?463\\|Deliverable\\)" "course.se463-s19")
-                                  (from "\\(SE\\s-?463\\|Gema\\|Hemant\\|Davood\\|Camilo\\|Reza\\|Michael\\|Sandy\\)" "course.se463-s19")
+                                  ;; se212-f19
+                                  ("subject" "SE\\s-?212" "course.se463-s19")
+                                  (from "SE\\s-?212" "course.se463-s19")

                                   ;; catch-all
                                   "INBOX")))
      (nnimap "csc"
                                   ;; catch-all
                                   "INBOX")))
      (nnimap "csc"


@@ -1642,90 +1645,102 @@ For disabling the behaviour for certain buffers and/or modes."
       (to-address . "deepspec@lists.cs.princeton.edu")
       (to-list    . "deepspec@lists.cs.princeton.edu")
       (list-identifier . "\\[deepspec\\]"))
       (to-address . "deepspec@lists.cs.princeton.edu")
       (to-list    . "deepspec@lists.cs.princeton.edu")
       (list-identifier . "\\[deepspec\\]"))

-     ("l\\.gnu\\.emacs\\.devel"
+     ("l\\.emacs-devel"

       (to-address . "emacs-devel@gnu.org")
       (to-list    . "emacs-devel@gnu.org"))
       (to-address . "emacs-devel@gnu.org")
       (to-list    . "emacs-devel@gnu.org"))

-     ("l\\.gnu\\.emacs\\.help"
+     ("l\\.help-gnu-emacs"

       (to-address . "help-gnu-emacs@gnu.org")
       (to-list    . "help-gnu-emacs@gnu.org"))
       (to-address . "help-gnu-emacs@gnu.org")
       (to-list    . "help-gnu-emacs@gnu.org"))

-     ("l\\.gnu\\.emacs\\.info"
+     ("l\\.info-gnu-emacs"

       (to-address . "info-gnu-emacs@gnu.org")
       (to-list    . "info-gnu-emacs@gnu.org"))
       (to-address . "info-gnu-emacs@gnu.org")
       (to-list    . "info-gnu-emacs@gnu.org"))

-     ("l\\.gnu\\.emacs\\.orgmode"
+     ("l\\.emacs-orgmode"

       (to-address . "emacs-orgmode@gnu.org")
       (to-list    . "emacs-orgmode@gnu.org")
       (list-identifier . "\\[O\\]"))
       (to-address . "emacs-orgmode@gnu.org")
       (to-list    . "emacs-orgmode@gnu.org")
       (list-identifier . "\\[O\\]"))

-     ("l\\.gnu\\.emacs\\.tangents"
+     ("l\\.emacs-tangents"

       (to-address . "emacs-tangents@gnu.org")
       (to-list    . "emacs-tangents@gnu.org"))
       (to-address . "emacs-tangents@gnu.org")
       (to-list    . "emacs-tangents@gnu.org"))

-     ("l\\.gnu\\.emacsconf\\.discuss"
+     ("l\\.emacsconf-discuss"

       (to-address . "emacsconf-discuss@gnu.org")
       (to-list    . "emacsconf-discuss@gnu.org"))
       (to-address . "emacsconf-discuss@gnu.org")
       (to-list    . "emacsconf-discuss@gnu.org"))

-     ("l\\.gnu\\.emacsconf\\.register"
+     ("l\\.emacsconf-register"

       (to-address . "emacsconf-register@gnu.org")
       (to-list    . "emacsconf-register@gnu.org"))
       (to-address . "emacsconf-register@gnu.org")
       (to-list    . "emacsconf-register@gnu.org"))

-     ("l\\.gnu\\.emacsconf\\.submit"
+     ("l\\.emacsconf-submit"

       (to-address . "emacsconf-submit@gnu.org")
       (to-list    . "emacsconf-submit@gnu.org"))
       (to-address . "emacsconf-submit@gnu.org")
       (to-list    . "emacsconf-submit@gnu.org"))

-     ("l\\.gnu\\.fencepost\\.users"
+     ("l\\.fencepost-users"

       (to-address . "fencepost-users@gnu.org")
       (to-list    . "fencepost-users@gnu.org")
       (list-identifier . "\\[Fencepost-users\\]"))
       (to-address . "fencepost-users@gnu.org")
       (to-list    . "fencepost-users@gnu.org")
       (list-identifier . "\\[Fencepost-users\\]"))

-     ("l\\.gnu\\.gnunet\\.developers"
+     ("l\\.gnewsense-art"
+      (to-address . "gnewsense-art@nongnu.org")
+      (to-list    . "gnewsense-art@nongnu.org")
+      (list-identifier . "\\[gNewSense-art\\]"))
+     ("l\\.gnewsense-dev"
+      (to-address . "gnewsense-dev@nongnu.org")
+      (to-list    . "gnewsense-dev@nongnu.org")
+      (list-identifier . "\\[Gnewsense-dev\\]"))
+     ("l\\.gnewsense-users"
+      (to-address . "gnewsense-users@nongnu.org")
+      (to-list    . "gnewsense-users@nongnu.org")
+      (list-identifier . "\\[gNewSense-users\\]"))
+     ("l\\.gnunet-developers"

       (to-address . "gnunet-developers@gnu.org")
       (to-list    . "gnunet-developers@gnu.org")
       (list-identifier . "\\[GNUnet-developers\\]"))
       (to-address . "gnunet-developers@gnu.org")
       (to-list    . "gnunet-developers@gnu.org")
       (list-identifier . "\\[GNUnet-developers\\]"))

-     ("l\\.gnu\\.gnunet\\.help"
+     ("l\\.help-gnunet"

       (to-address . "help-gnunet@gnu.org")
       (to-list    . "help-gnunet@gnu.org")
       (list-identifier . "\\[Help-gnunet\\]"))
       (to-address . "help-gnunet@gnu.org")
       (to-list    . "help-gnunet@gnu.org")
       (list-identifier . "\\[Help-gnunet\\]"))

-     ("l\\.gnu\\.gnuzilla\\.bug"
+     ("l\\.bug-gnuzilla"

       (to-address . "bug-gnuzilla@gnu.org")
       (to-list    . "bug-gnuzilla@gnu.org")
       (list-identifier . "\\[Bug-gnuzilla\\]"))
       (to-address . "bug-gnuzilla@gnu.org")
       (to-list    . "bug-gnuzilla@gnu.org")
       (list-identifier . "\\[Bug-gnuzilla\\]"))

-     ("l\\.gnu\\.gnuzilla\\.dev"
+     ("l\\.gnuzilla-dev"

       (to-address . "gnuzilla-dev@gnu.org")
       (to-list    . "gnuzilla-dev@gnu.org")
       (list-identifier . "\\[Gnuzilla-dev\\]"))
       (to-address . "gnuzilla-dev@gnu.org")
       (to-list    . "gnuzilla-dev@gnu.org")
       (list-identifier . "\\[Gnuzilla-dev\\]"))

-     ("l\\.gnu\\.guile\\.devel"
+     ("l\\.guile-devel"

       (to-address . "guile-devel@gnu.org")
       (to-list    . "guile-devel@gnu.org"))
       (to-address . "guile-devel@gnu.org")
       (to-list    . "guile-devel@gnu.org"))

-     ("l\\.gnu\\.guile\\.user"
+     ("l\\.guile-user"

       (to-address . "guile-user@gnu.org")
       (to-list    . "guile-user@gnu.org"))
       (to-address . "guile-user@gnu.org")
       (to-list    . "guile-user@gnu.org"))

-     ("l\\.gnu\\.guix\\.devel"
+     ("l\\.guix-devel"

       (to-address . "guix-devel@gnu.org")
       (to-list    . "guix-devel@gnu.org"))
       (to-address . "guix-devel@gnu.org")
       (to-list    . "guix-devel@gnu.org"))

-     ("l\\.gnu\\.guix\\.help"
+     ("l\\.help-guix"

       (to-address . "help-guix@gnu.org")
       (to-list    . "help-guix@gnu.org"))
       (to-address . "help-guix@gnu.org")
       (to-list    . "help-guix@gnu.org"))

-     ("l\\.gnu\\.guix\\.info"
+     ("l\\.info-guix"

       (to-address . "info-guix@gnu.org")
       (to-list    . "info-guix@gnu.org"))
       (to-address . "info-guix@gnu.org")
       (to-list    . "info-guix@gnu.org"))

-     ("l\\.gnu\\.savannah\\.hackers\\.public"
+     ("l\\.savannah-hackers-public"

       (to-address . "savannah-hackers-public@gnu.org")
       (to-list    . "savannah-hackers-public@gnu.org"))
       (to-address . "savannah-hackers-public@gnu.org")
       (to-list    . "savannah-hackers-public@gnu.org"))

-     ("l\\.gnu\\.savannah\\.users"
+     ("l\\.savannah-users"

       (to-address . "savannah-users@gnu.org")
       (to-list    . "savannah-users@gnu.org"))
       (to-address . "savannah-users@gnu.org")
       (to-list    . "savannah-users@gnu.org"))

-     ("l\\.gnu\\.www\\.commits"
+     ("l\\.www-commits"

       (to-address . "www-commits@gnu.org")
       (to-list    . "www-commits@gnu.org"))
       (to-address . "www-commits@gnu.org")
       (to-list    . "www-commits@gnu.org"))

-     ("l\\.gnu\\.www\\.discuss"
+     ("l\\.www-discuss"

       (to-address . "www-discuss@gnu.org")
       (to-list    . "www-discuss@gnu.org"))
       (to-address . "www-discuss@gnu.org")
       (to-list    . "www-discuss@gnu.org"))

-     ("l\\.haskell\\.art"
+     ("l\\.haskell-art"

       (to-address . "haskell-art@we.lurk.org")
       (to-list    . "haskell-art@we.lurk.org")
       (list-identifier . "\\[haskell-art\\]"))
       (to-address . "haskell-art@we.lurk.org")
       (to-list    . "haskell-art@we.lurk.org")
       (list-identifier . "\\[haskell-art\\]"))

-     ("l\\.haskell\\.cafe"
+     ("l\\.haskell-cafe"

       (to-address . "haskell-cafe@haskell.org")
       (to-list    . "haskell-cafe@haskell.org")
       (list-identifier . "\\[Haskell-cafe\\]"))
      ("l\\.notmuch"
       (to-address . "notmuch@notmuchmail.org")
       (to-list    . "notmuch@notmuchmail.org"))
       (to-address . "haskell-cafe@haskell.org")
       (to-list    . "haskell-cafe@haskell.org")
       (list-identifier . "\\[Haskell-cafe\\]"))
      ("l\\.notmuch"
       (to-address . "notmuch@notmuchmail.org")
       (to-list    . "notmuch@notmuchmail.org"))

-     ("l\\.parabola\\.dev"
+     ("l\\.parabola-dev"

       (to-address . "dev@lists.parabola.nu")
       (to-list    . "dev@lists.parabola.nu")
       (list-identifier . "\\[Dev\\]"))
       (to-address . "dev@lists.parabola.nu")
       (to-list    . "dev@lists.parabola.nu")
       (list-identifier . "\\[Dev\\]"))


@@ -1735,16 +1750,16 @@ For disabling the behaviour for certain buffers and/or modes."
      ("l\\.~sircmpwn\\.free-writers-club"
       (to-address . "~sircmpwn/free-writers-club@lists.sr.ht")
       (to-list    . "~sircmpwn/free-writers-club@lists.sr.ht"))
      ("l\\.~sircmpwn\\.free-writers-club"
       (to-address . "~sircmpwn/free-writers-club@lists.sr.ht")
       (to-list    . "~sircmpwn/free-writers-club@lists.sr.ht"))

-     ("l\\.~sircmpwn\\.srht\\.admins"
+     ("l\\.~sircmpwn\\.srht-admins"

       (to-address . "~sircmpwn/sr.ht-admins@lists.sr.ht")
       (to-list    . "~sircmpwn/sr.ht-admins@lists.sr.ht"))
       (to-address . "~sircmpwn/sr.ht-admins@lists.sr.ht")
       (to-list    . "~sircmpwn/sr.ht-admins@lists.sr.ht"))

-     ("l\\.~sircmpwn\\.srht\\.announce"
+     ("l\\.~sircmpwn\\.srht-announce"

       (to-address . "~sircmpwn/sr.ht-announce@lists.sr.ht")
       (to-list    . "~sircmpwn/sr.ht-announce@lists.sr.ht"))
       (to-address . "~sircmpwn/sr.ht-announce@lists.sr.ht")
       (to-list    . "~sircmpwn/sr.ht-announce@lists.sr.ht"))

-     ("l\\.~sircmpwn\\.srht\\.dev"
+     ("l\\.~sircmpwn\\.srht-dev"

       (to-address . "~sircmpwn/sr.ht-dev@lists.sr.ht")
       (to-list    . "~sircmpwn/sr.ht-dev@lists.sr.ht"))
       (to-address . "~sircmpwn/sr.ht-dev@lists.sr.ht")
       (to-list    . "~sircmpwn/sr.ht-dev@lists.sr.ht"))

-     ("l\\.~sircmpwn\\.srht\\.discuss"
+     ("l\\.~sircmpwn\\.srht-discuss"

       (to-address . "~sircmpwn/sr.ht-discuss@lists.sr.ht")
       (to-list    . "~sircmpwn/sr.ht-discuss@lists.sr.ht"))
      ("webmasters"
       (to-address . "~sircmpwn/sr.ht-discuss@lists.sr.ht")
       (to-list    . "~sircmpwn/sr.ht-discuss@lists.sr.ht"))
      ("webmasters"


@@ -1766,11 +1781,15 @@ For disabling the behaviour for certain buffers and/or modes."
    gnus-interactive-exit nil
    gnus-gcc-mark-as-read t)
   :config
    gnus-interactive-exit nil
    gnus-gcc-mark-as-read t)
   :config

-  (comment
-    ;; TODO
-    (require 'ebdb)
-    (require 'ebdb-mua)
-    (require 'ebdb-gnus))
+  (require 'ebdb)
+  (require 'ebdb-mua)
+  (require 'ebdb-gnus)
+
+  (when (version< emacs-version "27")
+    (add-to-list
+     'nnmail-split-abbrev-alist
+     '(list . "list-id\\|list-post\\|x-mailing-list\\|x-beenthere\\|x-loop")
+     t))

 
   ;; (gnus-registry-initialize)
 
 
   ;; (gnus-registry-initialize)
 


@@ -1827,15 +1846,15 @@ https://shemshak.org/~amin")
   (defvar b/gnu-signature "Amin Bandali
 Free Software Activist | GNU Webmaster & Volunteer
 GPG: BE62 7373 8E61 6D6D 1B3A  08E8 A21A 0202 4881 6103
   (defvar b/gnu-signature "Amin Bandali
 Free Software Activist | GNU Webmaster & Volunteer
 GPG: BE62 7373 8E61 6D6D 1B3A  08E8 A21A 0202 4881 6103

-https://bandalis.org")
+https://bandali.eu.org")

   (defvar b/uw-signature "Amin Bandali, MMath Student
 Cheriton School of Computer Science
 University of Waterloo
   (defvar b/uw-signature "Amin Bandali, MMath Student
 Cheriton School of Computer Science
 University of Waterloo

-https://bandalis.org")
+https://bandali.eu.org")

   (defvar b/csc-signature "Amin Bandali
   (defvar b/csc-signature "Amin Bandali

-Termcom, Computer Science Club
-University of Waterloo
-https://bandalis.org")
+Systems Committee
+Computer Science Club, University of Waterloo
+https://csclub.uwaterloo.ca/~abandali")

   (setq gnus-posting-styles
         '((".*"
            (address "amin@shemshak.org")
   (setq gnus-posting-styles
         '((".*"
            (address "amin@shemshak.org")


@@ -1930,9 +1949,7 @@ https://bandalis.org")
         '(gnus-find-subscribed-addresses)
         message-dont-reply-to-names
         "\\(\\(\\(amin\\|mab\\)@shemshak\\.org\\)\\|\\(amin@bndl\\.org\\)\\|\\(.*@aminb\\.org\\)\\|\\(\\(bandali\\|mab\\|aminb?\\)@gnu\\.org\\)\\|\\(a\\(min\\.\\)?bandali@uwaterloo\\.ca\\)\\|\\(abandali@csclub\\.uwaterloo\\.ca\\)\\)")
         '(gnus-find-subscribed-addresses)
         message-dont-reply-to-names
         "\\(\\(\\(amin\\|mab\\)@shemshak\\.org\\)\\|\\(amin@bndl\\.org\\)\\|\\(.*@aminb\\.org\\)\\|\\(\\(bandali\\|mab\\|aminb?\\)@gnu\\.org\\)\\|\\(a\\(min\\.\\)?bandali@uwaterloo\\.ca\\)\\|\\(abandali@csclub\\.uwaterloo\\.ca\\)\\)")

-  (comment
-    ;; TODO
-    (require 'company-ebdb))
+  (require 'company-ebdb)

   :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
          (message-mode . flyspell-mode)
          (message-mode . (lambda ()
   :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
          (message-mode . flyspell-mode)
          (message-mode . (lambda ()


@@ -1972,56 +1989,49 @@ https://bandalis.org")
         ("r" . footnote-renumber-footnotes)
         ("s" . footnote-set-style)))
 
         ("r" . footnote-renumber-footnotes)
         ("s" . footnote-set-style)))
 

-(comment
-  ;; TODO
-  (use-package ebdb
-    :straight (:host github :repo "girzel/ebdb")
-    :after gnus
-    :bind (:map gnus-group-mode-map ("e" . ebdb))
-    :config
-    (setq ebdb-sources (b/var "ebdb"))
-    (with-eval-after-load 'swiper
-      (add-to-list 'swiper-font-lock-exclude 'ebdb-mode t)))
-
-  (use-package ebdb-com
-    :after ebdb)
+(use-package ebdb
+  :after gnus
+  :bind (:map gnus-group-mode-map ("e" . ebdb))
+  :config
+  (setq ebdb-sources (b/var "ebdb"))
+  (with-eval-after-load 'swiper
+    (add-to-list 'swiper-font-lock-exclude 'ebdb-mode t)))

 
 

-  ;; (use-package ebdb-complete
-  ;;   :after ebdb
-  ;;   :config
-  ;;   (ebdb-complete-enable))
+(use-package ebdb-com
+  :after ebdb)

 
 

-  (use-package company-ebdb
-    :config
-    (defun company-ebdb--post-complete (_) nil))
+;; (use-package ebdb-complete
+;;   :after ebdb
+;;   :config
+;;   (ebdb-complete-enable))

 
 

-  (use-package ebdb-gnus
-    :after ebdb
-    :custom
-    (ebdb-gnus-window-configuration
-     '(article
-       (vertical 1.0
-                 (summary 0.25 point)
-                 (horizontal 1.0
-                             (article 1.0)
-                             (ebdb-gnus 0.3))))))
-
-  (use-package ebdb-mua
-    :after ebdb
-    ;; :custom (ebdb-mua-pop-up nil)
-    )
+(use-package company-ebdb
+  :config
+  (defun company-ebdb--post-complete (_) nil))

 
 

-  ;; (use-package ebdb-message
-  ;;   :after ebdb)
+(use-package ebdb-gnus
+  :after ebdb
+  :custom
+  (ebdb-gnus-window-configuration
+   '(article
+     (vertical 1.0
+               (summary 0.25 point)
+               (horizontal 1.0
+                           (article 1.0)
+                           (ebdb-gnus 0.3))))))
+
+(use-package ebdb-mua
+  :after ebdb
+  ;; :custom (ebdb-mua-pop-up nil)
+  )

 
 

+;; (use-package ebdb-message
+;;   :after ebdb)

 
 

-  ;; (use-package ebdb-vcard
-  ;;   :after ebdb)
-  )
+;; (use-package ebdb-vcard
+;;   :after ebdb)

 
 

-(comment
-  ;; TODO
-  (use-package message-x))
+(use-package message-x)

 
 (comment
   (use-package message-x
 
 (comment
   (use-package message-x


@@ -2075,14 +2085,86 @@ https://bandalis.org")
   (add-to-list 'erc-modules 'keep-place)
   (add-to-list 'erc-modules 'notifications)
   (add-to-list 'erc-modules 'spelling)
   (add-to-list 'erc-modules 'keep-place)
   (add-to-list 'erc-modules 'notifications)
   (add-to-list 'erc-modules 'spelling)

-  (comment
-    ;; TODO
-    (add-to-list 'erc-modules 'scrolltoplace))
-  (erc-update-modules))
+  (add-to-list 'erc-modules 'scrolltoplace)
+  (erc-update-modules)
+
+  (when (and (version<= "24.4" emacs-version)
+             (version<         emacs-version "27"))
+    ;; fix erc-lurker bug
+    ;; patch submitted: https://bugs.gnu.org/36843#10
+    ;; TODO: remove when patch is merged and emacs 27 is released
+    (defvar erc-message-parsed)
+    (defun erc-display-message (parsed type buffer msg &rest args)
+      "Display MSG in BUFFER.
+
+ARGS, PARSED, and TYPE are used to format MSG sensibly.
+
+See also `erc-format-message' and `erc-display-line'."
+      (let ((string (if (symbolp msg)
+                        (apply #'erc-format-message msg args)
+                      msg))
+            (erc-message-parsed parsed))
+        (setq string
+              (cond
+               ((null type)
+                string)
+               ((listp type)
+                (mapc (lambda (type)
+                        (setq string
+                              (erc-display-message-highlight type string)))
+                      type)
+                string)
+               ((symbolp type)
+                (erc-display-message-highlight type string))))
+
+        (if (not (erc-response-p parsed))
+            (erc-display-line string buffer)
+          (unless (erc-hide-current-message-p parsed)
+            (erc-put-text-property 0 (length string) 'erc-parsed parsed string)
+            (erc-put-text-property 0 (length string) 'rear-sticky t string)
+            (when (erc-response.tags parsed)
+              (erc-put-text-property 0 (length string) 'tags (erc-response.tags parsed)
+                                     string))
+            (erc-display-line string buffer)))))
+
+    (defun erc-lurker-update-status (_message)
+      "Update `erc-lurker-state' if necessary.
+
+This function is called from `erc-insert-pre-hook'.  If the
+current message is a PRIVMSG, update `erc-lurker-state' to
+reflect the fact that its sender has issued a PRIVMSG at the
+current time.  Otherwise, take no action.
+
+This function depends on the fact that `erc-display-message'
+lexically binds `erc-message-parsed', which is used to check if
+the current message is a PRIVMSG and to determine its sender.
+See also `erc-lurker-trim-nicks' and `erc-lurker-ignore-chars'.
+
+In order to limit memory consumption, this function also calls
+`erc-lurker-cleanup' once every `erc-lurker-cleanup-interval'
+updates of `erc-lurker-state'."
+      (when (and (boundp 'erc-message-parsed)
+                 (erc-response-p erc-message-parsed))
+        (let* ((command (erc-response.command erc-message-parsed))
+               (sender
+                (erc-lurker-maybe-trim
+                 (car (erc-parse-user (erc-response.sender erc-message-parsed)))))
+               (server
+                (erc-canonicalize-server-name erc-server-announced-name)))
+          (when (equal command "PRIVMSG")
+            (when (>= (cl-incf erc-lurker-cleanup-count)
+                      erc-lurker-cleanup-interval)
+              (setq erc-lurker-cleanup-count 0)
+              (erc-lurker-cleanup))
+            (unless (gethash server erc-lurker-state)
+              (puthash server (make-hash-table :test 'equal) erc-lurker-state))
+            (puthash sender (current-time)
+                     (gethash server erc-lurker-state))))))))

 
 (use-package erc-fill
   :after erc
   :custom
 
 (use-package erc-fill
   :after erc
   :custom

+  (erc-fill-column 77)

   (erc-fill-function 'erc-fill-static)
   (erc-fill-static-center 18))
 
   (erc-fill-function 'erc-fill-static)
   (erc-fill-static-center 18))
 


@@ -2103,10 +2185,8 @@ https://bandalis.org")
 (use-package erc-hl-nicks
   :after erc)
 
 (use-package erc-hl-nicks
   :after erc)
 

-(comment
-  ;; TODO
-  (use-package erc-scrolltoplace
-    :after erc))
+(use-package erc-scrolltoplace
+  :after erc)

 
 (use-package znc
   :load-path "lisp/znc.el/"
 
 (use-package znc
   :load-path "lisp/znc.el/"