sync

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

diff --git a/emacs b/emacs
index 16c81480bd17fe2db0d4b6ee9b22fa5647834c30..ac728e6b92156cab3109d3df3d1b464c03a3d11b 100644 (file)
--- a/emacs
+++ b/emacs
@@ -19,6 +19,8 @@
       (load custom-file nil t t)))
 
 (setq tfheen-color-preference 'dark) ; light or dark
+(require 'jka-compr)
+(auto-compression-mode t)
 
 (cw/for-emacs
  (set-language-environment "Latin-1")
@@ -260,3 +262,19 @@
     (setq dayname (nth (- dow 1) daynames)
           monthname (nth (- month 1) monthnames))
     (format "%s %s %d %2d:%2d:%2d %s %d" dayname monthname day hour minute sec zone year)))
+
+(add-to-list 'load-path (expand-file-name "~/external/slime"))
+(cw/requiring-package (slime)
+    (add-hook 'lisp-mode-hook (lambda () (slime-mode t)))
+    (add-hook 'inferior-lisp-mode-hook (lambda () (inferior-slime-mode t)))
+    (setq inferior-lisp-program "sbcl-mt"))
+
+
+;: WL setup
+
+(setq elmo-imap4-default-stream-type 'ssl
+      elmo-imap4-default-server "mail.raw.no"
+      elmo-imap4-default-port 993)
+;      wl-folder-access-subscribe-alist '(("^%" . (t . "."))))
+(setq elmo-imap4-default-authenticate-type 'clear
+      elmo-default-authenticate-type 'clear)

diff --git a/gnus b/gnus
index e9844a74e32f4ce44ba4794263ae9e20ba7b6e21..b8125d02a0005efb377be0e5baabe36b16446a8d 100644 (file)
--- a/gnus
+++ b/gnus
@@ -34,12 +34,13 @@
         gnus-secondary-select-methods '((nnml "")
                                         (nnimap "raw"
                                                 (nnimap-address "mail.raw.no")
+                                                (nnimap-server-port 993)
                                                 (nnimap-stream ssl)
-                                                (nnimap-authenticator login)
-                                                (nnimap-authinfo-file "~/.imap-authinfo"))
-                                        (nnmaildir "Maildir"
-                                                   (directory "~/Maildir"))
-                                                   ))
+                                                )))
+;                                        (nnmaildir "Maildir"
+;                                                   (directory "~/Maildir"))
+;                                                   ))
+
   (add-to-list 'gnus-secondary-select-methods '(nntp "news.hardware.no"))
   )
 
@@ -859,5 +860,24 @@ Tollef Fog Heen
       '(("^nnml:linux.debian\\.\\([^.]+\\).*"
          (to-address . "debian-\\1@lists.debian.org")
          (to-list . "debian-\\1@lists.debian.org")
-         (subscribed . t))))
-
+         (subscribed . t)))
+      gnus-agent-enable-expiration 'DISABLE
+      gnus-agent-expire-unagentized-dirs nil
+      nnmail-expiry-wait 'never
+      nnmail-use-long-file-names t)
+
+(defsubst gnus-article-sort-by-message-id (h1 h2)
+  "Sort articles by message id length."
+  (string-lessp (mail-header-message-id h1)
+                (mail-header-message-id h2)))
+
+(defun gnus-thread-sort-by-message-id (h1 h2)
+  "Sort threads by root article message id."
+  (gnus-article-sort-by-message-id
+   (gnus-thread-header h1) (gnus-thread-header h2)))
+
+(defun gnus-summary-sort-by-message-id (&optional reverse)
+  "Sort the summary buffer by message id.
+Argument REVERSE means reverse order."
+  (interactive "P")
+  (gnus-summary-sort 'message-id reverse))