/[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.12 by cyd, Mon Sep 12 23:02:16 2005 UTC revision 1.13 by cyd, Thu Sep 15 03:30:39 2005 UTC
# Line 124  Line 124 
124        ;; It seems Microsoft-ish to send without warning.        ;; It seems Microsoft-ish to send without warning.
125        ;; Fixme: presumably this should depend on a privacy setting.        ;; Fixme: presumably this should depend on a privacy setting.
126        (if (y-or-n-p "Send this auto-generated mail? ")        (if (y-or-n-p "Send this auto-generated mail? ")
127            (cond ((eq url-mail-command 'compose-mail)            (let ((buffer (current-buffer)))
128                   (funcall (get mail-user-agent 'sendfunc) nil))              (cond ((eq url-mail-command 'compose-mail)
129                  ;; otherwise, we can't be sure                     (funcall (get mail-user-agent 'sendfunc) nil))
130                  ((fboundp 'message-send-and-exit)                    ;; otherwise, we can't be sure
131                   (message-send-and-exit))                    ((fboundp 'message-send-and-exit)
132                  (t (mail-send-and-exit nil)))))                     (message-send-and-exit))
133                      (t (mail-send-and-exit nil)))
134                (kill-buffer buffer))))
135      nil))      nil))
136    
137  (provide 'url-mailto)  (provide 'url-mailto)

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

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