Changes to gnats/gnats/gnats.el

Milan Zamazal <[email protected]> Mon, 20 May 2002 08:24:49 -0400

Newsgroups	gmane.comp.bug-tracking.gnats.patches
Message-ID	<[email protected]>

Index: gnats/gnats/gnats.el
diff -c gnats/gnats/gnats.el:1.31 gnats/gnats/gnats.el:1.32
*** gnats/gnats/gnats.el:1.31	Wed May 15 13:25:46 2002
--- gnats/gnats/gnats.el	Mon May 20 08:24:49 2002
***************
*** 1301,1309 ****
  	   (query-pr-buffer
  	    (generate-new-buffer " *gnats-query-pr*"))
  	   (query-pr-res
! 	    (apply 'call-process
! 		   "query-pr" nil query-pr-buffer nil "--print-server-addr"
! 		              query-args)))
        (if query-pr-res
  	  (let ((buffer-contents (save-excursion
  				   (set-buffer query-pr-buffer)
--- 1301,1311 ----
  	   (query-pr-buffer
  	    (generate-new-buffer " *gnats-query-pr*"))
  	   (query-pr-res
! 	    (if (and server (not (string-match "^/" server)))
! 		(apply 'call-process
! 		       "query-pr" nil query-pr-buffer nil "--print-server-addr"
! 		       query-args)
! 	      (getenv "GNATSDB"))))
        (if query-pr-res
  	  (let ((buffer-contents (save-excursion
  				   (set-buffer query-pr-buffer)