Changes to gnats/gnats/gnats.el

[Milan Zamazal]

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)