Update.

diff --git a/emacs.el b/emacs.el
index a79b7c9..22adc6f 100644 (file)
--- a/emacs.el
+++ b/emacs.el
@@ -48,7 +48,7 @@
 (menu-bar-mode -1)
 
 ;; Nor fringes
 (menu-bar-mode -1)
 
 ;; Nor fringes

-(when (functionp 'fringe-mode) (fringe-mode '(0 . 0)))
+;; (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 'fringe-mode) (fringe-mode '(0 . 1)))
 
 ;; And I do not like scrollbar neither


@@ -435,6 +435,7 @@ load-warning buffer in case of failure."
   (ff/configure-faces
    '(
      ;; (escape-glyph :foreground "#c0c0c0" :weight 'bold)
   (ff/configure-faces
    '(
      ;; (escape-glyph :foreground "#c0c0c0" :weight 'bold)

+

      (escape-glyph :foreground "green3" :weight 'bold)
      (default :background "gray90" :foreground "black")
      (cperl-array-face :background "gray90" :foreground "blue" :weight 'bold)
      (escape-glyph :foreground "green3" :weight 'bold)
      (default :background "gray90" :foreground "black")
      (cperl-array-face :background "gray90" :foreground "blue" :weight 'bold)


@@ -478,12 +479,11 @@ load-warning buffer in case of failure."
      (mode-line-inactive :background "#b0b0b0" :foreground "black" :box nil
                          :inverse-video nil)
      ;; (fringe :background "black" :foreground "gray90")
      (mode-line-inactive :background "#b0b0b0" :foreground "black" :box nil
                          :inverse-video nil)
      ;; (fringe :background "black" :foreground "gray90")

-     (fringe :background "gray65")
-     (tex-verbatim :family "courrier")
+     (fringe :background "gray75")

      (ff/date-info-face :foreground "white" :weight 'bold)
      (ff/mail-alarm-face :foreground "white" :background "red2")
      ;; (alarm-vc-face :foreground "black" :background "yellow" :weight 'normal)
      (ff/date-info-face :foreground "white" :weight 'bold)
      (ff/mail-alarm-face :foreground "white" :background "red2")
      ;; (alarm-vc-face :foreground "black" :background "yellow" :weight 'normal)

-     ))
+    ))

   )
 
 ;; When we are root, put the modeline in red
   )
 
 ;; When we are root, put the modeline in red


@@ -1229,7 +1229,7 @@ ff/known-address-face is used."
   )
 
 (defface ff/secure-date
   )
 
 (defface ff/secure-date

-  '((t (:background "gold" :weight bold)))
+  '((t (:background "white" :weight bold)))

   "The face to display the dates in the modeline.")
 
 (defun ff/secure-note-add () (interactive)
   "The face to display the dates in the modeline.")
 
 (defun ff/secure-note-add () (interactive)


@@ -1240,7 +1240,7 @@ ff/known-address-face is used."
   (goto-char (point-min))
   (insert "-- "
           (format-time-string "%Y %b %d %H:%M:%S" (current-time))
   (goto-char (point-min))
   (insert "-- "
           (format-time-string "%Y %b %d %H:%M:%S" (current-time))

-          " ------------------------------------------------\n\n")
+          " --\n\n")

   (previous-line 1)
 
   ;; Colorizes the dates
   (previous-line 1)
 
   ;; Colorizes the dates


@@ -1248,10 +1248,11 @@ ff/known-address-face is used."
   (save-excursion
     (goto-char (point-min))
     (while (re-search-forward
   (save-excursion
     (goto-char (point-min))
     (while (re-search-forward

-            "^-+ [0-9]+ [a-z]+ [0-9]+ [0-9]+:[0-9]+:[0-9]+.+$"
+            "^-- [0-9]+ [a-z]+ [0-9]+ [0-9]+:[0-9]+:[0-9]+ -+$"

             nil t)
       (add-text-properties
             nil t)
       (add-text-properties

-       (match-beginning 0) (match-end 0) '(face ff/secure-date))))
+       (match-beginning 0) (1+ (match-end 0))
+       '(face ff/secure-date rear-nonsticky t))))

 
   (set-buffer-modified-p nil)
   (setq buffer-undo-list nil)
 
   (set-buffer-modified-p nil)
   (setq buffer-undo-list nil)


@@ -1726,21 +1727,8 @@ and refilling all the paragraphs."
    (define-key latex-mode-map [(control c) (control a)] 'align-current)
    (define-key latex-mode-map [(control end)] 'tex-close-latex-block)
    (define-key latex-mode-map [(control tab)] 'ispell-complete-word)
    (define-key latex-mode-map [(control c) (control a)] 'align-current)
    (define-key latex-mode-map [(control end)] 'tex-close-latex-block)
    (define-key latex-mode-map [(control tab)] 'ispell-complete-word)

-   ;; Strange that I have to specify that
-   ;; (setq paragraph-separate "[%     \f]*$")
-   ;; (setq paragraph-separate
-   ;; (concat "[%]*\\|[\f%]\\|[ \t]*\\($\\|"
-   ;; "\\\\[][]\\|"
-   ;; "\\\\" (regexp-opt (append
-   ;; (mapcar 'car latex-section-alist)
-   ;; '("begin" "label" "end" )) t)
-   ;; "\\>\\|\\\\\\(" (regexp-opt '("item" "bibitem" "newline"
-   ;; "noindent" "newpage" "footnote"
-   ;; "marginpar" "parbox" "caption"))
-   ;; "\\|\\$\\$\\|[a-z]*\\(space\\|skip\\|page[a-z]*\\)"
-   ;; "\\>\\)[ \t]*\\($\\|%\\)\\)"))
-   ;; (flyspell-mode 1)
-   ;; (reftex-mode 1)
+   (copy-face 'default 'tex-verbatim)
+   ;; (ff/configure-faces '((tex-verbatim :background "gray95")))

    ))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

diff --git a/vm b/vm
index f1a2138..f196896 100644 (file)
--- a/vm
+++ b/vm
@@ -313,6 +313,7 @@ attachement from mail."
   (flyspell-mode)
   (auto-fill-mode)
   (mail-abbrevs-setup)
   (flyspell-mode)
   (auto-fill-mode)
   (mail-abbrevs-setup)

+  (yas/minor-mode)

 
   ;; (setq fill-paragraph-function 'mail-mode-fill-paragraph)
 
 
   ;; (setq fill-paragraph-function 'mail-mode-fill-paragraph)