1 files changed, 77 insertions, 0 deletions
diff --git a/.config/emacs/wl.el b/.config/emacs/wl.el
new file mode 100644
index 0000000..a169249
--- /dev/null
+++ b/.config/emacs/wl.el
@@ -0,0 +1,77 @@
+;; mode:-*-emacs-lisp-*-
+
+(setq user-mail-address "lukeshu@sbcglobal.net")
+
+;; wanderlust
+(setq
+  ;; Misc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+  wl-local-domain "lukeshu.ath.cx"
+  wl-icon-directory "~/.emacs.d/el-get/wanderlust/icons"
+
+  ;; Network ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+  ;; This only deals with sending--I use offlineimap to fetch
+  wl-draft-send-mail-function 'wl-draft-send-mail-with-smtp
+  ;; The following settings are Yahoo!'s SMTP servers:
+  wl-smtp-connection-type   (quote ssl)
+  wl-smtp-authenticate-type "login"
+  wl-smtp-posting-server    "plus.smtp.mail.yahoo.com"
+  ;wl-smtp-posting-server    "outbound.att.net"
+  wl-smtp-posting-port      465
+  wl-smtp-posting-user      user-mail-address
+  wl-message-id-domain      user-mail-address
+
+  ;; Folders/File system ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+  elmo-msgdb-directory "~/.emacs.d/elmo"        ;; where elmo keeps all its stuff
+  elmo-cache-directory "~/.emacs.d/elmo-cache"  ;; where elmo keeps all its stuff
+  elmo-maildir-folder-path "~/Maildir"          ;; where I store my mail
+
+  ;; note: all below are dirs (Maildirs) under elmo-maildir-folder-path
+  ;; the '.'-prefix is for marking them as maildirs
+  wl-fcc            "..Sent"       ;; sent msgs go to the "sent"-folder
+  wl-default-folder "..Ham"        ;; my main inbox
+  wl-draft-folder   "..Draft"      ;; store drafts in 'postponed'
+  wl-trash-folder   "..Trash"      ;; put trash in 'trash'
+  wl-spam-folder    "..Bulk Mail"  ;; put spam in 'Bulk Mail'
+  wl-queue-folder   "..queue"      ;; we don't use this
+
+  ;; check this folder periodically, and update modeline
+  ;wl-biff-check-folder-list '(".todo") ;; check every 180 seconds
+                                       ;; (default: wl-biff-check-interval)
+
+  ;wl-folder-hierarchy-access-folders '("\.*")
+  wl-folder-hierarchy-access-folders '(
+    "^.\\([^/.]+[/.]\\)*[^/.]+\\(:\\|@\\|$\\)"
+    "^-[^.]*\\(:\\|@\\|$\\)"
+    "^@$"
+    "^'$")
+
+  ;; Writing
+  wl-from (concat user-full-name " <" user-mail-address ">") ;; From: line
+  ;;wl-organization "Foo Corp"
+  wl-fcc-force-as-read t                        ;; mark sent messages as read
+  mime-edit-split-message nil                   ;; don't split long messages
+
+  ;; Reading ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+  wl-stay-folder-window t                       ;; show the folder pane (left)
+  wl-folder-window-width 35                     ;;
+  wl-message-auto-reassemble-message/partial t  ;; reasemble split messages
+
+  wl-message-ignored-field-list '("^.*:") ;; default to hiding all headers
+  wl-message-visible-field-list           ;; but then display these
+  '("^\\(To\\|Cc\\):"
+    "^Subject:"
+    "^\\(From\\|Reply-To\\):"
+    "^Organization:"
+    "^Message-Id:"
+    "^\\(Posted\\|Date\\):"
+    "^List-ID:"
+    )
+  wl-message-sort-field-list              ;; in this order
+  '("^Date"
+    "^From"
+    "^Organization:"
+    "^X-Attribution:"
+    "^Subject"
+    "^To"
+    "^Cc")
+  )