diff options
| -rw-r--r-- | lisp/url/url-mailto.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/url/url-mailto.el b/lisp/url/url-mailto.el index 9b63a35f3bd..3316b7c4b9d 100644 --- a/lisp/url/url-mailto.el +++ b/lisp/url/url-mailto.el | |||
| @@ -88,7 +88,7 @@ | |||
| 88 | (if tolist | 88 | (if tolist |
| 89 | (if (not (string= to "")) | 89 | (if (not (string= to "")) |
| 90 | (setcdr tolist | 90 | (setcdr tolist |
| 91 | (list (concat to ", " (nth 1 tolist))))) | 91 | (list (concat to ", " (cadr tolist))))) |
| 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))) |