Silly emacs files

diff --git a/files/_.emacs b/files/_.emacs
index 83b8e1431b0c871c07147cfe4248d08349a7adb6..eba2f90fc8511e578f69010586d5cbd34b8d361a 100644 (file)
--- a/files/_.emacs
+++ b/files/_.emacs
@@ -2,5 +2,4 @@
 ;
 (setq load-path (append '("~@@$username@@/emacs") load-path))
 (load-library "ian")
-(load-library "ijackson")
 (menu-bar-mode -1)

diff --git a/files/emacs_ian.el b/files/emacs_ian.el
index eabf5ec9ee5b11cdf6d0bf814c55454eace746b0..1871549da04977a4c75371f458bef8524084275a 100644 (file)
--- a/files/emacs_ian.el
+++ b/files/emacs_ian.el
@@ -313,6 +313,8 @@ then call send-and-exit."
 ;
 ; VM stuff
 (load-file "~/private/private.el")
+(if (file-exists-p "~/private/private2.el")
+  (load-file "~/private/private2.el"))
 (setq vm-included-text-attribution-format "%F writes (\"%s\"):\n"
       vm-reply-subject-prefix "Re: "
       vm-folder-directory "~/mail/"
@@ -346,6 +348,31 @@ then call send-and-exit."
        '("ian@chiark.chu.cam.ac.uk" "ian" "iwj10@cus.cam.ac.uk"
          "ian@chiark.greenend.org.uk"
          "ijackson@nyx.cs.du.edu" "ijackson@gnu.ai.mit.edu"))
+      vm-primary-inbox (concat vm-folder-directory "INBOX")
+
+      vm-uninteresting-senders "ian"
+      vm-reply-ignored-addresses
+      (make-regexps-ignore-non-address
+       '("ijackson@chiark.chu.cam.ac.uk" "ijackson"
+         "iwj10@thor.cam.ac.uk" "iwj10@hermes.cam.ac.uk" "iwj10@cl.cam.ac.uk"
+         "iwj10@cam.ac.uk" "Ian.Jackson@cl.cam.ac.uk"))
+      mail-archive-file-name "~/mail/Outbound"
+
+@@?$ncipher?@@@@#
+      vm-spool-files (list
+                      "~/mbox"
+                      "~/mail/Outbound"
+                      "~/mail/Record"
+                      "~/mail/Import"
+                      "~/mail/inbox"
+;                       "/var/spool/mail/ijackson"
+                      (concat "mail:110:pass:iwj:" ijackson-pop-password)
+                      "/u/ijackson/mail/INBOX.CRASH"
+                      "~/News/r")
+      mail-host-address "ncipher.com"
+      user-mail-address "iwj@ncipher.com"
+@@;@@#
+
 ;      vm-spool-files
 ;      (list
 ;       (list vm-primary-inbox "~/mbox" "~/mail/INBOX.CRASH")