Mercurial > hg > xemacs-beta
comparison lisp/gnats/send-pr.el @ 112:48d667d6f17f r20-1b8
Import from CVS: tag r20-1b8
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:20:48 +0200 |
| parents | fe104dbd9147 |
| children | 7d55a9ba150c |
comparison
equal
deleted
inserted
replaced
| 111:164ab62060bf | 112:48d667d6f17f |
|---|---|
| 62 (defvar mail-self-blind nil) | 62 (defvar mail-self-blind nil) |
| 63 (defvar mail-default-reply-to nil) | 63 (defvar mail-default-reply-to nil) |
| 64 | 64 |
| 65 (defconst send-pr::version "3.101") | 65 (defconst send-pr::version "3.101") |
| 66 | 66 |
| 67 (defvar gnats:root "" | 67 (defvar gnats:root "/usr/lib/gnats/gnats-db" |
| 68 "*The top of the tree containing the GNATS database.") | 68 "*The top of the tree containing the GNATS database.") |
| 69 | 69 |
| 70 ;;;;--------------------------------------------------------------------------- | 70 ;;;;--------------------------------------------------------------------------- |
| 71 ;;;; hooks | 71 ;;;; hooks |
| 72 ;;;;--------------------------------------------------------------------------- | 72 ;;;;--------------------------------------------------------------------------- |
| 127 (if (and ret (string-equal ret "")) (setq ret nil)) | 127 (if (and ret (string-equal ret "")) (setq ret nil)) |
| 128 (kill-buffer buf) | 128 (kill-buffer buf) |
| 129 ret)) | 129 ret)) |
| 130 | 130 |
| 131 ;; const because it must match the script's value | 131 ;; const because it must match the script's value |
| 132 (defconst send-pr:datadir (or (gnats::get-config "DATADIR") "/usr/local/share") | 132 (defconst send-pr:datadir (or (gnats::get-config "DATADIR") "/usr/share") |
| 133 "*Where the `gnats' subdirectory containing category lists lives.") | 133 "*Where the `gnats' subdirectory containing category lists lives.") |
| 134 | 134 |
| 135 (defvar send-pr::sites nil | 135 (defvar send-pr::sites nil |
| 136 "List of GNATS support sites; computed at runtime.") | 136 "List of GNATS support sites; computed at runtime.") |
| 137 (defvar send-pr:default-site | 137 (defvar send-pr:default-site |
| 138 (or (gnats::get-config "GNATS_SITE") "cygnus") | 138 (or (gnats::get-config "GNATS_SITE") "altair.xemacs.org") |
| 139 "Default site to send bugs to.") | 139 "Default site to send bugs to.") |
| 140 (defvar send-pr:::site send-pr:default-site | 140 (defvar send-pr:::site send-pr:default-site |
| 141 "The site to which a problem report is currently being submitted, or NIL | 141 "The site to which a problem report is currently being submitted, or NIL |
| 142 if using the default site (buffer local).") | 142 if using the default site (buffer local).") |
| 143 | 143 |
| 272 (error "send-pr: the GNATS site %s does not have a categories list" site)) | 272 (error "send-pr: the GNATS site %s does not have a categories list" site)) |
| 273 (t (error (buffer-substring (point-min) (point-max))))) | 273 (t (error (buffer-substring (point-min) (point-max))))) |
| 274 (save-excursion | 274 (save-excursion |
| 275 ;; Clear cruft inserted by bdamaged .cshrcs | 275 ;; Clear cruft inserted by bdamaged .cshrcs |
| 276 (goto-char 1) | 276 (goto-char 1) |
| 277 (re-search-forward "^SEND-PR:") | 277 ;; XEmacs change |
| 278 (delete-region 1 (match-beginning 0))))) | 278 (when (re-search-forward "^SEND-PR:" nil t) |
| 279 (delete-region 1 (match-beginning 0)))))) | |
| 279 (set-buffer-modified-p nil) | 280 (set-buffer-modified-p nil) |
| 280 (send-pr:send-pr-mode) | 281 (send-pr:send-pr-mode) |
| 281 (setq send-pr:::site site) | 282 (setq send-pr:::site site) |
| 282 (setq send-pr:::spawn-to-send t) | 283 (setq send-pr:::spawn-to-send t) |
| 283 (send-pr::set-categories) | 284 (send-pr::set-categories) |