Wanderlust

~/.wl

(setq wl-fcc "%[Gmail]/送信済みメール") (setq wl-fcc-force-as-read t) (setq wl-draft-folder "%[Gmail]/下書き") (setq elmo-imap4-default-server "imap.gmail.com") (setq elmo-imap4-default-user "matanuki@goudge.org") ; メールアドレス (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 mime-header-accept-quoted-encoded-words t) (setq wl-plugged nil) ;; 起動時はオフラインモード (setq wl-message-id-domain "Goudge.org") (setq wl-unique-id-suffix "Matanuki") (setq wl-smtp-connection-type 'ssl) (setq wl-smtp-posting-port 465) (setq wl-smtp-authenticate-type "plain") (setq wl-smtp-posting-user "matanuki@goudge.org") ; 適宜修正 (setq wl-smtp-posting-server "smtp.gmail.com") (setq wl-local-domain "Goudge.org") (setq smtp-open-connection-function #'open-ssl-stream) (setq smtp-end-of-line "\n") (setq wl-from "Matanuki@Goudge.org") ;;(setq wl-envelope-from "Matanuki@Goudge.org") (setq wl-default-folder "%inbox") (setq wl-folder-check-async t) (setq mime-edit-split-message nil) ;;(setq ssl-certificate-verification-policy 1) ;;(setq ssl-program-name "openssl") ;;(setq ssl-certificate-directory "/cygdrive/c/Users/mguuji/.w3/certs/") (require 'tls) (set-alist 'elmo-network-stream-type-alist "!opentls" '(opentls nil open-tls-stream)) (set-alist 'elmo-network-stream-type-alist "!" '(ssl ssl open-tls-stream)) (cond ((file-exists-p "/cygdrive/c/etc/ssl/certs/ca-certificates.crt") (setq tls-program '("gnutls-cli --x509cafile /cygdrive/c/etc/ssl/certs/ca-certificates.crt -p %p %h" "gnutls-cli --x509cafile /cygdrive/c/etc/ssl/certs/ca-certificates.crt -p %p %h --protocols ssl3"))) (t (setq tls-program '("gnutls-cli --insecure -p %p %h" "gnutls-cli --insecure -p %p %h --protocols ssl3"))) ) (setq wl-template-alist '(("default" ("From" . wl-from) (bottom . "\n-- \nま\n") ) ("MGuuji@Goudge.org" ("From" . "Masamichi Goudge ") (wl-from . "MGuuji@Goudge.org") (wl-smtp-posting-server . "smtp.gmail.com") (wl-smtp-posting-user . "mguuji@goudge.org") (wl-smtp-posting-port . 465) (wl-smtp-connection-type . 'ssl) (wl-smtp-authenticate-type . "plain") (wl-envelope-from . "MGuuji@Goudge.org") ) ("mguuji@Goudgle.jp" ("From" . "Masamichi Goudge ") (wl-smtp-posting-server . "smtp.gmail.com") (wl-smtp-posting-user . "mguuji@goudgle.jp") (wl-smtp-posting-port . 465) (wl-smtp-connection-type . 'ssl) (wl-smtp-authenticate-type . "plain") (wl-envelope-from . "MGuuji@Goudgle.jp") ) )) (setq wl-template-visible-select nil) (add-hook 'wl-draft-send-hook (lambda () (set (make-local-variable 'wl-from) (std11-fetch-field "From")))) ;; 送信時に自動的に wl-draft-config-alist を適用しない (remove-hook 'wl-draft-send-hook 'wl-draft-config-exec) (add-hook 'wl-mail-setup-hook 'wl-draft-config-exec) (add-hook 'wl-draft-reedit-hook 'wl-draft-config-exec) (add-to-list 'load-path "~/.emacs.d/el-get/google-contacts-wl") (require 'google-contacts-wl nil 'noerror) (setq google-contacts-email "Matanuki@Goudge.org") (setq google-contacts-password "**********")

~/.folders

%orcadic /since:01-Jan-2014&flag:important/%inbox /flag:important/%inbox /last:100/%inbox %inbox:"mguuji@goudge.org"/clear@imap.gmail.com:993! "MGuuji@Goudge.org" %[Gmail]/下書き %[Gmail]/送信済みメール /since:01-Jan-2013&before:31-Dec-2013/%inbox "2013年のメール" /since:01-Jan-2012&before:31-Dec-2012/%inbox /since:01-Jan-2011&before:31-Dec-2011/%inbox /since:01-Jan-2010&before:31-Dec-2010/%inbox /since:01-Jan-2009&before:31-Dec-2009/%inbox /since:01-Jan-2008&before:31-Dec-2008/%inbox /since:01-Jan-2007&before:31-Dec-2007/%inbox /since:01-Jan-2006&before:31-Dec-2006/%inbox /since:01-Jan-2005&before:31-Dec-2005/%inbox /since:01-Jan-2004&before:31-Dec-2004/%inbox /since:01-Jan-2003&before:31-Dec-2003/%inbox /since:01-Jan-2002&before:31-Dec-2002/%inbox /since:01-Jan-2001&before:31-Dec-2001/%inbox /since:01-Jan-2000&before:31-Dec-2000/%inbox /since:01-Jan-1999&before:31-Dec-1999/%inbox /since:01-Jan-1998&before:31-Dec-1998/%inbox