Update.

diff --git a/emacs.el b/emacs.el
index c708d87..3e49e71 100644 (file)
--- a/emacs.el
+++ b/emacs.el
@@ -49,6 +49,7 @@
 
 ;; Nor fringes
 (when (functionp 'fringe-mode) (fringe-mode '(0 . 0)))
+;; (when (functionp 'fringe-mode) (fringe-mode '(0 . 1)))
 
 ;; And I do not like scrollbar neither
 (when (functionp 'scroll-bar-mode) (scroll-bar-mode -1))
@@ -392,8 +393,8 @@ load-warning buffer in case of failure."
      (flyspell-incorrect-face :foreground "red2")
      (flyspell-duplicate-face :foreground "OrangeRed2")
      (hl-line :background "white")
-     (sh-heredoc :foreground "blue")
-     (sh-heredoc-face :foreground "blue")
+     (sh-heredoc :foreground "black" :background "#fff0f0")
+     (sh-heredoc-face :foreground "black" :background "#fff0f0")
      (font-lock-keyword-face :foreground "blue")
      (highlight :background "darkseagreen3")
      (isearch :background "orange" :foreground "black")
@@ -449,9 +450,9 @@ load-warning buffer in case of failure."
      (flyspell-incorrect-face :foreground "red2")
      (flyspell-duplicate-face :foreground "OrangeRed2")
      (hl-line :background "white")
+     (sh-heredoc :foreground "black" :background "#fff0f0")
+     (sh-heredoc-face :foreground "black" :background "#fff0f0")
      (header-line :background "gray65")
-     (sh-heredoc :foreground "darkorange3")
-     (sh-heredoc-face :foreground "darkorange3")
      (highlight :background "turquoise")
      (message-cited-text-face :foreground "firebrick")
      (isearch :background "yellow" :foreground "black")
@@ -463,11 +464,11 @@ load-warning buffer in case of failure."
      (trailing-whitespace :background "gray65")
      (cursor :inverse-video t)
      (enotes/list-title-face :foreground "blue" :weight 'bold)
-     (mode-line :background "#9090f0" :foreground "black" :box nil
+     (mode-line :background "#b0b0ff" :foreground "black" :box nil
                 :inverse-video nil)
      (header-line :background "cornflowerblue" :foreground "black" :box nil
                   :inverse-video nil)
-     (mode-line-inactive :background "#606080" :foreground "black" :box nil
+     (mode-line-inactive :background "#b0b0b0" :foreground "black" :box nil
                          :inverse-video nil)
      ;; (fringe :background "black" :foreground "gray90")
      (fringe :background "gray65")
@@ -486,6 +487,17 @@ load-warning buffer in case of failure."
                 :inverse-video nil))
    ))
 
+;; Why should I have to do this?
+(add-hook 'sh-mode-hook
+          (lambda ()
+            (set-face-attribute 'sh-heredoc nil
+                                :foreground "black"
+                                :background "#fff0f0")
+            (set-face-attribute 'sh-heredoc-face nil
+                                :foreground "black"
+                                :background "#fff0f0")
+            ))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Move the window on the buffer without moving the cursor
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -1207,7 +1219,7 @@ ff/known-address-face is used."
   "The face to display the dates in the modeline.")
 
 (defun ff/secure-note-add () (interactive)
-  (find-file "~/private/secure-notes.gpg")
+  (find-file ff/secure-note-file)
 
   ;; Adds a new entry (i.e. date and a bunch of empty lines)
 
@@ -2294,6 +2306,7 @@ next one. With universal argument, kill all killable buffers."
         media/mplayer/args '(
                              "-framedrop"
                              "-zoom"
+                             "-cache" "512"
                              "-subfont-osd-scale" "3"
                              ;; "-stop-xscreensaver"
                              ;; "-osdlevel" "3"

diff --git a/vm b/vm
index f700c99..1c17c4e 100644 (file)
--- a/vm
+++ b/vm
@@ -27,8 +27,8 @@
 
 (setq vm-auto-displayed-mime-content-types '(
                                              "text"
-                                             "image/jpeg"
-                                             "image/png"
+                                             ;; "image/jpeg"
+                                             ;; "image/png"
                                              "multipart"
                                              "message/rfc822"
                                              ))
@@ -50,7 +50,8 @@
       vm-mutable-frames nil
       vm-summary-thread-indent-level 1
       ;; vm-summary-uninteresting-senders-arrow "->"
-      vm-summary-uninteresting-senders-arrow "►"
+      ;; vm-summary-uninteresting-senders-arrow "►"
+      vm-summary-uninteresting-senders-arrow ">"
       ;; vm-summary-uninteresting-senders-arrow "➔"
       ;; vm-summary-uninteresting-senders-arrow "➤"
       vm-summary-arrow "> "
@@ -136,7 +137,7 @@
                                   )
 
  ;; To force it to be converted to plain text
- vm-mime-internal-content-type-exceptions '("text/html")
+ ;; vm-mime-internal-content-type-exceptions '("text/html")
 
  vm-mime-external-content-types-alist  '(
                                          ("application/x-dvi"      "xdvi")
@@ -176,10 +177,10 @@
                ;; "html2text -style pretty -nobs"
                ;; ))
 
-(add-to-list 'vm-mime-type-converter-alist
-             '("text/html" "text/plain"
-               "html2text.sh"
-               ))
+;; (add-to-list 'vm-mime-type-converter-alist
+             ;; '("text/html" "text/plain"
+               ;; "html2text.sh"
+               ;; ))
 
 (add-to-list 'vm-mime-type-converter-alist
              '("image" "image/xpm"
@@ -275,7 +276,9 @@ attachement from mail."
 (defun vm-summary-function-S (&optional message)
   (let ((s (string-to-int (vm-su-byte-count message))))
     (if (> s 32768)
-        (propertize (concat (int-to-string (/ s 1024)) "k") 'face 'bold)
+        (propertize (concat (int-to-string (/ s 1024)) "k")
+                    'face 'italic
+                    )
       "")))
 
 (defun ff/vm-delete-and-go-down () (interactive)
@@ -325,7 +328,8 @@ attachement from mail."
 ;; To have a slightly darker background for headers
 
 (ff/configure-faces
- '((ff/mail-header-face :background "#c8c8ff"))
+ ;; '((ff/mail-header-face :background "#c8c8ff"))
+ '((ff/mail-header-face :foreground "blue4"))
  )
 
 (defun ff/colorize-headers () (interactive)
@@ -541,6 +545,11 @@ an attachment")
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; If we can, encrypt!
 
+(add-hook 'vm-mode-hook 'mc-install-read-mode)
+(add-hook 'vm-summary-mode-hook 'mc-install-read-mode)
+(add-hook 'vm-virtual-mode-hook 'mc-install-read-mode)
+(add-hook 'vm-mail-mode-hook 'mc-install-write-mode)
+
 ;; (defun ff/encrypt-mail-if-possible () (interactive)
 ;; (condition-case nil (mc-encrypt)
 ;; (error nil)))