From: Dave Love <fx@gnu.org>
Date: Thu, 1 Mar 2001 20:17:08 +0000 (+0000)
Subject: (mm-inhibit-file-name-handlers): Add
X-Git-Tag: emacs-pretest-21.0.99~55
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=244d58bac0a04868434866e1a0d72e3ff540c257;p=emacs.git

(mm-inhibit-file-name-handlers): Add
image-file-handler.
---

diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el
index e083c052497..b788a19113b 100644
--- a/lisp/gnus/mm-util.el
+++ b/lisp/gnus/mm-util.el
@@ -455,7 +455,7 @@ Mule4 only."
     (nreverse out)))
 
 (defvar mm-inhibit-file-name-handlers
-  '(jka-compr-handler)
+  '(jka-compr-handler image-file-handler)
   "A list of handlers doing (un)compression (etc) thingies.")
 
 (defun mm-insert-file-contents (filename &optional visit beg end replace
@@ -494,6 +494,8 @@ If INHIBIT is non-nil, inhibit mm-inhibit-file-name-handlers."
   (let ((coding-system-for-write 
 	 (or codesys mm-text-coding-system-for-write 
 	     mm-text-coding-system))
+	;; Why on earth doesn't this just nullify
+	;; file-name-handler-alist?  -- fx
 	(inhibit-file-name-operation (if inhibit 
 					 'append-to-file
 				       inhibit-file-name-operation))