(message-mailto): Remove since it duplicates browse-url-mailto functionality.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ce0e63d..3cfccb7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
        * message.el (message-mailto): New function.
        (message-mailto): Should accept other parameters.
+       (message-mailto): Remove since it duplicates browse-url-mailto
+       functionality.
 
 2010-11-07  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

diff --git a/lisp/message.el b/lisp/message.el
index 22bf45b..9b5f63c 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6551,31 +6551,6 @@ is a function used to switch to and display the mail buffer."
     ;; FIXME: Should return nil if failure.
     t))
 
-;;;###autoload
-(defun message-mailto (url &rest args)
-  "Send a mail message to URL.
-The URL should be on the form \"mailto:<address>?params\"."
-  (when (string-match "\\`mailto:" url)
-    (setq url (substring url (match-end 0)))
-    (let (to args)
-      (if (string-match "\\?" url)
-         (setq to (substring url 0 (match-beginning 0))
-               args (substring url (match-end 0)))
-       (setq to url))
-      (if (not args)
-         (message-mail to)
-       (let ((pairs
-              (mapcar (lambda (elem)
-                        (let ((key-val (split-string elem "=")))
-                          (list (capitalize (car key-val))
-                                (cadr key-val))))
-                      (split-string args "&")))
-             subject)
-         (when (setq subject (assoc "Subject" pairs))
-           (setq pairs (delq subject pairs)
-                 subject (cadr subject)))
-         (message-mail to subject pairs))))))
-
 ;;;###autoload
 (defun message-news (&optional newsgroups subject)
   "Start editing a news article to be sent."