Eu quero usar o cliente Wanderlust IMAP para ler meu email no Emacs.
No entanto, quando configurado para usar com a conta do Gmail, ele não atualiza o número de novas mensagens corretamente. O sistema de notificação do Wanderlust (ws-biff- *) depende disso - só serei notificado se houver novas mensagens.
Por exemplo, na visualização de pastas:
...
%INBOX:0/217/49684
...
Quando recebo uma nova mensagem, devo receber o seguinte:
...
%INBOX:1/218/49684
...
No entanto, o que vejo é o seguinte:
...
%INBOX:0/218/49684
...
Todas as outras funcionalidades do Wanderlust funcionam perfeitamente e eu adoraria fazer com que ele lide corretamente com as notificações.
Eu o instalei usando el-get. A versão do Emacs é 24.2.1. A versão Wanderlust é 2.15.9 (Quase irreal).
Parte relevante de ~ / .emacs.d / init.el:
;; wanderlust
(autoload 'wl "wl" "Wanderlust" t)
(autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)
(autoload 'wl-user-agent-compose "wl-draft" nil t)
~ / .wl:
;; IMAP
(setq elmo-imap4-default-server "imap.gmail.com")
(setq elmo-imap4-default-user "[email protected]")
(setq elmo-imap4-default-authenticate-type 'clear)
(setq elmo-imap4-default-port '993)
(setq elmo-imap4-default-stream-type 'ssl)
(setq elmo-imap4-set-seen-flag-explicitly t)
;; SMTP
(setq wl-smtp-connection-type 'starttls)
(setq wl-smtp-posting-port 587)
(setq wl-smtp-authenticate-type "plain")
(setq wl-smtp-posting-user "[email protected]")
(setq wl-smtp-posting-server "smtp.gmail.com")
(setq wl-local-domain "gmail.com")
(setq wl-icon-directory "~/.emacs.d/el-get/wanderlust/etc/icons")
(setq wl-default-folder "%inbox")
(setq wl-default-spec "%")
(setq wl-draft-folder "%[Gmail]/Drafts") ; Gmail IMAP
(setq wl-trash-folder "%[Gmail]/Trash")
(setq wl-folder-check-async t)
(setq elmo-imap4-use-modified-utf7 t)
(if (boundp 'mail-user-agent)
(setq mail-user-agent 'wl-user-agent))
(if (fboundp 'define-mail-user-agent)
(define-mail-user-agent
'wl-user-agent
'wl-user-agent-compose
'wl-draft-send
'wl-draft-kill
'mail-send-hook))
(require 'tls)
(setq elmo-network-stream-type-alist '(("!" . (ssl ssl open-tls-stream))))
;; ignore all fields
(setq wl-message-ignored-field-list '("^.*:"))
;; ..but these five
(setq wl-message-visible-field-list
'("^To:"
"^Cc:"
"^From:"
"^Subject:"
"^Date:"))
(setq wl-message-sort-field-list
'("^From:"
"^Subject:"
"^Date:"
"^To:"
"^Cc:"))
(setq wl-biff-check-folder-list '("%[Gmail]/Important" "%Workrelatedstuff"))
(setq wl-show-plug-status-on-modeline t)
(add-hook 'wl-biff-notify-hook
(lambda (message &optional header)
(message
(format "New mail: %s. %s"
header
(substring message 0 (min 30 (length message)))))))
~ / .folders é apenas:
%/
Como devo configurá-lo para funcionar corretamente com o Gmail? Agradecemos antecipadamente por qualquer ajuda!