summaryrefslogtreecommitdiff
path: root/.config/emacs/wl.el
blob: a169249274e77332dc0b7768157ea002ece9774b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
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")
  )