vm, setup: Install movemail-hack, which explicitly nobbles LD_PRELOAD.

[profile] / vm

diff --git a/vm b/vm
index d3824cc..17d7209 100644 (file)
--- a/vm
+++ b/vm
@@ -2,6 +2,13 @@
 ;;;
 ;;; Configuration for VM
 
+(let ((path exec-path))
+  (while path
+    (let ((try (expand-file-name "movemail" (car path))))
+      (if (file-executable-p try)
+         (setenv "REAL_MOVEMAIL" try))
+      (setq path (cdr path)))))
+
 (setq vm-reply-subject-prefix "Re: "
       vm-included-text-prefix "> "
       vm-included-text-attribution-format "%F <%f> wrote:\n\n"
@@ -11,6 +18,7 @@
       vm-circular-folders nil
       vm-preview-lines nil
       vm-highlighted-header-regexp "^From\\|^Subject"
+      vm-movemail-program "movemail-hack"
       vm-delete-after-saving t
       vm-move-after-deleting t
       vm-delete-empty-folders)