X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/30acc372d8a56df8de83fc615662ef9538d7ac18..94e3dae355ff33f8d142f072577193c5c358df99:/dot/emacs

diff --git a/dot/emacs b/dot/emacs
index cb7c393..8832f3f 100644
--- a/dot/emacs
+++ b/dot/emacs
@@ -23,6 +23,7 @@
 
 (setq load-path (nconc load-path (list "~/lib/emacs")))
 (require 'dot-emacs)
+(require 'cl)
 
 ;;;--------------------------------------------------------------------------
 ;;; Some random initialisation.
@@ -141,6 +142,7 @@
 (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))
 
@@ -600,8 +602,9 @@
      (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")))))))
 
 ;;;--------------------------------------------------------------------------