Mercurial > emacs
annotate lisp/url/url-cid.el @ 79207:f19edd342e7b
Comment change.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 24 Oct 2007 08:24:36 +0000 |
parents | 8932997d0b62 |
children | 9c0b3f269b92 |
rev | line source |
---|---|
54695 | 1 ;;; url-cid.el --- Content-ID URL loader |
57612 | 2 |
75347 | 3 ;; Copyright (C) 1998, 1999, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. |
57612 | 4 |
54695 | 5 ;; Keywords: comm, data, processes |
6 | |
57612 | 7 ;; This file is part of GNU Emacs. |
8 | |
9 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
10 ;; it under the terms of the GNU General Public License as published by | |
78222
8932997d0b62
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
75347
diff
changeset
|
11 ;; the Free Software Foundation; either version 3, or (at your option) |
57612 | 12 ;; any later version. |
13 | |
14 ;; GNU Emacs is distributed in the hope that it will be useful, | |
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
17 ;; GNU General Public License for more details. | |
18 | |
19 ;; You should have received a copy of the GNU General Public License | |
20 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
64084 | 21 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
22 ;; Boston, MA 02110-1301, USA. | |
57612 | 23 |
24 ;;; Code: | |
54695 | 25 |
26 (require 'url-vars) | |
27 (require 'url-parse) | |
28 | |
29 (require 'mm-decode) | |
30 | |
31 (defun url-cid-gnus (cid) | |
32 (let ((content-type nil) | |
33 (encoding nil) | |
34 (part nil) | |
35 (data nil)) | |
36 (setq part (mm-get-content-id cid)) | |
37 (if (not part) | |
38 (message "Unknown CID encountered: %s" cid) | |
39 (setq data (save-excursion | |
40 (set-buffer (mm-handle-buffer part)) | |
41 (buffer-string)) | |
42 content-type (mm-handle-type part) | |
43 encoding (symbol-name (mm-handle-encoding part))) | |
44 (if (= 0 (length content-type)) (setq content-type "text/plain")) | |
45 (if (= 0 (length encoding)) (setq encoding "8bit")) | |
46 (if (listp content-type) | |
47 (setq content-type (car content-type))) | |
48 (insert (format "Content-type: %d\r\n" (length data)) | |
49 "Content-type: " content-type "\r\n" | |
50 "Content-transfer-encoding: " encoding "\r\n" | |
51 "\r\n" | |
52 (or data ""))))) | |
53 | |
54 ;;;###autoload | |
55 (defun url-cid (url) | |
56 (cond | |
57 ((fboundp 'mm-get-content-id) | |
58 ;; Using Pterodactyl Gnus or later | |
59 (save-excursion | |
60 (set-buffer (generate-new-buffer " *url-cid*")) | |
61 (url-cid-gnus (url-filename url)))) | |
62 (t | |
63 (message "Unable to handle CID URL: %s" url)))) | |
54699 | 64 |
65 ;;; arch-tag: 23d9ab74-fad4-4dba-b1e7-292871e8bda5 | |
57612 | 66 ;;; url-cid.el ends here |