# HG changeset patch # User Dave Love # Date 983477828 0 # Node ID c1e752e8d2557a2e14db9db64b83cccbb67ed86a # Parent 856f9ab21ea707a4e7724c9d06e50347c9fbdd81 (mm-inhibit-file-name-handlers): Add image-file-handler. diff -r 856f9ab21ea7 -r c1e752e8d255 lisp/gnus/mm-util.el --- a/lisp/gnus/mm-util.el Thu Mar 01 19:33:02 2001 +0000 +++ b/lisp/gnus/mm-util.el Thu Mar 01 20:17:08 2001 +0000 @@ -455,7 +455,7 @@ (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 @@ (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))