.emacs.d/gnus.el

1 files changed, 13 insertions, 23 deletions

diff --git a/.emacs.d/gnus.el b/.emacs.d/gnus.el
index 503aa1d..d040fd1 100644
--- a/.emacs.d/gnus.el
+++ b/.emacs.d/gnus.el
@@ -1,27 +1,22 @@
-(setq gnus-select-method '(nntp "news.eternal-september.org"))
+(setq gnus-select-method '(nntp "news.gmane.org"))
 (setq gnus-secondary-select-methods
       '((nnmaildir "gmail"
                    (directory "~/documents/mail/gmail/"))
         (nnmaildir "ninthfloor"
                    (directory "~/documents/mail/ninthfloor/"))
-        (nnmaildir "arch"
-                   (directory "~/documents/mail/arch/"))
         (nnmaildir "aethon"
                    (directory "~/documents/mail/aethon/"))
         (nnmaildir "ryuslash"
-                   (directory "~/documents/mail/ryuslash.org/"))
-        (nntp "news.gmane.org")))
-
+                   (directory "~/documents/mail/ryuslash.org/"))))
+         ; (nntp "news.gmane.org"))
 (setq gnus-auto-subscribed-groups nil)
 (setq gnus-save-newsrc-file nil)
 (setq gnus-read-newsrc-file nil)
 (setq gnus-novice-user t)
 (setq gnus-article-truncate-lines nil)
-
 (setq message-send-mail-function 'message-send-mail-with-sendmail)
 (setq sendmail-program "/usr/bin/msmtp")
 (setq message-sendmail-extra-arguments '("-a" "gmail"))
-
 ;; (setq gnus-parameters
 ;;       '(("gmail"
 ;;          (display . all))
@@ -29,16 +24,19 @@
 ;;          (display . all)
 ;;         ("arch"
 ;;          (display . all)))))
-
 (setq gnus-permanently-visible-groups
-      "\\(gmail\\|aethon\\|arch\\|ninthfloor\\|ryuslash\\):INBOX")
-
+      (eval-when-compile
+        (regexp-opt '("gmail:inbox"
+                      "aethon:inbox"
+                      "ninthfloor:inbox"
+                      "ryuslash:inbox"))))
 (setq nntp-marks-is-evil t)
-
 (setq gnus-check-new-newsgroups nil)
-
 (setq gnus-posting-styles
       '((".*"
+         (address "tom@ryuslash.org")
+         (eval (setq message-sendmail-extra-arguments '("-a" "ryuslash"))))
+        ("gmail:"
          (address "ryuslash@gmail.com")
          (eval (setq message-sendmail-extra-arguments '("-a" "gmail"))))
         ("ninthfloor:"
@@ -50,18 +48,10 @@
         ("aethon:"
          (address "thomas@aethon.nl")
          (signature-file "~/documents/work/aethon/signature.txt")
-         (eval (setq message-sendmail-extra-arguments '("-a" "aethon"))))
-        ("ryuslash:"
-         (address "tom@ryuslash.org")
-         (eval (setq message-sendmail-extra-arguments '("-a" "ryuslash"))))))
-
-(setq user-mail-address "ryuslash@gmail.com")
+         (eval (setq message-sendmail-extra-arguments '("-a" "aethon"))))))
+(setq user-mail-address "tom@ryuslash.org")
 (setq user-full-name "Tom Willemsen")
 
-(add-hook 'gnus-summary-mode-hook '(lambda () (linum-mode -1)))
-(add-hook 'gnus-article-mode-hook '(lambda () (linum-mode -1)))
-(add-hook 'gnus-group-mode-hook '(lambda () (linum-mode -1)))
-
 ;-----[ BBDB ]--------------------------------------------------------
 ;; (require 'bbdb)
 ;; (bbdb-initialize 'gnus 'message)