* mm-url.el (mm-url-insert-file-contents): parse url only if

	results is a list.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0fecd6a..06aae03 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-03-22  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * mm-url.el (mm-url-insert-file-contents): parse url only if
+       results is a list.
+
 2003-03-22  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * mail-source.el (mail-source-fetch-imap): Revert.

diff --git a/lisp/mm-url.el b/lisp/mm-url.el
index c01bb3e..c93c14d 100644 (file)
--- a/lisp/mm-url.el
+++ b/lisp/mm-url.el
@@ -291,11 +291,10 @@ This is taken from RFC 2396.")
        (while (re-search-forward "\r 1000\r ?" nil t)
          (replace-match "")))
       (setq buffer-file-name name)
-      (if (fboundp 'url-generic-parse-url)
+      (if (and (fboundp 'url-generic-parse-url)
+              (listp result))
          (setq url-current-object (url-generic-parse-url
-                                   (if (listp result)
-                                       (car result)
-                                     result))))
+                                   (car result))))
       result)))
 
 (defun mm-url-insert-file-contents-external (url)