dot/vm: Configure IMAP support.

diff --git a/dot/vm b/dot/vm
index c98284219330c96cbd4c892b715face43335d578..a911e7cc3eda35f97e90f4ed332f103811d91439 100644 (file)
--- a/dot/vm
+++ b/dot/vm
@@ -2,6 +2,8 @@
 ;;;
 ;;; Configuration for VM
 
+(require 'auth-source)
+
 (setq vm-reply-subject-prefix "Re: "
       vm-included-text-prefix "> "
       vm-included-text-attribution-format "%F <%f> wrote:\n\n"
@@ -16,6 +18,22 @@
       vm-move-after-deleting t
       vm-delete-empty-folders nil)
 
+(setq auth-sources '("~/.gnus.authinfo")
+      vm-imap-max-message-size 0
+      vm-imap-refer-to-inbox-by-account-name t
+      vm-imap-save-to-server t
+      vm-imap-account-alist
+      '(("imap-ssl:mail.distorted.org.uk:993:*:login:mdw:*"
+        "distorted")
+       ("imap-ssl:mail.distorted.org.uk:993:*:login:markw:*"
+        "markw-distorted")
+       ("imap-ssl:imap.dovecot.chiark.greenend.org.uk:993:*:login:mdw:*"
+        "mdw-chiark")
+       ("imap-ssl:imap.dovecot.chiark.greenend.org.uk:993:*:login:mwooding:*"
+        "mwooding-chiark")
+       ("imap-ssl:imap.gmail.com:993:*:login:distorted.mdw@gmail.com:*"
+        "google")))
+
 (and (eq (terminal-coding-system) 'utf-8)
      (add-to-list 'vm-mime-default-face-charsets "utf-8"))