gnats/13: gnats.el can't edit-pr

gnats/13: gnats.el can't edit-pr

[girgen]

>Number:         13
>Category:       gnats
>Synopsis:       gnats.el can't edit-pr
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Thu Oct 14 08:14:00 PDT 1999
>Closed-Date:
>Last-Modified:
>Originator:     Palle Girgensohn
>Release:        gnats-3.112.1
>Organization:
>Environment:
FreeBSD 3.3 RELEASE
Xemacs 21.1.7
>Description:
the emacs command edit-pr doesn't work. when trying to edit a pr, I
get:

   Wrong type argument: sequencep, 35531606

The number varies, of course :)   but the rest is the same. I get the
same reaction pressing 'e' in summ-pr as by running "M-x edit-pr". After
entering a number, I get "Wrong type..."
>How-To-Repeat:
Start emacs with gnats.el loaded. .emacs:
(autoload 'send-pr-mode "send-pr" 
          "Major mode for sending problem reports." t) 
 
(autoload 'send-pr "send-pr" 
                  "Command to create and send a problem report." t) 
 
(autoload 'edit-pr "gnats" 
                  "Command to edit a problem report." t) 
 
(autoload 'view-pr "gnats" 
                  "Command to view a problem report." t) 
 
(autoload 'gnats-mode "gnats" 
          "Major mode for editing of problem reports." t) 
 
(autoload 'query-pr "gnats" 
                  "Command to query information about problem reports."
t) 
 
(autoload 'summ-pr "gnats" 
  "Command to display a summary listing of problem reports." t) 
 
(autoload 'change-gnats "gnats" 
  "Change the GNATS database in use." t) 

;; 

(setq gnats:::types '( ("partitur" ("/usr/local/share/gnats/gnats-db"
"normal")))) 
(setq gnats:network-server "server") 
(setq gnats:userid "girgen") 
(setq gnats:password "passphrase")



run M-x edit-pr
enter a valid number.
boom!
>Fix:
The fix is simple:

the program tries to concat strings with an integer. This doesn't 
work. The int has to be converted to a string:


--- gnats-el.in.orig    Wed Nov 25 15:14:44 1998
+++ gnats-el.in Thu Oct 14 16:41:24 1999
@@ -1052,7 +1052,7 @@
            proc)
        (setq proc
              (apply 'start-process
-                    (concat " *" proc-name "-" (random t))
+                    (concat " *" proc-name "-" (int-to-string (random t)))
                     buf
                     (format (if gnats:network-server
                                 "%s/gnats/npr-edit"
>Release-Note:
>Audit-Trail:
>Unformatted: