[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Changes to gnats/gnats/gnats.el
From: |
Milan Zamazal |
Subject: |
Changes to gnats/gnats/gnats.el |
Date: |
Tue, 11 Dec 2001 16:36:41 -0500 |
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
- Changes to gnats/gnats/gnats.el,
Milan Zamazal <=