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))) |