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
;; 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.