[mail][google] wanderlustからgmail (for domain) imapをつかうようにしてみる

2008-01-25T00:18:15Z

とあるはてな社員の日記にいろいろと詳しいのだが、すっかりgmail脳になってしまっていて、久しぶりにwanderlustをつかったら、jkで移動できないのがどうにも困ってしまったのでそのあたりもあわせて設定してみた。

ほとんどはこのオリジナルの設定をはっつけただけなので、差分はキーバインド

(define-key wl-summary-mode-map "!" 'st-wl-summary-refile-spam)
(define-key wl-summary-mode-map "\M-u" 'wl-summary-mark-as-unread)
(define-key wl-summary-mode-map "j" 'wl-summary-next) ; move to older
(define-key wl-summary-mode-map "k" 'wl-summary-prev) ; move to newer
(define-key wl-summary-mode-map "c" 'wl-summary-write) ; compose
(define-key wl-summary-mode-map "r" 'wl-summary-reply-with-citation) ; reply
(define-key wl-summary-mode-map "#" 'wl-summary-delete) ; Delete

ヘッダ表示の絞りこみ

(setq wl-message-use-header-narrowing t)
;; summary-mode ですべての header を一旦除去
(setq mime-view-ignored-field-list '("^.*"))
;; そのうえで必要なものだけを表示
(setq mime-view-visible-field-list
      '("^Subject:" "^From:" "^To:" "^Cc:" "^Date:"))
(setq wl-summary-move-order 'new)

あとはまあ .folderの設定で認証のときのusernameに @ とドメイン名がはいるために、"" でくくってやらないといけないくらい。

%inbox:"user@your.domain"/clear@imap.gmail.com:993!

とりあえず .wlの全部。

;; IMAP サーバの設定
(setq elmo-imap4-default-server "imap.gmail.com")
(setq elmo-imap4-default-user "user@for.your.domain")
(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 ssl-program-name "openssl")
;(setq ssl-program-arguments '("s_client" "-quiet" "-host" host "-port" service))       
;; SMTP サーバの設定
(setq wl-smtp-connection-type 'starttls)
(setq wl-smtp-posting-port 587)
(setq wl-smtp-authenticate-type "plain")
(setq wl-smtp-posting-user "username")
(setq wl-smtp-posting-server "smtp.gmail.com")
(setq wl-local-domain "for.your.domain")
;; デフォルトのフォルダ
(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 wl-dispose-folder-alist
      (cons '("^%inbox" . remove) wl-dispose-folder-alist))
(setq wl-message-use-header-narrowing t)
;; summary-mode ですべての header を一旦除去
(setq mime-view-ignored-field-list '("^.*"))
;; そのうえで必要なものだけを表示
(setq mime-view-visible-field-list
      '("^Subject:" "^From:" "^To:" "^Cc:" "^Date:"))
(setq wl-summary-move-order 'new)
;; gmail like key
(defun st-wl-summary-refile-spam ()
  (interactive)
  (wl-summary-refile (wl-summary-message-number) "%[Gmail]/Spam")
  (wl-summary-next))
(define-key wl-summary-mode-map "!" 'st-wl-summary-refile-spam)
(define-key wl-summary-mode-map "\M-u" 'wl-summary-mark-as-unread)
(define-key wl-summary-mode-map "j" 'wl-summary-next) ; move to older
(define-key wl-summary-mode-map "k" 'wl-summary-prev) ; move to newer
(define-key wl-summary-mode-map "c" 'wl-summary-write) ; compose
(define-key wl-summary-mode-map "r" 'wl-summary-reply-with-citation) ; reply
(define-key wl-summary-mode-map "#" 'wl-summary-delete) ; Delete

ARAKI notes

[mail][google] wanderlustからgmail (for domain) imapをつかうようにしてみる