(setq load-path (nconc load-path (list "~/lib/emacs")))
(require 'dot-emacs)
+(require 'cl)
;;;--------------------------------------------------------------------------
;;; Some random initialisation.
(setq message-signature-separator "^-- \\(\\|\\[mdw\\]\\)$"
message-yank-prefix "> "
message-yank-cited-prefix "> "
+ message-send-mail-function 'message-send-mail-with-sendmail
message-indent-citation-function '(message-indent-citation
mdw-trim-spaces-after-citing))
(setq tramp-default-method "ssh")
(setq tramp-default-method-alist
`(("\\`\\(localhost\\|\\)\\'" ""
- ,(cond ((executable-find "become") "become")
- ((executable-find "really") "really")
+ ,(cond ((executable-find "really") "really")
+ ((executable-find "become") "become")
+ ((executable-find "sudo") "sudo")
(t "su")))))))
;;;--------------------------------------------------------------------------