🚀 go-pugleaf

I use the autoinsert package. but find it irritating when I misspell an existing
file, and so get a new file with the auto-inserted contents, that the file is marked modified
and so I have to confirm the buffer deletion. The fix is of course trivial, and so here it is.

Paul Hudson 

Snail mail: Monotype ADG	Email:	...!ukc!acorn!moncam!paul
	    Science Park,		paul@moncam.co.uk
	    Milton Road,	"Sun Microsysytems:
	    Cambridge,		 The Company is Arrogant (TM)"
	    CB4 4FQ


*** /usr/local/emacs/lisp/autoinsert.el	Tue Feb 28 09:12:53 1989
--- /home/paul/emacs/autoinsert.el	Thu Mar 30 15:53:01 1989
***************
*** 81,87 ****
      (if insert-file
          (let ((file (concat auto-insert-directory insert-file)))
            (if (file-readable-p file)
!               (insert-file-contents file)
              (message "Auto-insert: file %s not found" file)
  	    (sleep-for 1))))))
  
--- 81,89 ----
      (if insert-file
          (let ((file (concat auto-insert-directory insert-file)))
            (if (file-readable-p file)
! 	      (progn
! 		(insert-file-contents file)
! 		(not-modified))
              (message "Auto-insert: file %s not found" file)
  	    (sleep-for 1))))))