X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/2d6b9d95b0a120762a27ab4e4efb93cea5d2b36d..52b00db2fa42b48fb818bb68ed2c31fbc55bdfa9:/emacs

diff --git a/emacs b/emacs
index ba6c442..1664bd6 100644
--- a/emacs
+++ b/emacs
@@ -60,7 +60,7 @@
 
 (trap (or mdw-fast-startup (require 'tex-site)))
 
-(trap (or mdw-fast-startup (semantic-load-enable-excessive-code-helpers)))
+(trap (or mdw-fast-startup (semantic-load-enable-minimum-features)))
 
 ;; --- Skeleton stuff ---
 
@@ -121,13 +121,25 @@
 (setq sendmail-program "~/bin/sendmail-hack")
 
 (setq mail-user-agent 'message-user-agent)
+(setq message-signature-separator "^-- \\(\\|\\[mdw\\]\\)$"
+      message-yank-prefix "> "
+      message-yank-cited-prefix "> "
+      message-indent-citation-function '(message-indent-citation
+					 mdw-trim-spaces-after-citing))
+
+(defun mdw-trim-spaces-after-citing ()
+  (save-excursion
+    (save-restriction
+      (narrow-to-region (point) (mark t))
+      (while (re-search-forward "^> +$" nil t)
+	(replace-match ">")))))
 
 (and (fboundp 'turn-on-gnus-dired-mode)
      (not mdw-fast-startup)
      (add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode))
 
 (or mdw-fast-startup
-    (trap (bbdb-initialize 'gnus 'sendmail 'vm 'message)))
+    (trap (bbdb-initialize 'gnus 'sendmail 'message)))
 (setq bbdb-north-american-phone-numbers-p nil)
 
 ;; --- Customization ---
@@ -158,9 +170,9 @@
 (setq ps-paper-type 'a4
       ps-print-color-p nil
       ps-landscape-mode t
-      ps-number-of-columns 3
+      ps-number-of-columns 2
       ps-font-family 'Courier
-      ps-font-size 4)
+      ps-font-size 6.5)
 
 ;; --- Splash screen stuff ---
 
@@ -291,7 +303,8 @@
 
 ;; --- Org-mode agenda ---
 
-(setq org-agenda-include-diary t)
+(setq org-agenda-include-diary t
+      org-tags-column -77)
 
 ;; --- Cosmetic stuff ---
 
@@ -404,6 +417,7 @@
 		'mouse-drag-vertical-line)
 (global-set-key [vertical-scroll-bar C-mouse-1]
 		#'(lambda () (interactive)))
+(global-set-key [XF86WakeUp] "")
 (and (not mdw-fast-startup) (fboundp 'hippie-expand)
      (global-set-key [?\M-/] 'hippie-expand))