From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 6 Jan 2013 01:29:24 +0000 (+0000)
Subject: dot/gnus.el: Truncate and word-wrap.
X-Git-Url: https://git.distorted.org.uk/~mdw/profile/commitdiff_plain/040cb5bc369962c947396b293fc4b447532142de

dot/gnus.el: Truncate and word-wrap.

So many articles are missing newlines nowadays.  Grumble grumble.
---

diff --git a/dot/gnus.el b/dot/gnus.el
index 0cfe467..fbbf626 100644
--- a/dot/gnus.el
+++ b/dot/gnus.el
@@ -78,6 +78,15 @@
 (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.