Mercurial > emacs
comparison lisp/gnus/mm-extern.el @ 63496:0be1bcd6830a
(mm-extern-local-file, mm-inline-external-body): Don't use `format' on `error'
arguments.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 16 Jun 2005 14:58:23 +0000 |
| parents | 55fd4f77387a |
| children | 18a818a2ee7c |
comparison
equal
deleted
inserted
replaced
| 63495:91a6c1b5b3c4 | 63496:0be1bcd6830a |
|---|---|
| 50 (unless name | 50 (unless name |
| 51 (error "The filename is not specified")) | 51 (error "The filename is not specified")) |
| 52 (mm-disable-multibyte) | 52 (mm-disable-multibyte) |
| 53 (if (file-exists-p name) | 53 (if (file-exists-p name) |
| 54 (mm-insert-file-contents name nil nil nil nil t) | 54 (mm-insert-file-contents name nil nil nil nil t) |
| 55 (error (format "File %s is gone" name))))) | 55 (error "File %s is gone" name)))) |
| 56 | 56 |
| 57 (defun mm-extern-url (handle) | 57 (defun mm-extern-url (handle) |
| 58 (erase-buffer) | 58 (erase-buffer) |
| 59 (let ((url (cdr (assq 'url (cdr (mm-handle-type handle))))) | 59 (let ((url (cdr (assq 'url (cdr (mm-handle-type handle))))) |
| 60 (name buffer-file-name) | 60 (name buffer-file-name) |
| 122 mm-extern-function-alist))) | 122 mm-extern-function-alist))) |
| 123 gnus-displaying-mime buf | 123 gnus-displaying-mime buf |
| 124 handles) | 124 handles) |
| 125 (unless (mm-handle-cache handle) | 125 (unless (mm-handle-cache handle) |
| 126 (unless func | 126 (unless func |
| 127 (error (format "Access type (%s) is not supported" access-type))) | 127 (error "Access type (%s) is not supported" access-type)) |
| 128 (with-temp-buffer | 128 (with-temp-buffer |
| 129 (mm-insert-part handle) | 129 (mm-insert-part handle) |
| 130 (goto-char (point-max)) | 130 (goto-char (point-max)) |
| 131 (insert "\n\n") | 131 (insert "\n\n") |
| 132 (setq handles (mm-dissect-buffer t))) | 132 (setq handles (mm-dissect-buffer t))) |