From 9f30a05c9e26d773d18e16ca2237d9c026faa6d3 Mon Sep 17 00:00:00 2001 From: Luke Shumaker Date: Wed, 14 Aug 2013 12:20:55 -0400 Subject: re-jigger to have the wanderlust configuration be in .config/emacs --- .config/emacs/custom.el | 4 ++- .config/emacs/wl.el | 77 +++++++++++++++++++++++++++++++++++++++++++++++++ .wl | 76 ------------------------------------------------ 3 files changed, 80 insertions(+), 77 deletions(-) create mode 100644 .config/emacs/wl.el delete mode 100644 .wl diff --git a/.config/emacs/custom.el b/.config/emacs/custom.el index b6a84a2..47bf654 100644 --- a/.config/emacs/custom.el +++ b/.config/emacs/custom.el @@ -27,7 +27,9 @@ '(smtpmail-smtp-service 587) '(vc-annotate-background "#2b2b2b") '(vc-annotate-color-map (quote ((20 . "#bc8383") (40 . "#cc9393") (60 . "#dfaf8f") (80 . "#d0bf8f") (100 . "#e0cf9f") (120 . "#f0dfaf") (140 . "#5f7f5f") (160 . "#7f9f7f") (180 . "#8fb28f") (200 . "#9fc59f") (220 . "#afd8af") (240 . "#bfebbf") (260 . "#93e0e3") (280 . "#6ca0a3") (300 . "#7cb8bb") (320 . "#8cd0d3") (340 . "#94bff3") (360 . "#dc8cc3")))) - '(vc-annotate-very-old-color "#dc8cc3")) + '(vc-annotate-very-old-color "#dc8cc3") + '(wl-init-file "~/.emacs.d/wl.el") + '(wl-score-files-directory "~/.emacs.d/elmo")) (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. 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") + ) diff --git a/.wl b/.wl deleted file mode 100644 index f28f6ed..0000000 --- a/.wl +++ /dev/null @@ -1,76 +0,0 @@ -;; 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-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") - ) -- cgit v1.2.3