X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?p=elisp.git;a=blobdiff_plain;f=vm;h=6393b45d1ebba5ee762e32a7fd386b9408d04d82;hp=b9e7233684d8e1bb202b9967b5b4bd21222f0760;hb=ddf333570e530f70377b80ebe82c3019cd8a8547;hpb=ccf4141d0aa6fc7f73567e99d07d8e389ec638cf

diff --git a/vm b/vm
index b9e7233..6393b45 100644
--- a/vm
+++ b/vm
@@ -715,7 +715,8 @@ instance, someone in bbdb named \"Paul Smith\" would generate an alias
       (mkdir dir)
       (when (file-symlink-p link) (delete-file link))
       (unless (file-exists-p link) (make-symbolic-link dir link 1))
-      (vm-pipe-message-to-command (concat "munpack -C " dir))
+      ;; (vm-pipe-message-to-command (concat "munpack -C " dir))
+      (vm-pipe-message-to-command (concat "munpack -t -C " dir))
       (message "Wrote files to %s" dir)
       )
 
@@ -816,3 +817,19 @@ created."
       (message "No attachments to be saved!"))))
 
 (define-key vm-summary-mode-map [(control c) (control s)] 'ff/vm-mime-save-all-attachments)
+
+;; I do not like relief
+
+(ff/configure-faces
+ '(
+
+   (vm-highlight-url :background "white" :foreground "#0000f0" :box nil)
+   (vm-highlighted-header :box nil) ;; :weight 'bold :background "white")
+
+   (vm-attachment-button :background "#f0d0d0" :box nil)
+   (vm-attachment-button-mouse :background "#f0d0d0" :box nil)
+   (vm-attachment-button-pressed-face :background "#f0d0d0" :box nil)
+   (vm-mime-button :background "#f0d0d0" :box nil)
+   (vm-mime-button-mouse :background "#f0d0d0" :box nil)
+   (vm-mime-button-pressed-face :background "#f0d0d0" :box nil)
+   ))