Mercurial > emacs
comparison lisp/url/url-mailto.el @ 65520:d7d263fcbadc
2005-09-15 Chong Yidong <cyd@stupidchicken.com>
* url-mailto.el (url-mailto): Delete mail buffer after sending
autogenerated mail.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Thu, 15 Sep 2005 03:30:39 +0000 |
| parents | 5431d3ba10fd |
| children | 75da5ea5fb14 |
comparison
equal
deleted
inserted
replaced
| 65519:064131b588d1 | 65520:d7d263fcbadc |
|---|---|
| 122 (goto-char (point-max)) | 122 (goto-char (point-max)) |
| 123 (insert url-request-data) | 123 (insert url-request-data) |
| 124 ;; It seems Microsoft-ish to send without warning. | 124 ;; It seems Microsoft-ish to send without warning. |
| 125 ;; Fixme: presumably this should depend on a privacy setting. | 125 ;; Fixme: presumably this should depend on a privacy setting. |
| 126 (if (y-or-n-p "Send this auto-generated mail? ") | 126 (if (y-or-n-p "Send this auto-generated mail? ") |
| 127 (cond ((eq url-mail-command 'compose-mail) | 127 (let ((buffer (current-buffer))) |
| 128 (funcall (get mail-user-agent 'sendfunc) nil)) | 128 (cond ((eq url-mail-command 'compose-mail) |
| 129 ;; otherwise, we can't be sure | 129 (funcall (get mail-user-agent 'sendfunc) nil)) |
| 130 ((fboundp 'message-send-and-exit) | 130 ;; otherwise, we can't be sure |
| 131 (message-send-and-exit)) | 131 ((fboundp 'message-send-and-exit) |
| 132 (t (mail-send-and-exit nil))))) | 132 (message-send-and-exit)) |
| 133 (t (mail-send-and-exit nil))) | |
| 134 (kill-buffer buffer)))) | |
| 133 nil)) | 135 nil)) |
| 134 | 136 |
| 135 (provide 'url-mailto) | 137 (provide 'url-mailto) |
| 136 | 138 |
| 137 ;; arch-tag: 7b7ad52e-8760-497b-9444-75fae14e34c5 | 139 ;; arch-tag: 7b7ad52e-8760-497b-9444-75fae14e34c5 |