971 |
(gnats-field-list-as-string))) |
(gnats-field-list-as-string))) |
972 |
(gnats-iterate-info (get gnats-server-conn 'field-list) our-field-list |
(gnats-iterate-info (get gnats-server-conn 'field-list) our-field-list |
973 |
'(lambda (field val) |
'(lambda (field val) |
974 |
|
(when val |
975 |
|
(while (string-match "\\\\n" val) |
976 |
|
(setq val (replace-match "\n" nil nil val))) |
977 |
|
(when (and (gnats-multitext-field-p field) |
978 |
|
(string-match "\\`\n" val)) |
979 |
|
(setq val (replace-match "" nil nil val)))) |
980 |
(put field 'input-default val))) |
(put field 'input-default val))) |
981 |
|
|
982 |
(setq our-field-list (gnats-send-command "LIST INITIALINPUTFIELDS")) |
(setq our-field-list (gnats-send-command "LIST INITIALINPUTFIELDS")) |
1341 |
(kill-buffer query-pr-buffer)))) |
(kill-buffer query-pr-buffer)))) |
1342 |
|
|
1343 |
;;;###autoload |
;;;###autoload |
1344 |
(defun send-pr () |
(defun send-pr (&optional arg) |
1345 |
"Generate a new initial PR template for the user." |
"Generate a new initial PR template for the user. |
1346 |
(interactive) |
If a prefix argument is given, run `gnats-change-database' first. |
1347 |
|
" |
1348 |
|
(interactive "P") |
1349 |
|
(when arg |
1350 |
|
(call-interactively 'gnats-change-database)) |
1351 |
(let ((edit-buffer (generate-new-buffer "*gnats-send*")) |
(let ((edit-buffer (generate-new-buffer "*gnats-send*")) |
1352 |
(success nil)) |
(success nil)) |
1353 |
(unwind-protect |
(unwind-protect |