- ""
- (let ((mailto "")
- (to ())
- (subject "None")
- (body "")
- )
- (cond
- ((string-match "<mailto:\\([^>]*\\)>" address)
- (let ((args (match-string 1 address)))
- (cond ; with param
- ((string-match "\\(.*\\)\\?\\(.*\\)" args)
- (setq mailto (match-string 1 args))
- (let ((param (match-string 2 args)))
- (if (string-match "subject=\\([^&]*\\)" param)
- (setq subject (match-string 1 param)))
- (if (string-match "body=\\([^&]*\\)" param)
- (setq body (match-string 1 param)))
- (if (string-match "to=\\([^&]*\\)" param)
- (push (match-string 1 param) to))
- ))
- (t (setq mailto args))))) ; without param
-
- ; other case <http://... to be done.
- (t nil))
- (gnus-setup-message 'message (message-mail mailto subject))
- (insert body)
- ))
+ "Send message to ADDRESS.
+ADDRESS is specified by a \"mailto:\" URL."
+ (cond
+ ((string-match "<\\(mailto:[^>]*\\)>" address)
+ (require 'gnus-art)
+ (gnus-url-mailto (match-string 1 address)))
+ ;; other case <http://...> to be done.
+ (t nil)))