* .emacs.d/lisp/bandali-erc.el: Small tweaks/fixes.

[~bandali/configs] / .emacs.d / lisp / bandali-gnus.el

diff --git a/.emacs.d/lisp/bandali-gnus.el b/.emacs.d/lisp/bandali-gnus.el
index e09fa30..9516447 100644 (file)
--- a/.emacs.d/lisp/bandali-gnus.el
+++ b/.emacs.d/lisp/bandali-gnus.el
@@ -185,6 +185,8 @@
        '(list . "list-id\\|list-post\\|x-mailing-list\\|x-beenthere\\|x-loop")
        t)))
 
        '(list . "list-id\\|list-post\\|x-mailing-list\\|x-beenthere\\|x-loop")
        t)))
 

+  (setq gnus-user-agent '(emacs gnus type))
+

   ;; (require 'gnus-registry)
   ;; (setq gnus-registry-max-entries 2500)
   ;; (setq gnus-registry-ignored-groups
   ;; (require 'gnus-registry)
   ;; (setq gnus-registry-max-entries 2500)
   ;; (setq gnus-registry-ignored-groups


@@ -257,6 +259,8 @@
   (setq gnus-thread-sort-functions '(gnus-thread-sort-by-number
                                      gnus-thread-sort-by-subject
                                      gnus-thread-sort-by-date))
   (setq gnus-thread-sort-functions '(gnus-thread-sort-by-number
                                      gnus-thread-sort-by-subject
                                      gnus-thread-sort-by-date))

+  (with-eval-after-load 'message
+    (setq gnus-ignored-from-addresses message-dont-reply-to-names))

   ;; local key bindings
   (define-key gnus-summary-mode-map (kbd "M-L") #'org-store-link)
   ;; (define-key gnus-summary-mode-map (kbd "r")
   ;; local key bindings
   (define-key gnus-summary-mode-map (kbd "M-L") #'org-store-link)
   ;; (define-key gnus-summary-mode-map (kbd "r")


@@ -311,10 +315,13 @@
       ("X-Message-SMTP-Method" "smtp mail.shemshak.org 587")
       (gcc "nnimap+shemshak:Sent"))
      ("nnimap\\+canonical:.*"
       ("X-Message-SMTP-Method" "smtp mail.shemshak.org 587")
       (gcc "nnimap+shemshak:Sent"))
      ("nnimap\\+canonical:.*"

-      (address "amin.bandali@canonical.com")
+      (address "bandali@canonical.com")

       ("X-Message-SMTP-Method" "smtp smtp.canonical.com 587")
       (signature nil)
       (gcc "nnimap+canonical:Sent"))
       ("X-Message-SMTP-Method" "smtp smtp.canonical.com 587")
       (signature nil)
       (gcc "nnimap+canonical:Sent"))

+     ((header "list-id" ".*\\.lists.ubuntu.com")
+      (address "bandali@ubuntu.com")
+      ("X-Message-SMTP-Method" "smtp mail.kelar.org 587"))

      ("nnimap\\+csc:.*"
       (address "bandali@csclub.uwaterloo.ca")
       ("X-Message-SMTP-Method" "smtp mail.csclub.uwaterloo.ca 587")
      ("nnimap\\+csc:.*"
       (address "bandali@csclub.uwaterloo.ca")
       ("X-Message-SMTP-Method" "smtp mail.csclub.uwaterloo.ca 587")


@@ -366,6 +373,9 @@
    'mm-archive-decoders
    '("application/gzip" nil "gunzip" "-S" ".zip" "-kd" "%f" "-r")))
 
    'mm-archive-decoders
    '("application/gzip" nil "gunzip" "-S" ".zip" "-kd" "%f" "-r")))
 

+(with-eval-after-load 'gnus-start
+  (add-hook 'gnus-after-getting-new-news-hook #'gnus-notifications))
+

 (with-eval-after-load 'mm-decode
   (setq
    ;; mm-attachment-override-types `("text/x-diff" "text/x-patch"
 (with-eval-after-load 'mm-decode
   (setq
    ;; mm-attachment-override-types `("text/x-diff" "text/x-patch"