+;;; How to send mail.
+
+(setq smtpmail-smtp-service 587
+ smtpmail-auth-credentials "~/.gnus.authinfo")
+
+(setq mdw-send-mail-alist
+ `((distorted-smtp
+ (send-mail-function . smtpmail-send-it)
+ (smtpmail-smtp-server . "mail.distorted.org.uk")
+ (smtpmail-starttls-credentials
+ ("mail.distorted.org.uk" 587 nil nil)))
+ (chiark-smtp
+ (send-mail-function . smtpmail-send-it)
+ (smtpmail-smtp-server . "smtp.dovecot.chiark.greenend.org.uk")
+ (starttls-extra-arguments "--insecure")
+ (smtpmail-starttls-credentials
+ ("smtp.dovecot.chiark.greenend.org.uk" 587 nil nil)))
+ (gmail-smtp
+ (send-mail-function . smtpmail-send-it)
+ (smtpmail-smtp-server . "smtp.gmail.com")
+ (smtpmail-starttls-credentials
+ ("smtp.gmail.com" 587 nil nil))))
+ mdw-guess-send-mail-alist
+ `((,(concat "@\\(" "\\(chiark\\|slimy\\|coriolis\\)"
+ "\\.greenend\\.org\\.uk"
+ "\\|" "evade\\.org\\.uk"
+ "\\|" "fyvzl\\.net"
+ "\\)$") . chiark-smtp)
+ ("@g\\(\\|oogle\\)mail\\.com$" . gmail-smtp))
+ mdw-default-send-mail-method nil)
+
+;;;--------------------------------------------------------------------------
+;;; News via chiark.
+
+;; Currently we assume an SSH tunnel. This will be fixed later.
+(setq gnus-select-method
+ '(nntp "chiark-ssh-kludge"
+ (nntp-open-connection-function nntp-open-authinfo-kludge)
+ (nntp-address "tunnel.chiark.greenend.org.uk")
+ (nntp-authinfo-generic "md5cookie1way mdw")))
+
+;;;--------------------------------------------------------------------------