Fix some host handling

git-svn-id: file:///svn/tfheen/trunk/dotfiles@907 8da78d58-1cd3-0310-bee5-d77bd1b3e8bf

diff --git a/gnus b/gnus
index 4a9f02362be911db98f0dedd968ed612a6627c96..ac1aba07755d428c9c4f0869eb9cca0588f3785b 100644 (file)
--- a/gnus
+++ b/gnus
@@ -21,7 +21,7 @@
     (car list)))
 
 
-(cw/for-host "thosu"
+(cw/for-host "thosu\\|xoog"
   (setq gnus-select-method '(nnimap "err"
                                     (nnimap-address "mail.err.no")
                                     (nnimap-stream ssl)
@@ -686,17 +686,16 @@ Tollef Fog Heen
       nnmail-use-long-file-names t)
 
 ; a bit snaer HTML handling
-(add-to-list 'mm-text-html-renderer-alist
-             '(vilistextum mm-inline-render-with-file
-               mm-links-remove-leading-blank
-               "vilistextum" "-l" "-r" "-c" "-s" file "-"))
-
-(add-to-list 'mm-text-html-washer-alist 
-             '(vilistextum mm-inline-wash-with-file
-               mm-links-remove-leading-blank
-               "vilistextum" "-l" "-r" "-c" "-s" file "-"))
-
-(setq mm-text-html-renderer 'vilistextum)
+(cw/for-host "thosu"
+  (add-to-list 'mm-text-html-renderer-alist
+               '(vilistextum mm-inline-render-with-file
+                             mm-links-remove-leading-blank
+                             "vilistextum" "-l" "-r" "-c" "-s" file "-"))
+  (add-to-list 'mm-text-html-washer-alist 
+               '(vilistextum mm-inline-wash-with-file
+                             mm-links-remove-leading-blank
+                             "vilistextum" "-l" "-r" "-c" "-s" file "-"))
+  (setq mm-text-html-renderer 'vilistextum))
 
 (defsubst gnus-article-sort-by-message-id (h1 h2)
   "Sort articles by message id length."