This is what happens after about 2 weeks of using Parabola.

Note that .bashrc is increasing it's reliance on "thingutils"

1 files changed, 11 insertions, 13 deletions

diff --git a/.emacs b/.emacs
index fbf4b84..bcd2645 100644
--- a/.emacs
+++ b/.emacs
@@ -13,19 +13,6 @@
   )
 )
 
-(setq send-mail-function 'smtpmail-send-it) ; if you use `mail'
-(setq message-send-mail-function 'smtpmail-send-it) ; if you use message/Gnus
-(setq smtpmail-default-smtp-server "plus.smtp.mail.yahoo.com") ; set before loading library
-(setq smtpmail-local-domain  "lukeshu.ath.cx")
-(setq smtpmail-sendto-domain "lukeshu.ath.cx")
-(setq smtpmail-debug-info t) ; only to debug problems
-(setq smtpmail-smtp-service 465)
-(setq smtpmail-auth-credentials  ; or use ~/.authinfo
-      '(("plus.smtp.mail.yahoo.com" 465 "lukeshu@sbcglobal.net" "oct30yahoo")))
-(setq smtpmail-starttls-credentials
-      '(("plus.smtp.mail.yahoo.com" 465 nil nil)))
-(load-library "smtpmail")
-
 (setq package-archives '(("ELPA" . "http://tromey.com/elpa/")
 			 ("marmalade" . "http://marmalade-repo.org/packages/")
 			 ("gnu" . "http://elpa.gnu.org/packages/")))
@@ -80,6 +67,17 @@
 			  (face-background 'default)))
           t)
 
+(defun mailto-compose-mail (mailto-url)
+  (if (and (stringp mailto-url)
+           (string-match "\\`mailto:" mailto-url))
+      (progn
+        (require 'rfc2368)
+        (let* ((headers (mapcar (lambda (h) (cons (intern (car h)) (cdr h)))
+                          (rfc2368-parse-mailto-url mailto-url)))
+               (good-headers (remove-if (lambda (h) (member (car h) '(Body))) headers))
+               (body (cdr (assoc 'Body headers))))
+          (wl-draft good-headers nil nil body)))))
+
 (ido-mode t)
 (show-paren-mode 1)