読者です 読者をやめる 読者になる 読者になる

opamp_sando's blog

クソザコが割りと適当なことを書くためにある備忘録です。あとたまに普通の日記も書きます

そして複数アカウントへ... (wanderlust)

emacs

前の続きでEmacs(24.4)でWanderlustを使い複数のメールアカウントを扱ってみた。

wl

~/.wlを次のような感じにした 内容はEmacsWikiのサンプルを少し書き換えたもの。

;; You should set this variable if you use multiple e-mail addresses.
(setq wl-user-mail-address-list (quote ("opamp@example.com" "opamp@example2.com")))

(setq elmo-imap4-default-stream-type 'ssl)
(setq elmo-imap4-use-modified-utf7 t)
(setq wl-from "opamp_sando <opamp@example.com>")

;; select correct email address when we _start_ writing a draft.
(add-hook 'wl-mail-setup-hook 'wl-draft-config-exec)
;; don't apply the templates when sending the draft otherwise
;; choosing another template with C-c C-j won't have any effect
(remove-hook 'wl-draft-send-hook 'wl-draft-config-exec)

(setq wl-draft-config-alist
      '(((string-match "example2.com" wl-draft-parent-folder)
         (template . "example2")
         (wl-smtp-posting-user . "username")
         (wl-smtp-posting-server . "smtp.example2.com")
         (wl-local-domain . "example2.com")
         (wl-smtp-authenticate-type ."plain")
         (wl-smtp-posting-port . 587)
         (wl-smtp-connection-type . 'starttls))
        ((string-match "example.com" wl-draft-parent-folder)
         (template . "example")
         (wl-smtp-posting-user . "username")
         (wl-smtp-posting-server . "smtp.example.com")
         (wl-smtp-authenticate-type ."plain")
         (wl-smtp-posting-port . 465)
         (wl-local-domain . "example.com")
         (wl-smtp-connection-type . 'ssl))))

(setq wl-template-alist
      '(("example"
         (wl-from . "opamp_sando <opamp@example.com>")
         ("From" . wl-from))
        ("example2"
         (wl-from . "opamp_sando <opamp@example2.com>")
         ("From" . wl-from))))

;;Cycle through templates with arrow keys
(define-key wl-template-mode-map (kbd "<right>") 'wl-template-next)
(define-key wl-template-mode-map (kbd "<left>") 'wl-template-prev)

;;default folder name auto completion:
(setq wl-default-spec "%")

;; mark sent messages (folder carbon copy) as read.
(setq wl-fcc-force-as-read    t)

;;Only save draft when I tell it to! (C-x C-s or C-c C-s):
;;(arg: seconds of idle time untill auto-save).
(setq wl-auto-save-drafts-interval nil)

最初にsetqでwl-formを設定しているが、これをしないとwl-message-id-domainがなんたらとかいう警告がでてくる。wl-message-id-domainを設定してもこれは消えないが、wl-formを設定すると消える。
最後のほうでtemplateを設定しており、この中でもwl-formを指定しているがこれでは効果がない様子。
おそらく起動時にwl-form変数を見ているのかな?と予想。
優先度的にはtemplateを優先してくれるみたいなので、適当にsetqでwl-formを設定しておくと良い。

folders

~/.foldersも書き換える。

# -*- conf-unix -*-
EX1{
   %INBOX:opamp/clear@imap.example.com:993! "In"
   %Sent:opamp/clear@imap.example.com:993!  "Sent"
   %Draft:opamp/clear@imap.example.com:993! "Draft"
   %Trash:opamp/clear@imap.example.com:993! "Trash"
   %Spam:opamp/clear@imap.example.com:993!  "Spam"
}

EX2{
   %INBOX:opamp/clear@imap.example2.com:993! "In"
   %Sent:opamp/clear@imap.example2.com:993!  "Sent"
   %Trash:opamp/clear@imap.example2.com:993! "Trash"
}

EX1{ }のようにするとグループ化できるらしい。サーバーごとにグループ化すると良い感じ。
もちろん名前は好きに決めれる。

終わり

基本的にはwlにはsmtpの設定でfoldersにはimap/popの設定といった感じなのがなんとなくわかった。
しかしpopでの受信がうまく行かなかったのでそのうちなんとかしたい。

参考サイト

EmacsWiki: Wl Multiple Accounts

Firefox ブラウザ無料ダウンロード