Mercurial > emacs
annotate lisp/url/url-cid.el @ 108576:c85c4eac55a6
* progmodes/sh-script.el (sh-mode-default-syntax-table): Remove.
(sh-mode-syntax-table): Give it a default value instead.
(sh-header-marker): Make buffer-local.
(sh-mode): Move make-local-variable to the corresponding setq.
(sh-add-completer): Avoid gratuitously let-binding a buffer-local var.
Use complete-with-action.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Fri, 14 May 2010 17:21:12 -0400 |
parents | 1d1d5d9bd884 |
children | 376148b31b5e |
rev | line source |
---|---|
54695 | 1 ;;; url-cid.el --- Content-ID URL loader |
57612 | 2 |
106815 | 3 ;; Copyright (C) 1998, 1999, 2004, 2005, 2006, 2007, 2008, 2009, 2010 |
100908 | 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) | |
105829
328150f0cf76
* url-util.el (url-insert-entities-in-string):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100995
diff
changeset
|
38 (setq data (with-current-buffer (mm-handle-buffer part) |
54695 | 39 (buffer-string)) |
40 content-type (mm-handle-type part) | |
41 encoding (symbol-name (mm-handle-encoding part))) | |
42 (if (= 0 (length content-type)) (setq content-type "text/plain")) | |
43 (if (= 0 (length encoding)) (setq encoding "8bit")) | |
44 (if (listp content-type) | |
45 (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
|
46 (insert (format "Content-length: %d\r\n" (length data)) |
54695 | 47 "Content-type: " content-type "\r\n" |
48 "Content-transfer-encoding: " encoding "\r\n" | |
49 "\r\n" | |
50 (or data ""))))) | |
51 | |
52 ;;;###autoload | |
53 (defun url-cid (url) | |
54 (cond | |
55 ((fboundp 'mm-get-content-id) | |
56 ;; Using Pterodactyl Gnus or later | |
105829
328150f0cf76
* url-util.el (url-insert-entities-in-string):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100995
diff
changeset
|
57 (with-current-buffer (generate-new-buffer " *url-cid*") |
54695 | 58 (url-cid-gnus (url-filename url)))) |
59 (t | |
60 (message "Unable to handle CID URL: %s" url)))) | |
54699 | 61 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
79720
diff
changeset
|
62 ;; arch-tag: 23d9ab74-fad4-4dba-b1e7-292871e8bda5 |
57612 | 63 ;;; url-cid.el ends here |