/[emacs]/emacs/lisp/url/url-mailto.el
ViewVC logotype

Diff of /emacs/lisp/url/url-mailto.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by cyd, Thu Sep 1 16:38:39 2005 UTC revision 1.11 by cyd, Fri Sep 2 12:30:51 2005 UTC
# Line 88  Line 88 
88        (if tolist        (if tolist
89            (if (not (string= to ""))            (if (not (string= to ""))
90                (setcdr tolist                (setcdr tolist
91                        (list (concat to ", " (nth 1 tolist)))))                        (list (concat to ", " (cadr tolist)))))
92          (setq args (cons (list "to" to) args))))          (setq args (cons (list "to" to) args))))
93    
94      (setq subject (cdr-safe (assoc "subject" args)))      (setq subject (cdr-safe (assoc "subject" args)))

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26