Mercurial > hg > xemacs-beta

comparison lisp/w3/url-mail.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents 9ee227acff29
children
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
1 ;;; url-mail.el --- Mail Uniform Resource Locator retrieval code 1 ;;; url-mail.el --- Mail Uniform Resource Locator retrieval code
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1996/10/21 21:27:36 3 ;; Created: 1997/01/20 19:52:07
4 ;; Version: 1.4 4 ;; Version: 1.7
5 ;; Keywords: comm, data, processes 5 ;; Keywords: comm, data, processes
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
10 ;;; 10 ;;;
11 ;;; This file is not part of GNU Emacs, but the same permissions apply. 11 ;;; This file is not part of GNU Emacs, but the same permissions apply.
12 ;;; 12 ;;;
13 ;;; GNU Emacs is free software; you can redistribute it and/or modify 13 ;;; GNU Emacs is free software; you can redistribute it and/or modify
14 ;;; it under the terms of the GNU General Public License as published by 14 ;;; it under the terms of the GNU General Public License as published by
34 (not (eobp))) 34 (not (eobp)))
35 (forward-sexp 1)))) 35 (forward-sexp 1))))
36 36
37 (defun url-mail (&rest args) 37 (defun url-mail (&rest args)
38 (interactive "P") 38 (interactive "P")
39 (or (apply 'mail args) 39 (if (fboundp 'message-mail)
40 (error "Mail aborted"))) 40 (apply 'message-mail args)
41 (or (apply 'mail args)
42 (error "Mail aborted"))))
41 43
42 (defun url-mail-goto-field (field) 44 (defun url-mail-goto-field (field)
43 (if (not field) 45 (if (not field)
44 (goto-char (point-max)) 46 (goto-char (point-max))
45 (let ((dest nil) 47 (let ((dest nil)