[Emacs-diffs] Changes to emacs/lisp/url/url-mailto.el

[Chong Yidong]

Index: emacs/lisp/url/url-mailto.el
diff -c emacs/lisp/url/url-mailto.el:1.12 emacs/lisp/url/url-mailto.el:1.13
*** emacs/lisp/url/url-mailto.el:1.12   Mon Sep 12 23:02:16 2005
--- emacs/lisp/url/url-mailto.el        Thu Sep 15 03:30:39 2005
***************
*** 124,135 ****
        ;; It seems Microsoft-ish to send without warning.
        ;; Fixme: presumably this should depend on a privacy setting.
        (if (y-or-n-p "Send this auto-generated mail? ")
!         (cond ((eq url-mail-command 'compose-mail)
!                (funcall (get mail-user-agent 'sendfunc) nil))
!               ;; otherwise, we can't be sure
!               ((fboundp 'message-send-and-exit)
!                (message-send-and-exit))
!               (t (mail-send-and-exit nil)))))
      nil))
  
  (provide 'url-mailto)
--- 124,137 ----
        ;; It seems Microsoft-ish to send without warning.
        ;; Fixme: presumably this should depend on a privacy setting.
        (if (y-or-n-p "Send this auto-generated mail? ")
!         (let ((buffer (current-buffer)))
!           (cond ((eq url-mail-command 'compose-mail)
!                  (funcall (get mail-user-agent 'sendfunc) nil))
!                 ;; otherwise, we can't be sure
!                 ((fboundp 'message-send-and-exit)
!                  (message-send-and-exit))
!                 (t (mail-send-and-exit nil)))
!           (kill-buffer buffer))))
      nil))
  
  (provide 'url-mailto)