diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/url/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/url/url-mailto.el | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index ad0ee150207..4235fe13e34 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2005-09-13 Chong Yidong <cyd@stupidchicken.com> | ||
| 2 | |||
| 3 | * url-mailto.el (url-mailto): Always use a new mail buffer. | ||
| 4 | |||
| 1 | 2005-09-01 Chong Yidong <cyd@stupidchicken.com> | 5 | 2005-09-01 Chong Yidong <cyd@stupidchicken.com> |
| 2 | 6 | ||
| 3 | * url-util.el (url-parse-query-string): New optional argument | 7 | * url-util.el (url-parse-query-string): New optional argument |
diff --git a/lisp/url/url-mailto.el b/lisp/url/url-mailto.el index 3316b7c4b9d..d5f96184013 100644 --- a/lisp/url/url-mailto.el +++ b/lisp/url/url-mailto.el | |||
| @@ -92,7 +92,7 @@ | |||
| 92 | (setq args (cons (list "to" to) args)))) | 92 | (setq args (cons (list "to" to) args)))) |
| 93 | 93 | ||
| 94 | (setq subject (cdr-safe (assoc "subject" args))) | 94 | (setq subject (cdr-safe (assoc "subject" args))) |
| 95 | (if (fboundp url-mail-command) (funcall url-mail-command) (mail)) | 95 | (if (fboundp url-mail-command) (funcall url-mail-command) (mail 'new)) |
| 96 | (while args | 96 | (while args |
| 97 | (if (string= (caar args) "body") | 97 | (if (string= (caar args) "body") |
| 98 | (progn | 98 | (progn |