X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/7bfab029d5c8a53ba1d5872371d79a2a3a90adf2..5f78d81e91554631954a175f78e33d0671d05a10:/dot/gnus.el

diff --git a/dot/gnus.el b/dot/gnus.el
index 1625542..f6f4438 100644
--- a/dot/gnus.el
+++ b/dot/gnus.el
@@ -37,8 +37,10 @@
 ;; Display a slrn-like tree view in the summary window.
 (setq gnus-use-trees nil)
 (setq gnus-summary-make-false-root 'dummy)
-(setq gnus-summary-line-format "%U%R%z%4L %(%[%-16,16f%]%): %B %s\n"
-      gnus-summary-dummy-line-format "        %(%[----------------%]%): * %S\n")
+(setq gnus-summary-line-format
+	"%U%R%z%4L %(%[%-16,16f%]%): %B %s\n"
+      gnus-summary-dummy-line-format
+	"        %(%[----------------%]%): * %S\n")
 (setq gnus-sum-thread-tree-root ">"
       gnus-sum-thread-tree-false-root ">"
       gnus-sum-thread-tree-single-indent "="
@@ -54,9 +56,9 @@
 
 ;; Sort threads in a useful way.
 (setq gnus-thread-sort-functions
-      '(gnus-thread-sort-by-number
-	gnus-thread-sort-by-subject
-	gnus-thread-sort-by-total-score))
+	'(gnus-thread-sort-by-number
+	  gnus-thread-sort-by-subject
+	  gnus-thread-sort-by-total-score))
 
 ;; Configure the crypto.
 (setq mm-verify-option 'known
@@ -69,6 +71,10 @@
       gnus-check-bogus-newsgroups nil
       gnus-read-active-file 'ask-server)
 
+;; Don't skip unread groups.
+(setq gnus-group-goto-unread nil
+      gnus-summary-next-group-on-exit nil)
+
 ;; Use one article buffer per group.
 (setq gnus-single-article-buffer nil)
 
@@ -117,6 +123,24 @@
 ;; bogus.
 (setq gnus-level-unsubscribed 6)
 
+;; Reconfigure the `nnmail-split-fancy' syntax table to be less mad.
+(setq nnmail-split-fancy-syntax-table
+      (let ((table (make-syntax-table)))
+
+	;; This is from upstream.  I don't know what it's for.
+	(modify-syntax-entry ?% "." table)
+
+	;; Email addresses are often wrapped in `<...>', so don't consider
+	;; those to be part of the address.
+	(modify-syntax-entry ?< "(>" table)
+	(modify-syntax-entry ?> ")<" table)
+
+	;; Email addresses definitely contain `.'.
+	(modify-syntax-entry ?. "_" table)
+
+	;; Done.
+	table))
+
 ;;;--------------------------------------------------------------------------
 ;;; Magic for sending mail the correct way.