X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/9906310798d936a6cacd0ec5a2d3b607e911c423..228374502b83afd5a84952bf017f42a10fc8ef28:/dot/gnus.el

diff --git a/dot/gnus.el b/dot/gnus.el
index cf2ebbc..0cfe467 100644
--- a/dot/gnus.el
+++ b/dot/gnus.el
@@ -41,13 +41,14 @@
       gnus-sum-thread-tree-false-root ">"
       gnus-sum-thread-tree-single-indent "="
       gnus-sum-thread-tree-indent "  ")
-(if (eq (coding-system-get (terminal-coding-system) 'mime-charset) 'utf-8)
+(if (memq (coding-system-get (terminal-coding-system) 'mime-charset)
+	  '(nil utf-8))
     (setq gnus-sum-thread-tree-leaf-with-other "├─>"
 	  gnus-sum-thread-tree-vertical        "│ "
 	  gnus-sum-thread-tree-single-leaf     "╰─>")
   (setq gnus-sum-thread-tree-leaf-with-other   "|->"
 	gnus-sum-thread-tree-vertical          "| "
-	gnus-sum-thread-tree-single-leaf       "'->"))
+	gnus-sum-thread-tree-single-leaf       "`->"))
 
 ;; Sort threads in a useful way.
 (setq gnus-thread-sort-functions
@@ -55,6 +56,9 @@
 	gnus-thread-sort-by-subject
 	gnus-thread-sort-by-total-score))
 
+;; Use one article buffer per group.
+(setq gnus-single-article-buffer nil)
+
 ;; Don't expand threads on initial opening.
 (setq gnus-thread-hide-subtree t)
 
@@ -70,6 +74,10 @@
 ;; We may have the misfortune to talk to an Exchange server.
 (setq imap-enable-exchange-bug-workaround t)
 
+;; Clean up properly when closing the summary.
+(defadvice gnus-summary-exit (before mdw-kill-debris compile activate)
+  (gnus-summary-expand-window))
+
 ;;;--------------------------------------------------------------------------
 ;;; Local configuration.