summaryrefslogtreecommitdiffstats
path: root/wl
diff options
context:
space:
mode:
Diffstat (limited to 'wl')
-rw-r--r--wl77
1 files changed, 77 insertions, 0 deletions
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 <mschiffer@universe-factory.net>"
+ 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)