dot/lisp-init.lisp: Don't signal errors on compile failures in SBCL.

[profile] / dot / gnus.el

diff --git a/dot/gnus.el b/dot/gnus.el
index cf2ebbc..f7b6560 100644 (file)
--- a/dot/gnus.el
+++ b/dot/gnus.el
@@ -41,7 +41,8 @@
       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     "╰─>")
@@ -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)