/[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.3.2.4 by miles, Mon Oct 25 04:19:35 2004 UTC revision 1.3.2.5 by miles, Mon Oct 25 04:22:24 2004 UTC
# Line 25  Line 25 
25    
26  ;;; Code:  ;;; Code:
27    
 (eval-when-compile (require 'cl))  
28  (require 'url-vars)  (require 'url-vars)
29  (require 'url-parse)  (require 'url-parse)
30  (require 'url-util)  (require 'url-util)
# Line 85  Line 84 
84          (setq args (cons (list "x-url-from" source-url) args)))          (setq args (cons (list "x-url-from" source-url) args)))
85    
86      (if (assoc "to" args)      (if (assoc "to" args)
87          (push to (cdr (assoc "to" args)))          (push (cdr (assoc "to" args)) to)
88        (setq args (cons (list "to" to) args)))        (setq args (cons (list "to" to) args)))
89      (setq subject (cdr-safe (assoc "subject" args)))      (setq subject (cdr-safe (assoc "subject" args)))
90      (if (fboundp url-mail-command) (funcall url-mail-command) (mail))      (if (fboundp url-mail-command) (funcall url-mail-command) (mail))

Legend:
Removed from v.1.3.2.4  
changed lines
  Added in v.1.3.2.5

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