diff --git a/auctex-11.85-preview.dif b/auctex-11.85-preview.dif
index 261d46b..16fbe27 100644
--- a/auctex-11.85-preview.dif
+++ b/auctex-11.85-preview.dif
@@ -1,44 +1,48 @@
 --- preview/preview.el
-+++ preview/preview.el	2010-07-21 13:48:25.830924999 +0200
-@@ -233,7 +233,7 @@ method, like when PDFTeX was used."
- 		       (symbol :tag "Emacs image-type")
- 		       (repeat :inline t :tag "Ghostscript options" string))))
- 
--(defcustom preview-image-type 'png
-+(defcustom preview-image-type 'dvipng
-   "*Image type to be used in images."
-   :group 'preview-gs
-   :type (append '(choice)
-@@ -682,29 +682,31 @@ Gets the usual PROCESS and STRING parame
++++ preview/preview.el	2010-08-11 16:57:59.429024953 +0000
+@@ -682,29 +682,43 @@ Gets the usual PROCESS and STRING parame
        (setq preview-gs-sequence (list 1)))
      (setcdr preview-gs-sequence 1)
      (let* ((process-connection-type nil)
 -	   (outfile (format "-dOutputFile=%s"
 -			    (preview-ps-quote-filename
-+	   (inputdir (format "-I%s/" (car TeX-active-tempdir)))
++	   (file (if (consp (car preview-ps-file))
++		     (if (consp (caar preview-ps-file))
++			 (car (last (caar preview-ps-file)))
++		       (caar preview-ps-file))
++		   (car preview-ps-file)))
 +	   (outfile (format "-sOutputFile=%s"
  			     (format "%s/pr%d-%%d.%s"
  				     (car TeX-active-tempdir)
  				     (car preview-gs-sequence)
 -				     preview-gs-image-type))))
 +				     preview-gs-image-type)))
++	   (command-line
++	    (append
++	     ; First replace SAFER by DELAYSAFER, we then allow reading
++	     ; the preview file and after this switch over to SAFER mode
++	     ; by using the .locksafe operator
++	     (list "-dDELAYSAFER")
++	     (remove "-dSAFER" preview-gs-command-line)
++	     (list "-c"
++		   (format "<</PermitFileReading[%s]>> setuserparams .locksafe"
++			   (preview-ps-quote-filename file t)))))
  	   (process
  	    (apply #'start-process
  		   "Preview-Ghostscript"
  		   (current-buffer)
  		   preview-gs-command
  		   outfile
-+		   inputdir
- 		   preview-gs-command-line)))
+-		   preview-gs-command-line)))
++		   command-line)))
        (goto-char (point-max))
        (insert-before-markers "Running `Preview-Ghostscript' with ``"
  			     (mapconcat #'shell-quote-argument
  					(append
  					 (list preview-gs-command
--					       outfile)
-+					       outfile
-+					       inputdir)
- 					 preview-gs-command-line)
+ 					       outfile)
+-					 preview-gs-command-line)
++					 command-line)
  					" ") "''\n")
        (setq preview-gs-answer "")
 -      (process-kill-without-query process)
@@ -46,7 +50,7 @@
        (set-process-sentinel process #'preview-gs-sentinel)
        (set-process-filter process #'preview-gs-filter)
        (process-send-string process preview-gs-init-string)
-@@ -1075,7 +1077,7 @@ NONREL is not NIL."
+@@ -1075,7 +1089,7 @@ NONREL is not NIL."
      (setq preview-gs-init-string
  	  (concat preview-gs-init-string
  		  (format "[%s(r)file]aload exch %s .runandhide aload pop "
@@ -55,7 +59,7 @@
  			  (preview-gs-dsc-cvx 0 preview-gs-dsc))))))
  
  (defun preview-gs-urgentize (ov buff)
-@@ -1163,7 +1165,7 @@ Try \\[ps-shell] and \\[ps-execute-buffe
+@@ -1163,7 +1177,7 @@ Try \\[ps-shell] and \\[ps-execute-buffe
    "Make an eps error flag in overlay OV for ERR string."
    (let* ((filenames (overlay-get ov 'filenames))
  	 (file (car (nth 0 filenames)))
diff --git a/emacs-auctex.changes b/emacs-auctex.changes
index 1cfa6e3..f2d3700 100644
--- a/emacs-auctex.changes
+++ b/emacs-auctex.changes
@@ -1,3 +1,8 @@
+-------------------------------------------------------------------
+Wed Aug 11 18:58:43 CEST 2010 - werner@suse.de
+
+- Make fix for bnc#623719 more flexible
+
 -------------------------------------------------------------------
 Sun Jul 25 07:20:32 UTC 2010 - aj@suse.de