92 |
(setq args (cons (list "to" to) args)))) |
(setq args (cons (list "to" to) args)))) |
93 |
|
|
94 |
(setq subject (cdr-safe (assoc "subject" args))) |
(setq subject (cdr-safe (assoc "subject" args))) |
95 |
(if (fboundp url-mail-command) |
(if (eq url-mail-command 'compose-mail) |
96 |
(if (eq url-mail-command 'compose-mail) |
(compose-mail nil nil nil 'new) |
97 |
(compose-mail nil nil nil 'new) |
(if (eq url-mail-command 'mail) |
98 |
(funcall url-mail-command)) |
(mail 'new) |
99 |
(mail 'new)) |
(funcall url-mail-command))) |
100 |
(while args |
(while args |
101 |
(if (string= (caar args) "body") |
(if (string= (caar args) "body") |
102 |
(progn |
(progn |