X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/aec3b793a4877cbf5aee98eaac0f9efbc70eae33..165cecf85ad32d442837b72420567fb5161a580f:/dot/gnus.el

diff --git a/dot/gnus.el b/dot/gnus.el
index f7b6560..fbbf626 100644
--- a/dot/gnus.el
+++ b/dot/gnus.el
@@ -48,7 +48,7 @@
 	  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
@@ -74,6 +74,19 @@
 ;; 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))
+
+;; Configure article display a bit.
+(defun mdw-gnus-article-setup ()
+  (setq truncate-lines nil
+	truncate-partial-width-windows nil
+	word-wrap t
+	wrap-prefix (concat (propertize "..." 'face 'mdw-ellipsis-face)
+			    " ")))
+(add-hook 'gnus-article-mode-hook #'mdw-gnus-article-setup)
+
 ;;;--------------------------------------------------------------------------
 ;;; Local configuration.