From 85b3d47bbf5e15cbdf1891fb334101d9f2ab0ff1 Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Sat, 20 Jul 2013 23:18:59 +0200 Subject: Add .emacs and .wl --- wl | 77 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 77 insertions(+) create mode 100644 wl (limited to 'wl') diff --git a/wl b/wl new file mode 100644 index 0000000..49a001f --- /dev/null +++ b/wl @@ -0,0 +1,77 @@ +(setq frame-title-format '("" "Wanderlust")) + +(setq elmo-imap4-default-server "mail.universe-factory.net" + elmo-imap4-default-user "mschiffer@universe-factory.net" + elmo-imap4-default-authenticate-type 'clear + elmo-imap4-default-port '143 + elmo-imap4-default-stream-type 'starttls + + ;;for non ascii-characters in folder-names + elmo-imap4-use-modified-utf7 t) + +(setq wl-smtp-connection-type 'starttls + wl-smtp-posting-port 587 + wl-smtp-authenticate-type "plain" + wl-smtp-posting-user "mschiffer@universe-factory.net" + wl-smtp-posting-server "mail.universe-factory.net" + wl-local-domain "universe-factory.net" + wl-message-id-domain "chaos.universe-factory.net") + +(setq wl-from "Matthias Schiffer " + wl-default-folder "%INBOX" + wl-default-spec "%") + +(setq wl-summary-always-sticky-folder-list t + wl-summary-width 150 + wl-summary-persistent-mark-priority-list '(killed + flag + new + unread + answered + forwarded)) + +(setq elmo-folder-update-threshold nil) + +(defadvice wl-summary-mode (after wl-summary-mode-nobidi) + (setq bidi-display-reordering nil)) +(ad-activate 'wl-summary-mode) + +;; (defun wl-summary-update-persistent-mark (number) +;; (wl-summary-rescan-message number) +;; t) + +;; (defun wl-summary-persistent-mark-invalid-p () t) + +;; (defun extended-persistent-mark () +;; (let ((flags (elmo-message-status-flags wl-status)) +;; (cached (elmo-message-status-cached-p wl-status))) +;; (concat +;; (cond ((memq 'killed flags) "X") +;; ((memq 'flag flags) "$") +;; ((memq 'new flags) "N") +;; ((memq 'unread flags) "u") +;; (t " ")) +;; (if (memq 'answered flags) wl-summary-answered-cached-mark " ") +;; (if (memq 'forwarded flags) "f" " ")))) +(defun extended-persistent-mark () (or wl-persistent-mark " ")) +;;(defun extended-persistent-mark () " ") + +(add-to-list 'wl-summary-line-format-spec-alist '(?X (extended-persistent-mark))) +(setq wl-summary-line-format "%n%T%X %Y/%M/%D (%W) %h:%m %t%[%25(%c %f%) %] %s") + +(defadvice wl-message-buffer-display (before wl-message-buffer-display-unread) + (setq unread t)) +(ad-activate 'wl-message-buffer-display) + + +(defadvice elmo-folder-unset-flag (before elmo-folder-unset-flag-nounread (folder numbers flag + &optional is-local)) + (when (eq flag 'unread) (setq flag 'new))) + +(defadvice wl-summary-redisplay-internal (around wl-summary-redisplay-internal-unread) + (unwind-protect + (progn + (ad-activate 'elmo-folder-unset-flag) + ad-do-it) + (ad-deactivate 'elmo-folder-unset-flag))) +(ad-activate 'wl-summary-redisplay-internal) -- cgit v1.2.3