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

diff --git a/dot/gnus.el b/dot/gnus.el
index d3ca4f6..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
@@ -73,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.