Changeset 187 for trunk/packages/emacs-base/.emacs.d/common/filetypes.el

Timestamp:

04/03/07 08:27:30 (22 months ago)

Author:

docwhat

Message:

mutt mode

Files:

• trunk/packages/emacs-base/.emacs.d/common/filetypes.el (modified) (1 diff)

trunk/packages/emacs-base/.emacs.d/common/filetypes.el

@@ -26 +26 @@
 (add-to-list 'auto-mode-alist '("/_" . sh-mode))
 
+;; Mutt mode hooks - from http://fsinfo.cs.uni-sb.de/~abe/mutt/
+(defun mutt-mode-hook () 
+  (turn-on-auto-fill) ;;; Auto-Fill is necessary for mails 
+  (turn-on-font-lock) ;;; Font-Lock is always cool *g* 
+  (flush-lines "^\\(> \n\\)*> -- \n\\(\n?> .*\\)*") ;;; Kills quoted sigs.
+  (not-modified)      ;;; We haven't changed the buffer, haven't we? *g* 
+  (mail-text)         ;;; Jumps to the beginning of the mail text 
+  (setq make-backup-files nil) ;;; No backups necessary.
+  )
+(or (assoc "mutt-" auto-mode-alist)
+    (setq auto-mode-alist (cons '("mutt-" . mail-mode) auto-mode-alist)))
+(add-hook 'mail-mode-hook 'mutt-mode-hook)