From 10b4d5177ae8d16fd25bad4a4a960b8563f5bea6 Mon Sep 17 00:00:00 2001 From: Francois Fleuret Date: Tue, 18 Jun 2013 09:32:49 +0200 Subject: [PATCH] Update. --- emacs.el | 23 +++++++++++++++++++---- 1 file changed, 19 insertions(+), 4 deletions(-) diff --git a/emacs.el b/emacs.el index aa22459..63b51c3 100644 --- a/emacs.el +++ b/emacs.el @@ -137,8 +137,6 @@ load-warning buffer in case of failure." ;; (setq x-select-enable-clipboard t) ;; (global-set-key "\C-y" 'clipboard-yank) - - (setq message-log-max 1000 @@ -297,6 +295,8 @@ load-warning buffer in case of failure." ;; What modes for what file extentions (add-to-list 'auto-mode-alist '("\\.h\\'" . c++-mode)) +(require 'org-table) + (add-to-list 'auto-mode-alist '("\\.txt\\'" . (lambda() (text-mode) (orgtbl-mode) @@ -1434,7 +1434,7 @@ universal argument starts xfig even if the .fig does not exist" (insert "%% -*- mode: latex; mode: reftex; mode: flyspell; coding: utf-8; tex-command: \"pdflatex.sh\" -*- \\documentclass[12pt]{article} -\\usepackage[a4paper,top=2.5cm,bottom=2cm,left=1.5cm,right=1.5cm]{geometry} +\\usepackage[a4paper,top=2.5cm,bottom=2cm,left=2.5cm,right=2.5cm]{geometry} \\usepackage[utf8]{inputenc} \\usepackage{amsmath} \\usepackage{amssymb} @@ -1839,7 +1839,7 @@ a file in /tmp" (when (string-match "\\.sh$" filename) (sh-mode) - (insert "#!/bin/bash\n\nset -e\n\n") + (insert "#!/bin/bash\n\nset -e\nset -o pipefail\n\n") (save-excursion (ff/add-copyrights)) ) @@ -2331,6 +2331,21 @@ next one. With universal argument, kill all killable buffers." ) ) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; A fast indexed / search in mbox +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +;; This is one of my own things, check my web page to get it + +(when (ff/load-or-alert "~/sources/gpl/mymail/mymail-vm.el") + + (define-key vm-summary-mode-map "\\" 'mymail/vm-visit-folder) + (define-key global-map [S-f7] 'mymail/vm-visit-folder) + (setq mymail/default-search-request "today" + mymail/default-additional-search-requests "!s ^\\[SPAM\\],!s \\] STATUS,") + (add-to-list 'recentf-exclude "/tmp/mymail-vm-.*\.mbox") +) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; A dynamic search ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -- 2.39.5