/[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.14 by cyd, Thu Sep 15 03:54:24 2005 UTC revision 1.15 by rms, Sat Sep 17 04:58:28 2005 UTC
# Line 92  Line 92 
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)))
95      (if (fboundp url-mail-command)      (if (eq url-mail-command 'compose-mail)
96          (if (eq url-mail-command 'compose-mail)          (compose-mail nil nil nil 'new)
97              (compose-mail nil nil nil 'new)        (if (eq url-mail-command 'mail)
98            (funcall url-mail-command))            (mail 'new)
99        (mail 'new))          (funcall url-mail-command)))
100      (while args      (while args
101        (if (string= (caar args) "body")        (if (string= (caar args) "body")
102            (progn            (progn

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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