124 |
;; It seems Microsoft-ish to send without warning. |
;; It seems Microsoft-ish to send without warning. |
125 |
;; Fixme: presumably this should depend on a privacy setting. |
;; Fixme: presumably this should depend on a privacy setting. |
126 |
(if (y-or-n-p "Send this auto-generated mail? ") |
(if (y-or-n-p "Send this auto-generated mail? ") |
127 |
(cond ((eq url-mail-command 'compose-mail) |
(let ((buffer (current-buffer))) |
128 |
(funcall (get mail-user-agent 'sendfunc) nil)) |
(cond ((eq url-mail-command 'compose-mail) |
129 |
;; otherwise, we can't be sure |
(funcall (get mail-user-agent 'sendfunc) nil)) |
130 |
((fboundp 'message-send-and-exit) |
;; otherwise, we can't be sure |
131 |
(message-send-and-exit)) |
((fboundp 'message-send-and-exit) |
132 |
(t (mail-send-and-exit nil))))) |
(message-send-and-exit)) |
133 |
|
(t (mail-send-and-exit nil))) |
134 |
|
(kill-buffer buffer)))) |
135 |
nil)) |
nil)) |
136 |
|
|
137 |
(provide 'url-mailto) |
(provide 'url-mailto) |