[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/url/url-mailto.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/url/url-mailto.el |
Date: |
Sat, 17 Sep 2005 00:58:28 -0400 |
Index: emacs/lisp/url/url-mailto.el
diff -c emacs/lisp/url/url-mailto.el:1.14 emacs/lisp/url/url-mailto.el:1.15
*** emacs/lisp/url/url-mailto.el:1.14 Thu Sep 15 03:54:24 2005
--- emacs/lisp/url/url-mailto.el Sat Sep 17 04:58:28 2005
***************
*** 92,102 ****
(setq args (cons (list "to" to) args))))
(setq subject (cdr-safe (assoc "subject" args)))
! (if (fboundp url-mail-command)
! (if (eq url-mail-command 'compose-mail)
! (compose-mail nil nil nil 'new)
! (funcall url-mail-command))
! (mail 'new))
(while args
(if (string= (caar args) "body")
(progn
--- 92,102 ----
(setq args (cons (list "to" to) args))))
(setq subject (cdr-safe (assoc "subject" args)))
! (if (eq url-mail-command 'compose-mail)
! (compose-mail nil nil nil 'new)
! (if (eq url-mail-command 'mail)
! (mail 'new)
! (funcall url-mail-command)))
(while args
(if (string= (caar args) "body")
(progn