From: tfheen Date: Fri, 17 Sep 2004 11:21:29 +0000 (+0000) Subject: sync X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1a455195f8311c5682c1fec1e39944393867b901;p=dotfiles sync git-svn-id: file:///svn/tfheen/trunk/dotfiles@652 8da78d58-1cd3-0310-bee5-d77bd1b3e8bf --- diff --git a/emacs b/emacs index 16c8148..ac728e6 100644 --- 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 e9844a7..b8125d0 100644 --- 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))