Mercurial > emacs

comparison lisp/url/url-cid.el @ 57612:2954cb243379

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update header and footer.
author Lars Hansen <larsh@soem.dk>
date Tue, 19 Oct 2004 21:36:56 +0000
parents e8824c4f5f7e
children a8fa7c632ee4 ae7fab96922c
comparison
equal deleted inserted replaced
57611:61dd8eea5548 57612:2954cb243379
1 ;;; url-cid.el --- Content-ID URL loader 1 ;;; url-cid.el --- Content-ID URL loader
2
3 ;; Copyright (c) 1998 - 1999 Free Software Foundation, Inc.
4
2 ;; Keywords: comm, data, processes 5 ;; Keywords: comm, data, processes
3 6
4 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;; This file is part of GNU Emacs.
5 ;;; Copyright (c) 1998 - 1999 Free Software Foundation, Inc. 8
6 ;;; 9 ;; GNU Emacs is free software; you can redistribute it and/or modify
7 ;;; This file is part of GNU Emacs. 10 ;; it under the terms of the GNU General Public License as published by
8 ;;; 11 ;; the Free Software Foundation; either version 2, or (at your option)
9 ;;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; any later version.
10 ;;; it under the terms of the GNU General Public License as published by 13
11 ;;; the Free Software Foundation; either version 2, or (at your option) 14 ;; GNU Emacs is distributed in the hope that it will be useful,
12 ;;; any later version. 15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;;; 16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 ;;; GNU Emacs is distributed in the hope that it will be useful, 17 ;; GNU General Public License for more details.
15 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of 18
16 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 19 ;; You should have received a copy of the GNU General Public License
17 ;;; GNU General Public License for more details. 20 ;; along with GNU Emacs; see the file COPYING. If not, write to the
18 ;;; 21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 ;;; You should have received a copy of the GNU General Public License 22 ;; Boston, MA 02111-1307, USA.
20 ;;; along with GNU Emacs; see the file COPYING. If not, write to the 23
21 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 24 ;;; Code:
22 ;;; Boston, MA 02111-1307, USA.
23 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
24 25
25 (require 'url-vars) 26 (require 'url-vars)
26 (require 'url-parse) 27 (require 'url-parse)
27 28
28 (require 'mm-decode) 29 (require 'mm-decode)
60 (url-cid-gnus (url-filename url)))) 61 (url-cid-gnus (url-filename url))))
61 (t 62 (t
62 (message "Unable to handle CID URL: %s" url)))) 63 (message "Unable to handle CID URL: %s" url))))
63 64
64 ;;; arch-tag: 23d9ab74-fad4-4dba-b1e7-292871e8bda5 65 ;;; arch-tag: 23d9ab74-fad4-4dba-b1e7-292871e8bda5
66 ;;; url-cid.el ends here