Changes to gnats/gnats/gnats.el

[Milan Zamazal]

Index: gnats/gnats/gnats.el
diff -c gnats/gnats/gnats.el:1.24 gnats/gnats/gnats.el:1.25
*** gnats/gnats/gnats.el:1.24   Tue Oct 16 11:05:29 2001
--- gnats/gnats/gnats.el        Tue Dec 11 16:36:41 2001
***************
*** 971,976 ****
--- 971,982 ----
                                             (gnats-field-list-as-string)))
      (gnats-iterate-info (get gnats-server-conn 'field-list) our-field-list
                        '(lambda (field val)
+                          (when val
+                            (while (string-match "\\\\n" val)
+                              (setq val (replace-match "\n" nil nil val)))
+                            (when (and (gnats-multitext-field-p field)
+                                       (string-match "\\`\n" val))
+                              (setq val (replace-match "" nil nil val))))
                           (put field 'input-default val)))
  
      (setq our-field-list (gnats-send-command "LIST INITIALINPUTFIELDS"))
***************
*** 1335,1343 ****
        (kill-buffer query-pr-buffer))))
  
  ;;;###autoload
! (defun send-pr ()
!   "Generate a new initial PR template for the user."
!   (interactive)
    (let ((edit-buffer (generate-new-buffer "*gnats-send*"))
        (success nil))
      (unwind-protect
--- 1341,1353 ----
        (kill-buffer query-pr-buffer))))
  
  ;;;###autoload
! (defun send-pr (&optional arg)
!   "Generate a new initial PR template for the user.
! If a prefix argument is given, run `gnats-change-database' first.
! "
!   (interactive "P")
!   (when arg
!     (call-interactively 'gnats-change-database))
    (let ((edit-buffer (generate-new-buffer "*gnats-send*"))
        (success nil))
      (unwind-protect