diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-04-12 04:05:07 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-04-12 04:05:07 +0000 |
| commit | b81c0abbde9cd94c988086bf7cd7571eeb85593f (patch) | |
| tree | 5cbd1cb1532b6ff3a080832f8150811d12010fa5 /lisp/url/url-mailto.el | |
| parent | bebcf94029005bd6538dde4b16eb7d0ed720f7f6 (diff) | |
| download | emacs-b81c0abbde9cd94c988086bf7cd7571eeb85593f.tar.gz | |
(url-mailto): Avoid warning.
Diffstat (limited to 'lisp/url/url-mailto.el')
| -rw-r--r-- | lisp/url/url-mailto.el | 50 |
1 files changed, 27 insertions, 23 deletions
diff --git a/lisp/url/url-mailto.el b/lisp/url/url-mailto.el index 98ca6a9e62a..c2b35051c31 100644 --- a/lisp/url/url-mailto.el +++ b/lisp/url/url-mailto.el @@ -1,27 +1,30 @@ ;;; url-mail.el --- Mail Uniform Resource Locator retrieval code + +;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc. +;; Copyright (c) 1993 - 1996 by William M. Perry <wmperry@cs.indiana.edu> + ;; Keywords: comm, data, processes -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; Copyright (c) 1993 - 1996 by William M. Perry <wmperry@cs.indiana.edu> -;;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc. -;;; -;;; This file is part of GNU Emacs. -;;; -;;; GNU Emacs is free software; you can redistribute it and/or modify -;;; it under the terms of the GNU General Public License as published by -;;; the Free Software Foundation; either version 2, or (at your option) -;;; any later version. -;;; -;;; GNU Emacs is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;;; GNU General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with GNU Emacs; see the file COPYING. If not, write to the -;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;;; Boston, MA 02111-1307, USA. -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; This file is part of GNU Emacs. +;; +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. +;; +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Commentary: + +;;; Code: (eval-when-compile (require 'cl)) (require 'url-vars) @@ -118,11 +121,12 @@ (cond ((eq url-mail-command 'compose-mail) (funcall (get mail-user-agent 'sendfunc) nil)) ;; otherwise, we can't be sure - ((fboundp 'message-mail) + ((fboundp 'message-send-and-exit) (message-send-and-exit)) (t (mail-send-and-exit nil))))) nil)) (provide 'url-mailto) -;;; arch-tag: 7b7ad52e-8760-497b-9444-75fae14e34c5 +;; arch-tag: 7b7ad52e-8760-497b-9444-75fae14e34c5 +;;; url-mailto.el ends here |