[Emacs-diffs] Changes to emacs/lisp/url/url-mailto.el

[Chong Yidong]

Index: emacs/lisp/url/url-mailto.el
diff -c emacs/lisp/url/url-mailto.el:1.10 emacs/lisp/url/url-mailto.el:1.11
*** emacs/lisp/url/url-mailto.el:1.10   Thu Sep  1 16:38:39 2005
--- emacs/lisp/url/url-mailto.el        Fri Sep  2 12:30:51 2005
***************
*** 88,94 ****
        (if tolist
          (if (not (string= to ""))
              (setcdr tolist
!                     (list (concat to ", " (nth 1 tolist)))))
        (setq args (cons (list "to" to) args))))
  
      (setq subject (cdr-safe (assoc "subject" args)))
--- 88,94 ----
        (if tolist
          (if (not (string= to ""))
              (setcdr tolist
!                     (list (concat to ", " (cadr tolist)))))
        (setq args (cons (list "to" to) args))))
  
      (setq subject (cdr-safe (assoc "subject" args)))