Skip to content

Instantly share code, notes, and snippets.

@baron baron/*scratch*
Created Oct 14, 2010

Embed
What would you like to do?
(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)
(add-hook 'wl-init-hook 'ecb-deactivate) ;;ecb messes things up for me
(add-hook 'wl-exit-hook 'ecb-activate)
(require 'mime-w3m)
(setq ssl-certificate-verification-policy 1)
(setq elmo-imap4-default-server "imap.gmail.com")
(setq elmo-imap4-default-user "email@gmail.com")
(setq elmo-imap4-default-authenticate-type 'clear)
(setq elmo-imap4-default-port 993)
(setq elmo-imap4-default-stream-type 'ssl)
(setq elmo-imap4-use-modified-utf7 t)
(setq wl-smtp-connection-type 'ssl)
(setq wl-smtp-posting-port 587)
(setq wl-smtp-authenticate-type "plain")
(setq wl-smtp-posting-user "email@gmail.com")
(setq wl-smtp-posting-server "smtp.gmail.com")
(setq wl-from "Me <mail@gmail.com>")
(setq wl-default-folder "%inbox")
(setq wl-dispose-folder-alist
(cons '("^%inbox" . remove) wl-dispose-folder-alist))
(setq wl-default-spec "%")
(setq wl-default-spec "%")
(setq wl-draft-folder "%[Google Mail]/Drafts") ; Gmail IMAP
(setq wl-trash-folder "%[Google Mail]/Trash")
(setq wl-stay-folder-window t)
(autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)
(setq wl-folder-check-async t)
(setq mime-edit-split-message nil)
(setq wl-draft-reply-buffer-style 'keep)
(setq wl-fcc-force-as-read t)
(setq wl-summary-max-thread-depth 30)
(setq elmo-message-fetch-threshold 500000)
(setq wl-prefetch-threshold 500000)
(setq wl-stay-folder-window t)
(setq wl-folder-window-width 30) ;; toggle on/off with 'i'
(mime-set-field-decoder
'From nil 'eword-decode-and-unfold-unstructured-field-body)
(mime-set-field-decoder
'To nil 'eword-decode-and-unfold-unstructured-field-body)
(setq mime-view-ignored-field-list '("^.*"))
(setq wl-message-visible-field-list
(append mime-view-visible-field-list
'("^Subject:" "^From:" "^To:" "^Cc:"
"^X-Mailer:" "^X-Newsreader:" "^User-Agent:"
"^X-Face:" "^X-Mail-Count:" "^X-ML-COUNT:"
)))
(setq wl-message-ignored-field-list
(append mime-view-ignored-field-list
'(".*Received:" ".*Path:" ".*Id:" "^References:"
"^Replied:" "^Errors-To:"
"^Lines:" "^Sender:" ".*Host:" "^Xref:"
"^Content-Type:" "^Content-Transfer-Encoding:"
"^Precedence:"
"^Status:" "^X-VM-.*:"
"^X-Info:" "^X-PGP" "^X-Face-Version:"
"^X-UIDL:" "^X-Dispatcher:"
"^MIME-Version:" "^X-ML" "^Message-I.:"
"^Delivered-To:" "^Mailing-List:"
"^ML-Name:" "^Reply-To:" "Date:"
"^X-Loop" "^X-List-Help:"
"^X-Trace:" "^X-Complaints-To:"
"^Received-SPF:" "^Message-ID:"
"^MIME-Version:" "^Content-Transfer-Encoding:"
"^Authentication-Results:"
"^X-Priority:" "^X-MSMail-Priority:"
"^X-Mailer:" "^X-MimeOLE:"
)))
(eval-after-load "mime"
'(defadvice mime-entity-filename
(after eword-decode-for-broken-MUA activate)
"Decode eworded file name for *BROKEN* MUA."
(when (stringp ad-return-value)
(setq ad-return-value (eword-decode-string ad-return-value t)))))
(eval-after-load "std11"
'(defadvice std11-wrap-as-quoted-string (before encode-string activate)
"Encode a string."
(require 'eword-encode)
(ad-set-arg 0 (or (eword-encode-string (ad-get-arg 0)) "" )) ))
(setq elmo-msgdb-extra-fields
(cons "content-type" elmo-msgdb-extra-fields))
(setq wl-summary-line-format-spec-alist
(append wl-summary-line-format-spec-alist
'((?@ (wl-summary-line-attached)))))
(setq wl-summary-line-format "%n%T%P%1@%M/%D(%W)%h:%m %t%[%17(%c %f%) %] %s")
(add-to-list 'wl-summary-sort-specs 'rdate) ;;reverse date as default sort
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.