Read Mail while programming on emacs

With emacs vm, and emacs zerinc modes, programming can get anymore fun than it is already. Just in case you are wodering how, here is a quick setup for the emans vm mail. Edit your .emacs file with the following, note that that you have to enter user specific details like username and server address.

;; Some file locations are relative to my HOME or BIN directories
(defvar home-dir)
(setq home-dir (concat (expand-file-name "~") "/"))
(defvar bin-dir (concat home-dir "bin/"))

;; Basic VM setup
(push (concat bin-dir "emacs/site-lisp/vm") load-path)
(autoload 'vm "vm" "Start VM on your primary inbox." t)
(autoload 'vm-other-frame "vm" "Like `vm' but starts in another frame." t)
(autoload 'vm-visit-folder "vm" "Start VM on an arbitrary folder." t)
(autoload 'vm-visit-virtual-folder "vm" "Visit a VM virtual folder." t)
(autoload 'vm-mode "vm" "Run VM major mode on a buffer" t)
(autoload 'vm-mail "vm" "Send a mail message using VM." t)
(autoload 'vm-submit-bug-report "vm" "Send a bug report about VM." t)
(setq vm-toolbar-pixmap-directory (concat (expand-file-name "~") "/bin/
emacs/site-lisp/vm/pixmaps"))
(setq vm-image-directory (concat (expand-file-name "~") "/bin/emacs/
site-lisp/vm/pixmaps"))
(setenv "PATH" (concat (concat (expand-file-name "~") "/bin/emacs/
site-lisp/vm/bin") ":"
(getenv "PATH")))
(setq send-mail-function 'sendmail-send-it)
(setq user-full-name "User Name")
(setq user-mail-address "username@email.com")
(setq mail-archive-file-name "~/Mail/SENT")

;; Configure inbound mail (POP)
;; edit this details
(setq vm-spool-files
 '(("~/INBOX" "pop-ssl:pop.mailserver.com:995:pass:username:*" "
~/INBOX.CRASH")))

;; Use W3M to read HTML email
(require 'w3m-load)
(setq vm-mime-use-w3-for-text/html nil)
(setq vm-url-browser 'w3m)
(load "vm-w3m")
(setq w3m-input-coding-system 'utf-8
 w3m-output-coding-system 'utf-8)

;; Configure outbound mail (SMTP)
(setq smtpmail-starttls-credentials '(("smtp.mailhost.com" 587 nil nil))
 smtpmail-smtp-server "smtp.mailhost.com"
 smtpmail-default-smtp-server "smtp.mailhost.com"
 send-mail-function 'smtpmail-send-it
 message-send-mail-function 'smtpmail-send-it
 smtpmail-smtp-service 587
 smtpmail-auth-credentials '(("smtp.mailhost.com"
   587
   "username@mailhost.com"
   nil)))

Have fun coding while updated with your emails.