Move image files to etc/gnus.

[gnus] / lisp / mm-extern.el

diff --git a/lisp/mm-extern.el b/lisp/mm-extern.el
index 2fb535b..5e58a12 100644 (file)
--- a/lisp/mm-extern.el
+++ b/lisp/mm-extern.el
@@ -52,7 +52,7 @@
     (mm-disable-multibyte-mule4)
     (if (file-exists-p name)
        (mm-insert-file-contents name nil nil nil nil t)
-      (error "The file is gone."))))
+      (error (format "File %s is gone." name)))))
 
 (defun mm-extern-url (handle)
   (erase-buffer)
@@ -116,7 +116,10 @@ the entire message.
 If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing."
   (let* ((access-type (cdr (assq 'access-type 
                                 (cdr (mm-handle-type handle)))))
-        (func (cdr (assq (intern (downcase access-type))
+        (func (cdr (assq (intern 
+                          (downcase 
+                           (or access-type
+                               (error "Couldn't find access type."))))
                          mm-extern-function-alist)))
         gnus-displaying-mime buf
         handles)
@@ -141,7 +144,10 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing."
            (unless good
              (mm-destroy-parts handles))))
        (mm-handle-set-cache handle handles))
-      (push handles gnus-article-mime-handles))
+      (if (listp (car gnus-article-mime-handles))
+         (push handles gnus-article-mime-handles)
+       (setq gnus-article-mime-handles
+             (list handles gnus-article-mime-handles))))
     (unless no-display
       (save-excursion
        (save-restriction