/[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.11 by cyd, Fri Sep 2 12:30:51 2005 UTC revision 1.12 by cyd, Mon Sep 12 23:02:16 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) (funcall url-mail-command) (mail))      (if (fboundp url-mail-command) (funcall url-mail-command) (mail 'new))
96      (while args      (while args
97        (if (string= (caar args) "body")        (if (string= (caar args) "body")
98            (progn            (progn

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

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