diff options
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) |