/[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.4.2.1 by miles, Thu Oct 14 08:49:52 2004 UTC revision 1.4.2.2 by miles, Fri Oct 22 10:13:34 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.4.2.1  
changed lines
  Added in v.1.4.2.2

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