Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |