Update .gnus setup

z9999-cray.org

@@ -11,77 +11,73 @@
 Use gnus in emacs for email. Outside of normal emacs since its easier.
 
 #+BEGIN_SRC emacs-lisp :mkdirp yes :tangle-mode (identity #o600) :tangle (tangle/file ".gnus" (bound-and-true-p cray-p))
-(use-package gnus
-  :ensure t
-  :config
-  (progn
-    (setq user-full-name "Mitch Tishmack"
-          user-mail-address "mtishmack@cray.com")
-    (setq gnus-select-method '(nnnil ""))
-    (setq gnus-secondary-select-methods '((nnml "")))
-    (add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
-    (setq gnus-mime-display-multipart-related-as-mixed t)
-    (setq gnus-auto-select-first nil)
-    (setq gnus-summary-display-arrow nil)
-    (setq nnmail-split-methods 'nnmail-split-fancy)
-    (setq gnus-nntp-server nil
-               gnus-read-active-file nil
-               gnus-save-newsrc-file nil
-               gnus-read-newsrc-file nil
-               gnus-check-new-newsgroups nil)
-         (setq nnml-directory "~/.emacs.d/mail")
-         (setq message-directory "~/.emacs.d/mail")
-
-         (setq gnus-select-method
-               '(nnimap "outlook"
-                        (nnimap-address "outlook.office365.com")
-                        (nnimap-server-port 993))
-                        message-send-mail-with-function 'smtpmail-send-it
-                        send-mail-function 'smtpmail-send-it
-                        )
-         (setq-default
-          gnus-summary-line-format "[%U%R%z] %(%&user-date;  %-15,15f  %B%s%)\n"
-          gnus-user-date-format-alist '((t . "%Y-%m-%d"))
-          gnus-summary-thread-gathering-function 'gnus-gather-threads-by-references
-          gnus-sum-thread-tree-root ""
-          gnus-sum-thread-tree-false-root ""
-          gnus-sum-thread-tree-indent " "
-          gnus-sum-thread-tree-single-indent ""
-          gnus-sum-thread-tree-single-leaf "└─>"
-          gnus-sum-thread-tree-vertical "│"
-          gnus-sum-thread-tree-leaf-with-other "├─>")
-         (setq gnus-thread-sort-functions
-               '((not gnus-thread-sort-by-date)
-                 (not gnus-thread-sort-by-number)))
-         (setq gnus-use-cache t)
-         (setq gnus-save-score t)
-         (setq gnus-use-adaptive-scoring '(word line))
-         (setq gnus-adaptive-word-length-limit 5)
-         (setq gnus-adaptive-word-no-group-words t)
-         (setq gnus-default-adaptive-score-alist
-               '((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))
-                 (gnus-kill-file-mark)
-                 (gnus-ancient-mark)
-                 (gnus-low-score-mark)
-                 (gnus-catchup-mark (from -1) (subject -1))))
-         (setq nnmail-split-fancy
-               '(|
-                 ("From" "\\(root\\|cron\\)@localhost" "system")
-                 "normal"))
-         (setq nnimap­split­inbox "INBOX")
-         (setq nnimap­split­predicate "UNDELETED")
-         ;; (setq nnimap­split­rule
-         ;;       '(
-         ;;         ("INBOX.commitspam" "^From:.*(XT3.*Updates.*|.*xt3@cray.com.*)")
-         ;;         ))
-         )
-  )
+  (use-package gnus
+    :ensure t
+    :config
+    (progn
+      (setq user-full-name "Mitch Tishmack"
+            user-mail-address "mtishmack@cray.com")
+      (setq gnus-select-method '(nnnil ""))
+      (setq gnus-secondary-select-methods '((nnml "")))
+      (add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
+      (setq gnus-mime-display-multipart-related-as-mixed t)
+      (setq gnus-auto-select-first nil)
+      (setq gnus-summary-display-arrow nil)
+      (setq nnmail-split-methods 'nnmail-split-fancy)
+      (setq gnus-nntp-server nil
+                 gnus-read-active-file nil
+                 gnus-save-newsrc-file nil
+                 gnus-read-newsrc-file nil
+                 gnus-check-new-newsgroups nil)
+           (setq nnml-directory "~/.emacs.d/mail")
+           (setq message-directory "~/.emacs.d/mail")
+
+           (setq gnus-select-method
+                 '(nnimap "outlook"
+                          (nnimap-address "outlook.office365.com")
+                          (nnimap-server-port 993))
+                          message-send-mail-with-function 'smtpmail-send-it
+                          send-mail-function 'smtpmail-send-it
+                          )
+           (setq-default
+            gnus-summary-line-format "[%U%R%z] %(%&user-date;  %-15,15f  %B%s%)\n"
+            gnus-user-date-format-alist '((t . "%Y-%m-%d"))
+            gnus-summary-thread-gathering-function 'gnus-gather-threads-by-references
+            gnus-sum-thread-tree-root ""
+            gnus-sum-thread-tree-false-root ""
+            gnus-sum-thread-tree-indent " "
+            gnus-sum-thread-tree-single-indent ""
+            gnus-sum-thread-tree-single-leaf "└─>"
+            gnus-sum-thread-tree-vertical "│"
+            gnus-sum-thread-tree-leaf-with-other "├─>")
+           (setq gnus-thread-sort-functions
+                 '((not gnus-thread-sort-by-date)
+                   (not gnus-thread-sort-by-number)))
+           (setq gnus-use-cache t)
+           (setq gnus-save-score t)
+           (setq gnus-use-adaptive-scoring '(word line))
+           (setq gnus-adaptive-word-length-limit 5)
+           (setq gnus-adaptive-word-no-group-words t)
+           (setq gnus-default-adaptive-score-alist
+                 '((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))
+                   (gnus-kill-file-mark)
+                   (gnus-ancient-mark)
+                   (gnus-low-score-mark)
+                   (gnus-catchup-mark (from -1) (subject -1))))
+           (setq nnmail-split-fancy
+                 '(|
+                   ("From" "\\(root\\|cron\\)@localhost" "system")
+                   "normal"))
+           (setq nnimap­split­inbox "INBOX")
+           (setq nnimap­split­predicate "UNDELETED")
+           )
+    )
 #+END_SRC
 
 ** ~/bin/flushdns