Mercurial > emacs
annotate lisp/url/url-cid.el @ 101331:562944d6149f
Add eshell-handle-ansi-color to the default list of output filters.
author | John Wiegley <johnw@newartisans.com> |
---|---|
date | Thu, 22 Jan 2009 01:11:30 +0000 |
parents | 89695da9e88c |
children | 328150f0cf76 |
rev | line source |
---|---|
54695 | 1 ;;; url-cid.el --- Content-ID URL loader |
57612 | 2 |
100908 | 3 ;; Copyright (C) 1998, 1999, 2004, 2005, 2006, 2007, 2008, 2009 |
4 ;; Free Software Foundation, Inc. | |
57612 | 5 |
54695 | 6 ;; Keywords: comm, data, processes |
7 | |
57612 | 8 ;; This file is part of GNU Emacs. |
9 | |
94668
8259d0d8e107
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
10 ;; GNU Emacs is free software: you can redistribute it and/or modify |
57612 | 11 ;; it under the terms of the GNU General Public License as published by |
94668
8259d0d8e107
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
12 ;; the Free Software Foundation, either version 3 of the License, or |
8259d0d8e107
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
13 ;; (at your option) any later version. |
57612 | 14 |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
94668
8259d0d8e107
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
57612 | 22 |
23 ;;; Code: | |
54695 | 24 |
25 (require 'url-vars) | |
26 (require 'url-parse) | |
27 | |
28 (require 'mm-decode) | |
29 | |
30 (defun url-cid-gnus (cid) | |
31 (let ((content-type nil) | |
32 (encoding nil) | |
33 (part nil) | |
34 (data nil)) | |
35 (setq part (mm-get-content-id cid)) | |
36 (if (not part) | |
37 (message "Unknown CID encountered: %s" cid) | |
38 (setq data (save-excursion | |
39 (set-buffer (mm-handle-buffer part)) | |
40 (buffer-string)) | |
41 content-type (mm-handle-type part) | |
42 encoding (symbol-name (mm-handle-encoding part))) | |
43 (if (= 0 (length content-type)) (setq content-type "text/plain")) | |
44 (if (= 0 (length encoding)) (setq encoding "8bit")) | |
45 (if (listp content-type) | |
46 (setq content-type (car content-type))) | |
100995
89695da9e88c
(url-cid-gnus): Fix typo in header name.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
47 (insert (format "Content-length: %d\r\n" (length data)) |
54695 | 48 "Content-type: " content-type "\r\n" |
49 "Content-transfer-encoding: " encoding "\r\n" | |
50 "\r\n" | |
51 (or data ""))))) | |
52 | |
53 ;;;###autoload | |
54 (defun url-cid (url) | |
55 (cond | |
56 ((fboundp 'mm-get-content-id) | |
57 ;; Using Pterodactyl Gnus or later | |
58 (save-excursion | |
59 (set-buffer (generate-new-buffer " *url-cid*")) | |
60 (url-cid-gnus (url-filename url)))) | |
61 (t | |
62 (message "Unable to handle CID URL: %s" url)))) | |
54699 | 63 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
79720
diff
changeset
|
64 ;; arch-tag: 23d9ab74-fad4-4dba-b1e7-292871e8bda5 |
57612 | 65 ;;; url-cid.el ends here |