debiancdn

AWS, Content Delivery Network and Debian

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

とあるはてな社員の日記にいろいろと詳しいのだが、すっかり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

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト /  変更 )

Google フォト

Google アカウントを使ってコメントしています。 ログアウト /  変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト /  変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト /  変更 )

%s と連携中