(setq frame-title-format '("" "Wanderlust"))
(setq icon-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)

(column-number-mode t)
(show-paren-mode t)

(defadvice wl-summary-mode (after wl-summary-mode-nobidi)
  (setq bidi-display-reordering nil))
(ad-activate 'wl-summary-mode)


(defun extended-persistent-mark-string (status)
  (let ((flags (elmo-message-status-flags status))
	(cached (elmo-message-status-cached-p 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 ()
  (extended-persistent-mark-string wl-status))

(defun wl-summary-update-persistent-mark (&optional number)
  "Synch up persistent mark of current line with msgdb's.
Return non-nil if the mark is updated"
  (interactive)
  (let ((status (wl-summary-message-status number)))
    (prog1
	(save-excursion
	  (move-to-column 9)
	  (let ((inhibit-read-only t)
		(buffer-read-only nil)
		(mark (buffer-substring (- (point) 3) (point)))
		(new-mark (extended-persistent-mark-string status)))
	    (prog1
		(unless (string= new-mark mark)
		  (delete-char -3)
		  (insert new-mark)
		  (wl-summary-set-message-modified)
		  t)
	      (wl-summary-validate-persistent-mark (point-at-bol)
						   (point-at-eol)))))
      (when wl-summary-highlight
	(wl-highlight-summary-current-line number status))
      (set-buffer-modified-p nil))))

(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 activate)
  (setq unread t))

(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 activate)
  (unwind-protect
      (progn
	(ad-activate 'elmo-folder-unset-flag)
	ad-do-it)
    (ad-deactivate 'elmo-folder-unset-flag)))