diff options
author | Luke Shumaker <LukeShu@sbcglobal.net> | 2011-06-20 01:25:36 -0400 |
---|---|---|
committer | Luke Shumaker <LukeShu@sbcglobal.net> | 2011-06-20 01:25:36 -0400 |
commit | d052487a09ed53cbdedd4d55fb6d548a0a30a1af (patch) | |
tree | 996eaf853419241178c709c9e7cfe704c99e5785 /.emacs | |
parent | 7e842cfd399c0bea9d480d5fa7a18dfa06bb6a60 (diff) |
This is what happens after about 2 weeks of using Parabola.
Note that .bashrc is increasing it's reliance on "thingutils"
Diffstat (limited to '.emacs')
-rw-r--r-- | .emacs | 24 |
1 files changed, 11 insertions, 13 deletions
@@ -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) |