From 6f27cc035f160b42916cc69cb05c73a0560e1d66 Mon Sep 17 00:00:00 2001
From: Ryan Kavanagh <rak@debian.org>
Date: Thu, 27 Jun 2013 14:45:15 -0400
Subject: Finished VMPC profiles

---
 .vm | 29 ++++++++++++++++-------------
 1 file changed, 16 insertions(+), 13 deletions(-)

diff --git a/.vm b/.vm
index 28b14ba..55d23f9 100644
--- a/.vm
+++ b/.vm
@@ -34,6 +34,9 @@
 ; Keep the -> line centered
 (setq vm-auto-center-summary t)
 
+; Obey FCC
+(add-hook 'mail-send-hook 'vm-imap-save-composition)
+
 ;; Use a sendmail program
 (setq send-mail-function 'sendmail-send-it)
 
@@ -52,6 +55,8 @@
 	  (vmpc-header-match "To" ".*debian.org") )
 	 ("To Queensu"
 	  (vmpc-header-match "To" ".*@queensu.ca") )
+         ("To Queens CS"
+          (vmpc-header-match "To" "ryan@cs.queensu.ca") )
 	 ("To Ubuntu"
 	  (vmpc-header-match "To" ".*@ubuntu.com") )
 	 ("To Kubuntu"
@@ -64,32 +69,28 @@
       '( ("From Queens"
 	  (vmpc-composition-buffer
 	    (setq user-mail-address "ryan.kavanagh@queensu.ca")
-            (setq sendmail-program "~/bin/msmtp/msmtp-queensu")
-	    (setq vm-mail-fcc "local:QueensU.Sent Items") )
-	  (vmpc-substitute-header "From" "Ryan Kavanagh <ryan.kavanagh@queensu.ca>") )
+            (setq sendmail-program "~/bin/msmtp/msmtp-queensu") )
+	  (vmpc-substitute-header "From" "Ryan Kavanagh <ryan.kavanagh@queensu.ca>")
+	  (vmpc-substitute-header "IMAP-FCC" "local:QueensU.Sent Items") )
 	 ("From Queens CS"
           (vmpc-composition-buffer
 	   (setq user-mail-address "ryan@cs.queensu.ca")
-           (setq sendmail-program "~/bin/msmtp/msmtp-queensucs")
-	   (setq vm-mail-fcc nil) )
+           (setq sendmail-program "~/bin/msmtp/msmtp-queensucs") )
 	  (vmpc-substitute-header "From" "Ryan Kavanagh <ryan@cs.queensu.ca>") )
 	 ("From Debian"
           (vmpc-composition-buffer
             (setq user-mail-address "rak@debian.org")
-	    (setq sendmail-program "~/bin/msmtp/msmtp-default")
-            (setq vm-mail-fcc nil) )
+	    (setq sendmail-program "~/bin/msmtp/msmtp-default") )
 	  (vmpc-substitute-header "From" "Ryan Kavanagh <rak@debian.org>") )
 	 ("From Ubuntu"
 	  (vmpc-composition-buffer
 	   (setq user-mail-address "ryanakca@ubuntu.com")
-	   (setq sendmail-program "~/bin/msmtp/msmtp-ubuntu")
-           (setq vm-mail-fcc nil) )
+	   (setq sendmail-program "~/bin/msmtp/msmtp-ubuntu") )
 	  (vmpc-substitute-header "From" "Ryan Kavanagh <ryanakca@ubuntu.com") )
          ("From Kubuntu"
           (vmpc-composition-buffer
            (setq user-mail-address "ryanakca@kubuntu.org")
-           (setq sendmail-program "~/bin/msmtp/msmtp-kubuntu")
-           (setq vm-mail-fcc nil) )
+           (setq sendmail-program "~/bin/msmtp/msmtp-kubuntu") )
 	  (vmpc-substitute-header "From" "Ryan Kavanagh <ryanakca@kubuntu.org") )
          ("prompt"
 	  (vmpc-prompt-for-profile) )
@@ -97,8 +98,9 @@
 
 ;; Fallback rules
 (setq vmpc-default-rules
-      '( ("QueensU" "From Queens")
-	 ("ToDeb" "From Debian")
+      '( ("To Queensu" "From Queens")
+         ("To Queens CS" "From Queens CS")
+	 ("To Debian" "From Debian")
 	 ("default" "From Debian")
 	 ) )
 
@@ -110,6 +112,7 @@
 (setq vmpc-reply-rules
       '( ("To Debian" "From Debian")
 	 ("To Queensu" "From Queens")
+         ("To Queens CS" "From Queens CS")
 	 ("To Ubuntu" "From Ubuntu")
 	 ("To Kubuntu" "From Kubuntu")
 	 ) )
-- 
cgit v1.2.3