(if (file-exists-p boot)
(load boot))))
-(require 'dot-emacs)
(require 'cl)
+(require 'dot-emacs)
;;;--------------------------------------------------------------------------
;;; Some random initialisation.
send-mail-function 'sendmail-send-it
mail-interactive t
sendmail-error-reporting-interactive '("-odb" "-oee"))
+(autoload 'sendmail-send-it "sendmail")
+(autoload 'smtpmail-send-it "smtpmail")
(setq mail-user-agent 'message-user-agent
read-mail-command 'gnus)
"\\(" "\\(mdw\\|markw\\|root\\|postmaster\\)"
"\\([-+][^@]*\\|\\)"
"@\\(\\(dist\\|esc\\)orted\\.org\\.uk\\|odin\\.gg\\)"
- "\\|" "\\(mdw\\(\\+[^@]*\\)?\\|0mdwk\\.[^@]*\\)" "@"
+ "\\|" "\\(" "\\(mdw\\|mwooding\\)"
+ "\\(\\+[^@]*\\)?"
+ "\\|" "0" "\\(mdw\\|mwooding\\)" "k\\.[^@]*"
+ "\\)" "@"
"\\(chiark\\|slimy\\|coriolis\\)\\.greenend\\.org\\.uk"
"\\|" "distorted\\.mdw@g\\(\\|oogle\\)mail.com"
"\\|" "mwooding@\\(good\\|blackberry\\)\\.com"
(setq read-quoted-char-radix 16) ;C-q HEX-STUFF [RET]
(setq case-fold-file-names nil) ;Don't translate file names (grr...)
(setq scroll-step 5) ;Don't scroll too much at a time
-(setq-default fill-column 77) ;I use rather narrow windows
+(setq-default fill-column mdw-text-width) ;I use rather narrow windows
(setq-default comment-column 40) ;Set a standard comment column
(setq-default truncate-partial-width-windows nil
truncate-lines t)
(setq view-read-only t)
(setq whitespace-style '(trailing empty indentation face lines-tail
space-before-tab space-after-tab)
- whitespace-line-column 77)
+ whitespace-line-column mdw-text-width)
(setq woman-use-own-frame nil ;Keep man pages somewhere sensible
woman-fill-column 72) ;Right margin position.
(setq diff-switches "-u" ;I like reading unified diffs
(setq find-ls-option ;Build file lists efficiently
'("-print0 | xargs -0r ls -ld" . "ld"))
(setq bookmark-save-flag 0) ;Save bookmarks automatically
+(setq vc-follow-symlinks t)
(setq x-gtk-file-dialog-help-text nil)
(setq Info-fontify-maximum-menu-size 100000)
(setq set-mark-command-repeat-pop t)
(setq uniquify-buffer-name-style 'post-forward-angle-brackets)
(setq uniquify-after-kill-buffer-p t))
(transient-mark-mode t)
-(setq mark-even-if-inactive t)
+(setq mark-even-if-inactive t
+ shift-select-mode nil
+ delete-active-region nil
+ delete-selection-mode nil)
(trap
(tooltip-mode 0)
(tool-bar-mode 0))
(setq frame-background-mode (if mdw-black-background 'dark 'light)
default-frame-alist
- `((width . ,(if (>= emacs-major-version 21) 77 78))
+ `((width . ,(+ mdw-column-width
+ (if (>= emacs-major-version 21) 0 1)))
(height . 33)
(vertical-scroll-bars . right)
(cursor-type . bar)
(cursor-color . "red")
(background-mode . ,frame-background-mode))
initial-frame-alist
- `((width . ,(if (>= emacs-major-version 21) 77 78))
+ `((width . ,(+ mdw-column-width
+ (if (>= emacs-major-version 21) 0 1)))
(menu-bar-lines . ,(if window-system 1 0)))
window-system-default-frame-alist
'((pm (font . "-os2-System VIO-medium-r-normal--*-40-*-*-m-*-cp850")