25 |
|
|
26 |
;;; Code: |
;;; Code: |
27 |
|
|
|
(eval-when-compile (require 'cl)) |
|
28 |
(require 'url-vars) |
(require 'url-vars) |
29 |
(require 'url-parse) |
(require 'url-parse) |
30 |
(require 'url-util) |
(require 'url-util) |
84 |
(setq args (cons (list "x-url-from" source-url) args))) |
(setq args (cons (list "x-url-from" source-url) args))) |
85 |
|
|
86 |
(if (assoc "to" args) |
(if (assoc "to" args) |
87 |
(push to (cdr (assoc "to" args))) |
(push (cdr (assoc "to" args)) to) |
88 |
(setq args (cons (list "to" to) args))) |
(setq args (cons (list "to" to) args))) |
89 |
(setq subject (cdr-safe (assoc "subject" args))) |
(setq subject (cdr-safe (assoc "subject" args))) |
90 |
(if (fboundp url-mail-command) (funcall url-mail-command) (mail)) |
(if (fboundp url-mail-command) (funcall url-mail-command) (mail)) |