dot.wl.el

;;; dot.wl -- sample setting file for Wanderlust	-*- emacs-lisp -*-

(setq elmo-imap4-default-server "imap.gmail.com"
      elmo-imap4-default-user "holtzermann17@gmail.com"
      elmo-imap4-default-authenticate-type 'clear
      elmo-imap4-default-port '993
      elmo-imap4-default-stream-type 'ssl
      
      elmo-imap4-use-modified-utf7 t
      
      ;; SMTP
      wl-smtp-connection-type 'starttls
      wl-smtp-posting-port 587
      wl-smtp-authenticate-type "plain"
      wl-smtp-posting-user "holtzermann17@gmail.com"
      wl-smtp-posting-server "smtp.gmail.com"
      wl-local-domain "gmail.com"
      
      wl-default-folder "%inbox"
      wl-default-folder-spec "%"
      wl-draft-folder ".drafts" ; local draft folder
      wl-trash-folder "%[Gmail]/Trash"
      
      wl-folder-check-async t
      
      elmo-imap4-use-modified-utf7 t
      ;; customization
      wl-stay-folder-window t                       ;; show the folder pane (left)
      wl-folder-window-width 25                     ;; toggle on/off with 'i'
      wl-message-sort-field-list
      '("^From"
	
	"^Organization:"
	"^X-Attribution:"
	"^Subject"
	"^Date"
	"^To"
	"^Cc")
)

(setq starttls-use-gnutls t
      starttls-gnutls-program "gnutls-cli"
      starttls-extra-arguments '("--insecure"))

(setq wl-draft-reply-without-argument-list
  '(("Reply-To" ("Reply-To") nil nil)
     ("Mail-Reply-To" ("Mail-Reply-To") nil nil)
     ("From" ("From") nil nil)))


(setq wl-from "<holtzermann17@gmail.com>")

;;; dot.wl ends here

startfile.el

(add-to-list 'load-path "/usr/share/emacs/site-lisp/apel/")
(add-to-list 'load-path "/usr/share/emacs/site-lisp/flim/")
(add-to-list 'load-path "~/elisp/semi-1.14.6/")
(require 'static)
(load-file "~/elisp/semi-1.14.6/mime-view.el")
(setq mime-setup-enable-inline-html nil)
(load-file "~/elisp/semi-1.14.6/mime-setup.el")


(add-to-list 'load-path "~/wanderlust/wl/")
(add-to-list 'load-path "~/wanderlust/elmo/")
(setq wl-icon-directory "/home/jac2349/wanderlust/etc/icons")
(setq wl-news-news-alist nil)

;; wanderlust
(autoload 'wl "wl" "Wanderlust" t)
(autoload 'wl-other-frame "wl" "Wanderlust on new frame." t)
(autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)
(setq user-mail-address "holtzermann17@gmail.com")

(setq mime-setup-enable-inline-html t)

(autoload 'wl-user-agent-compose "wl-draft" nil t)
(if (boundp 'mail-user-agent)
    (setq mail-user-agent 'wl-user-agent))
(if (fboundp 'define-mail-user-agent)
    (define-mail-user-agent
      'wl-user-agent
      'wl-user-agent-compose
      'wl-draft-send
      'wl-draft-kill
      'mail-send-hook))