Mercurial > hg > xemacs-beta

comparison lisp/package-get.el @ 1368:1aba3abebad6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-03-21 01:19:37 by adrian] [PATCH] xemacs-21.5: Contribute my mirror site updates to package-get.el <65qdvb1e.fsf@smtprelay.T-Online.De>
author adrian
date Fri, 21 Mar 2003 01:19:37 +0000
parents 02909207294a
children d638fc15d68b
comparison
equal deleted inserted replaced
1367:0d3e4cac5769 1368:1aba3abebad6
184 184
185 ;;;###autoload 185 ;;;###autoload
186 (defcustom package-get-download-sites 186 (defcustom package-get-download-sites
187 '( 187 '(
188 ;; Main XEmacs Site (ftp.xemacs.org) 188 ;; Main XEmacs Site (ftp.xemacs.org)
189 ("US (Main XEmacs Site)" 189 ("US (Main XEmacs Site)"
190 "ftp.xemacs.org" "pub/xemacs/packages") 190 "ftp.xemacs.org" "pub/xemacs/packages")
191 ;; In alphabetical order of Country, our mirrors... 191 ;; In alphabetical order of Country, our mirrors...
192 ("Australia (aarnet.edu.au)" "mirror.aarnet.edu.au" "pub/xemacs/packages") 192 ("Australia (aarnet.edu.au)" "mirror.aarnet.edu.au" "pub/xemacs/packages")
193 ("Australia (au.xemacs.org)" "ftp.au.xemacs.org" "pub/xemacs/packages") 193 ("Australia (au.xemacs.org)" "ftp.au.xemacs.org" "pub/xemacs/packages")
194 ("Austria (at.xemacs.org)" "ftp.at.xemacs.org" "editors/xemacs/packages") 194 ("Austria (at.xemacs.org)" "ftp.at.xemacs.org" "editors/xemacs/packages")
195 ("Belgium (be.xemacs.org)" "ftp.be.xemacs.org" "xemacs/packages") 195 ("Belgium (be.xemacs.org)" "ftp.be.xemacs.org" "xemacs/packages")
196 ("Brazil (br.xemacs.org)" "ftp.br.xemacs.org" "pub/xemacs/packages") 196 ("Brazil (br.xemacs.org)" "ftp.br.xemacs.org" "pub/xemacs/packages")
197 ("Canada (ca.xemacs.org)" "ftp.ca.xemacs.org" "pub/Mirror/xemacs/packages") 197 ("Canada (ca.xemacs.org)" "ftp.ca.xemacs.org" "pub/Mirror/xemacs/packages")
198 ("Canada (crc.ca)" "ftp.crc.ca" "pub/packages/editors/xemacs/packages") 198 ("Canada (crc.ca)" "ftp.crc.ca" "pub/packages/editors/xemacs/packages")
199 ("Canada (ualberta.ca)" "sunsite.ualberta.ca" "pub/Mirror/xemacs/packages")
199 ("Czech Republic (cz.xemacs.org)" "ftp.cz.xemacs.org" "MIRRORS/ftp.xemacs.org/pub/xemacs/packages") 200 ("Czech Republic (cz.xemacs.org)" "ftp.cz.xemacs.org" "MIRRORS/ftp.xemacs.org/pub/xemacs/packages")
200 ("Denmark (dk.xemacs.org)" "ftp.dk.xemacs.org" "pub/emacs/xemacs/packages") 201 ("Denmark (dk.xemacs.org)" "ftp.dk.xemacs.org" "pub/emacs/xemacs/packages")
201 ("Finland (fi.xemacs.org)" "ftp.fi.xemacs.org" "pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/packages") 202 ("Finland (fi.xemacs.org)" "ftp.fi.xemacs.org" "pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/packages")
202 ("France (fr.xemacs.org)" "ftp.fr.xemacs.org" "pub/xemacs/packages") 203 ("France (fr.xemacs.org)" "ftp.fr.xemacs.org" "pub/xemacs/packages")
204 ("France (mirror.cict.fr)" "mirror.cict.fr" "xemacs/packages")
203 ("France (pasteur.fr)" "ftp.pasteur.fr" "pub/computing/xemacs/packages") 205 ("France (pasteur.fr)" "ftp.pasteur.fr" "pub/computing/xemacs/packages")
204 ("Germany (de.xemacs.org)" "ftp.de.xemacs.org" "pub/ftp.xemacs.org/tux/xemacs/packages") 206 ("Germany (de.xemacs.org)" "ftp.de.xemacs.org" "pub/ftp.xemacs.org/tux/xemacs/packages")
205 ("Germany (tu-darmstadt.de)" "ftp.tu-darmstadt.de" "pub/editors/xemacs/packages") 207 ("Germany (tu-darmstadt.de)" "ftp.tu-darmstadt.de" "pub/editors/xemacs/packages")
206 ("Ireland (ie.xemacs.org)" "ftp.ie.xemacs.org" "mirrors/ftp.xemacs.org/pub/xemacs/packages") 208 ("Ireland (ie.xemacs.org)" "ftp.ie.xemacs.org" "mirrors/ftp.xemacs.org/pub/xemacs/packages")
207 ("Italy (it.xemacs.org)" "ftp.it.xemacs.org" "unix/packages/XEMACS/packages") 209 ("Italy (it.xemacs.org)" "ftp.it.xemacs.org" "unix/packages/XEMACS/packages")
211 ("Japan (jaist.ac.jp)" "ftp.jaist.ac.jp" "pub/GNU/xemacs/packages") 213 ("Japan (jaist.ac.jp)" "ftp.jaist.ac.jp" "pub/GNU/xemacs/packages")
212 ("Japan (jp.xemacs.org)" "ftp.jp.xemacs.org" "pub/GNU/xemacs/packages") 214 ("Japan (jp.xemacs.org)" "ftp.jp.xemacs.org" "pub/GNU/xemacs/packages")
213 ("Japan (nucba.ac.jp)" "mirror.nucba.ac.jp" "mirror/xemacs/packages") 215 ("Japan (nucba.ac.jp)" "mirror.nucba.ac.jp" "mirror/xemacs/packages")
214 ("Japan (sut.ac.jp)" "sunsite.sut.ac.jp" "pub/archives/packages/xemacs/packages") 216 ("Japan (sut.ac.jp)" "sunsite.sut.ac.jp" "pub/archives/packages/xemacs/packages")
215 ("Korea (kr.xemacs.org))" "ftp.kr.xemacs.org" "pub/tools/emacs/xemacs/packages") 217 ("Korea (kr.xemacs.org))" "ftp.kr.xemacs.org" "pub/tools/emacs/xemacs/packages")
218 ("New Zealand (nz.xemacs.org)" "ftp.nz.xemacs.org" "mirror/ftp.xemacs.org/packages")
216 ("Norway (no.xemacs.org)" "ftp.no.xemacs.org" "pub/xemacs/packages") 219 ("Norway (no.xemacs.org)" "ftp.no.xemacs.org" "pub/xemacs/packages")
217 ("Poland (pl.xemacs.org)" "ftp.pl.xemacs.org" "pub/unix/editors/xemacs/packages") 220 ("Poland (pl.xemacs.org)" "ftp.pl.xemacs.org" "pub/unix/editors/xemacs/packages")
218 ("Russia (ru.xemacs.org)" "ftp.ru.xemacs.org" "pub/xemacs/packages") 221 ("Russia (ru.xemacs.org)" "ftp.ru.xemacs.org" "pub/xemacs/packages")
219 ("Slovakia (sk.xemacs.org)" "ftp.sk.xemacs.org" "pub/mirrors/xemacs/packages") 222 ("Slovakia (sk.xemacs.org)" "ftp.sk.xemacs.org" "pub/mirrors/xemacs/packages")
220 ("South Africa (za.xemacs.org)" "ftp.za.xemacs.org" "mirrorsites/ftp.xemacs.org/packages") 223 ("South Africa (za.xemacs.org)" "ftp.za.xemacs.org" "mirrorsites/ftp.xemacs.org/packages")
221 ("Sweden (se.xemacs.org)" "ftp.se.xemacs.org" "pub/gnu/xemacs/packages") 224 ("Sweden (se.xemacs.org)" "ftp.se.xemacs.org" "pub/gnu/xemacs/packages")
222 ("Switzerland (ch.xemacs.org)" "ftp.ch.xemacs.org" "mirror/xemacs/packages") 225 ("Switzerland (ch.xemacs.org)" "ftp.ch.xemacs.org" "mirror/xemacs/packages")
223 ("UK (uk.xemacs.org)" "ftp.uk.xemacs.org" "sites/ftp.xemacs.org/pub/xemacs/packages") 226 ("UK (uk.xemacs.org)" "ftp.uk.xemacs.org" "sites/ftp.xemacs.org/pub/xemacs/packages")
224 ("US (ibiblio.org)" "ibiblio.org" "pub/packages/editors/xemacs/packages") 227 ("US (ibiblio.org)" "ibiblio.org" "pub/packages/editors/xemacs/packages")
225 ("US (stealth.net)" "ftp.stealth.net" "pub/mirrors/ftp.xemacs.org/pub/xemacs/packages") 228 ("US (stealth.net)" "ftp.stealth.net" "pub/mirrors/ftp.xemacs.org/pub/xemacs/packages")
226 ("US (us.xemacs.org)" "ftp.us.xemacs.org" "pub/xemacs/packages")) 229 ("US (unc.edu)" "metalab.unc.edu" "pub/packages/editors/xemacs/packages")
230 ("US (us.xemacs.org)" "ftp.us.xemacs.org" "pub/xemacs/packages")
231 ("US (utk.edu)" "ftp.sunsite.utk.edu" "pub/xemacs/packages")
232 )
227 "*List of remote sites available for downloading packages. 233 "*List of remote sites available for downloading packages.
228 List format is '(site-description site-name directory-on-site). 234 List format is '(site-description site-name directory-on-site).
229 SITE-DESCRIPTION is a textual description of the site. SITE-NAME 235 SITE-DESCRIPTION is a textual description of the site. SITE-NAME
230 is the internet address of the download site. DIRECTORY-ON-SITE 236 is the internet address of the download site. DIRECTORY-ON-SITE
231 is the directory on the site in which packages may be found. 237 is the directory on the site in which packages may be found.
237 243
238 ;;;###autoload 244 ;;;###autoload
239 (defcustom package-get-pre-release-download-sites 245 (defcustom package-get-pre-release-download-sites
240 '( 246 '(
241 ;; Main XEmacs Site (ftp.xemacs.org) 247 ;; Main XEmacs Site (ftp.xemacs.org)
242 ("Pre-Releases (Main XEmacs Site)" "ftp.xemacs.org" 248 ("Pre-Releases (Main XEmacs Site)" "ftp.xemacs.org"
243 "pub/xemacs/beta/experimental/packages") 249 "pub/xemacs/beta/experimental/packages")
244 ;; In alphabetical order of Country, our mirrors... 250 ;; In alphabetical order of Country, our mirrors...
245 ("Australia Pre-Releases (aarnet.edu.au)" "mirror.aarnet.edu.au" 251 ("Australia Pre-Releases (aarnet.edu.au)" "mirror.aarnet.edu.au"
246 "pub/xemacs/beta/experimental/packages") 252 "pub/xemacs/beta/experimental/packages")
247 ("Australia Pre-Releases (au.xemacs.org)" "ftp.au.xemacs.org" 253 ("Australia Pre-Releases (au.xemacs.org)" "ftp.au.xemacs.org"
248 "pub/xemacs/beta/experimental/packages") 254 "pub/xemacs/beta/experimental/packages")
249 ("Austria Pre-Releases (at.xemacs.org)" "ftp.at.xemacs.org" 255 ("Austria Pre-Releases (at.xemacs.org)" "ftp.at.xemacs.org"
250 "editors/xemacs/beta/experimentsl/packages") 256 "editors/xemacs/beta/experimentsl/packages")
251 ("Brazil Pre-Releases (br.xemacs.org)" "ftp.br.xemacs.org" 257 ("Brazil Pre-Releases (br.xemacs.org)" "ftp.br.xemacs.org"
252 "pub/xemacs/xemacs-21.5/experimental/packages") 258 "pub/xemacs/xemacs-21.5/experimental/packages")
253 ("Canada Pre-Releases (ca.xemacs.org)" "ftp.ca.xemacs.org" 259 ("Canada Pre-Releases (ca.xemacs.org)" "ftp.ca.xemacs.org"
254 "pub/Mirror/xemacs/beta/experimental/packages") 260 "pub/Mirror/xemacs/beta/experimental/packages")
255 ("Canada Pre-Releases (crc.ca)" "ftp.crc.ca" 261 ("Canada Pre-Releases (crc.ca)" "ftp.crc.ca"
256 "pub/packages/editors/xemacs/beta/experimental/packages") 262 "pub/packages/editors/xemacs/beta/experimental/packages")
257 ("Czech Republic Pre-Releases (cz.xemacs.org)" "ftp.cz.xemacs.org" 263 ("Canada Pre-Releases (ualberta.ca)" "sunsite.ualberta.ca"
264 "pub/Mirror/xemacs/beta/experimental/packages")
265 ("Czech Republic Pre-Releases (cz.xemacs.org)" "ftp.cz.xemacs.org"
258 "MIRRORS/ftp.xemacs.org/pub/xemacs/xemacs-21.5/experimental/packages") 266 "MIRRORS/ftp.xemacs.org/pub/xemacs/xemacs-21.5/experimental/packages")
259 ("Denmark Pre-Releases (dk.xemacs.org)" "ftp.dk.xemacs.org" 267 ("Denmark Pre-Releases (dk.xemacs.org)" "ftp.dk.xemacs.org"
260 "pub/emacs/xemacs/beta/experimental/packages") 268 "pub/emacs/xemacs/beta/experimental/packages")
261 ("Finland Pre-Releases (fi.xemacs.org)" "ftp.fi.xemacs.org" 269 ("Finland Pre-Releases (fi.xemacs.org)" "ftp.fi.xemacs.org"
262 "pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/beta/experimental/packages") 270 "pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/beta/experimental/packages")
263 ("France Pre-Releases (fr.xemacs.org)" "ftp.fr.xemacs.org" 271 ("France Pre-Releases (fr.xemacs.org)" "ftp.fr.xemacs.org"
264 "pub/xemacs/beta/experimental/packages") 272 "pub/xemacs/beta/experimental/packages")
265 ("France Pre-Releases (pasteur.fr)" "ftp.pasteur.fr" 273 ("France Pre-Releases (mirror.cict.fr)" "mirror.cict.fr"
274 "xemacs/beta/experimental/packages")
275 ("France Pre-Releases (pasteur.fr)" "ftp.pasteur.fr"
266 "pub/computing/xemacs/beta/experimental/packages") 276 "pub/computing/xemacs/beta/experimental/packages")
267 ("Germany Pre-Releases (de.xemacs.org)" "ftp.de.xemacs.org" 277 ("Germany Pre-Releases (de.xemacs.org)" "ftp.de.xemacs.org"
268 "pub/ftp.xemacs.org/tux/xemacs/beta/experimental/packages") 278 "pub/ftp.xemacs.org/tux/xemacs/beta/experimental/packages")
269 ("Germany Pre-Releases (tu-darmstadt.de)" "ftp.tu-darmstadt.de" 279 ("Germany Pre-Releases (tu-darmstadt.de)" "ftp.tu-darmstadt.de"
270 "pub/editors/xemacs/beta/experimental/packages") 280 "pub/editors/xemacs/beta/experimental/packages")
271 ("Ireland Pre-Releases (ie.xemacs.org)" "ftp.ie.xemacs.org" 281 ("Ireland Pre-Releases (ie.xemacs.org)" "ftp.ie.xemacs.org"
272 "mirrors/ftp.xemacs.org/pub/xemacs/beta/experimental/packages") 282 "mirrors/ftp.xemacs.org/pub/xemacs/beta/experimental/packages")
273 ("Italy Pre-Releases (it.xemacs.org)" "ftp.it.xemacs.org" 283 ("Italy Pre-Releases (it.xemacs.org)" "ftp.it.xemacs.org"
274 "unix/packages/XEMACS/beta/experimental/packages") 284 "unix/packages/XEMACS/beta/experimental/packages")
275 ("Japan Pre-Releases (aist.go.jp)" "ring.aist.go.jp" 285 ("Japan Pre-Releases (aist.go.jp)" "ring.aist.go.jp"
276 "pub/text/xemacs/beta/experimental/packages") 286 "pub/text/xemacs/beta/experimental/packages")
277 ("Japan Pre-Releases (asahi-net.or.jp)" "ring.asahi-net.or.jp" 287 ("Japan Pre-Releases (asahi-net.or.jp)" "ring.asahi-net.or.jp"
278 "pub/text/xemacs/beta/experimental/packages") 288 "pub/text/xemacs/beta/experimental/packages")
279 ("Japan Pre-Releases (dti.ad.jp)" "ftp.dti.ad.jp" 289 ("Japan Pre-Releases (dti.ad.jp)" "ftp.dti.ad.jp"
280 "pub/unix/editor/xemacs/beta/experimental/packages") 290 "pub/unix/editor/xemacs/beta/experimental/packages")
281 ("Japan Pre-Releases (jaist.ac.jp)" "ftp.jaist.ac.jp" 291 ("Japan Pre-Releases (jaist.ac.jp)" "ftp.jaist.ac.jp"
282 "pub/GNU/xemacs/beta/experimental/packages") 292 "pub/GNU/xemacs/beta/experimental/packages")
283 ("Japan Pre-Releases (jp.xemacs.org)" "ftp.jp.xemacs.org" 293 ("Japan Pre-Releases (jp.xemacs.org)" "ftp.jp.xemacs.org"
284 "pub/GNU/xemacs/beta/experimental/packages") 294 "pub/GNU/xemacs/beta/experimental/packages")
285 ("Japan Pre-Releases (sut.ac.jp)" "sunsite.sut.ac.jp" 295 ("Japan Pre-Releases (sut.ac.jp)" "sunsite.sut.ac.jp"
286 "pub/archives/packages/xemacs/xemacs-21.5/experimental/packages") 296 "pub/archives/packages/xemacs/xemacs-21.5/experimental/packages")
287 ("Norway Pre-Releases (no.xemacs.org)" "ftp.no.xemacs.org" 297 ("New Zealand Pre-Releases (nz.xemacs.org)" "ftp.nz.xemacs.org" "mirror/ftp.xemacs.org/packages")
298 ("Norway Pre-Releases (no.xemacs.org)" "ftp.no.xemacs.org"
288 "pub/xemacs/beta/experimental/packages") 299 "pub/xemacs/beta/experimental/packages")
289 ("Poland Pre-Releases (pl.xemacs.org)" "ftp.pl.xemacs.org" 300 ("Poland Pre-Releases (pl.xemacs.org)" "ftp.pl.xemacs.org"
290 "pub/unix/editors/xemacs/beta/experimental/packages") 301 "pub/unix/editors/xemacs/beta/experimental/packages")
291 ("Russia Pre-Releases (ru.xemacs.org)" "ftp.ru.xemacs.org" 302 ("Russia Pre-Releases (ru.xemacs.org)" "ftp.ru.xemacs.org"
292 "pub/xemacs/beta/experimental/packages") 303 "pub/xemacs/beta/experimental/packages")
293 ("Saudi Arabia Pre-Releases (sa.xemacs.org)" "ftp.sa.xemacs.org" 304 ("Saudi Arabia Pre-Releases (sa.xemacs.org)" "ftp.sa.xemacs.org"
294 "pub/mirrors/ftp.xemacs.org/xemacs/xemacs-21.5/experimental/packages") 305 "pub/mirrors/ftp.xemacs.org/xemacs/xemacs-21.5/experimental/packages")
295 ("Slovakia Pre-Releases (sk.xemacs.org)" "ftp.sk.xemacs.org" 306 ("Slovakia Pre-Releases (sk.xemacs.org)" "ftp.sk.xemacs.org"
296 "pub/mirrors/xemacs/beta/experimental/packages") 307 "pub/mirrors/xemacs/beta/experimental/packages")
297 ("South Africa Pre-Releases (za.xemacs.org)" "ftp.za.xemacs.org" 308 ("South Africa Pre-Releases (za.xemacs.org)" "ftp.za.xemacs.org"
298 "mirrorsites/ftp.xemacs.org/beta/experimental/packages") 309 "mirrorsites/ftp.xemacs.org/beta/experimental/packages")
299 ("Sweden Pre-Releases (se.xemacs.org)" "ftp.se.xemacs.org" 310 ("Sweden Pre-Releases (se.xemacs.org)" "ftp.se.xemacs.org"
300 "pub/gnu/xemacs/beta/experimental/packages") 311 "pub/gnu/xemacs/beta/experimental/packages")
301 ("Switzerland Pre-Releases (ch.xemacs.org)" "ftp.ch.xemacs.org" 312 ("Switzerland Pre-Releases (ch.xemacs.org)" "ftp.ch.xemacs.org"
302 "mirror/xemacs/beta/experimental/packages") 313 "mirror/xemacs/beta/experimental/packages")
303 ("UK Pre-Releases (uk.xemacs.org)" "ftp.uk.xemacs.org" 314 ("UK Pre-Releases (uk.xemacs.org)" "ftp.uk.xemacs.org"
304 "sites/ftp.xemacs.org/pub/xemacs/beta/experimental/packages") 315 "sites/ftp.xemacs.org/pub/xemacs/beta/experimental/packages")
305 ("US Pre-Releases (ibiblio.org)" "ibiblio.org" 316 ("US Pre-Releases (ibiblio.org)" "ibiblio.org"
306 "pub/packages/editors/xemacs/beta/experimental/packages") 317 "pub/packages/editors/xemacs/beta/experimental/packages")
307 ("US Pre-Releases (stealth.net)" "ftp.stealth.net" 318 ("US Pre-Releases (stealth.net)" "ftp.stealth.net"
308 "pub/mirrors/ftp.xemacs.org/pub/xemacs/beta/experimental/packages") 319 "pub/mirrors/ftp.xemacs.org/pub/xemacs/beta/experimental/packages")
309 ("US Pre-Releases (us.xemacs.org)" "ftp.us.xemacs.org" 320 ("US Pre-Releases (unc.edu)" "metalab.unc.edu"
321 "pub/packages/editors/xemacs/beta/experimental/packages")
322 ("US Pre-Releases (us.xemacs.org)" "ftp.us.xemacs.org"
323 "pub/xemacs/beta/experimental/packages")
324 ("US Pre-Releases (utk.edu)" "ftp.sunsite.utk.edu"
310 "pub/xemacs/beta/experimental/packages")) 325 "pub/xemacs/beta/experimental/packages"))
311 "*List of remote sites available for downloading \"Pre-Release\" packages. 326 "*List of remote sites available for downloading \"Pre-Release\" packages.
312 List format is '(site-description site-name directory-on-site). 327 List format is '(site-description site-name directory-on-site).
313 SITE-DESCRIPTION is a textual description of the site. SITE-NAME 328 SITE-DESCRIPTION is a textual description of the site. SITE-NAME
314 is the internet address of the download site. DIRECTORY-ON-SITE 329 is the internet address of the download site. DIRECTORY-ON-SITE
488 (when (re-search-forward package-get-pgp-signature-begin-line nil t) 503 (when (re-search-forward package-get-pgp-signature-begin-line nil t)
489 (setq content-end (match-beginning 0)) 504 (setq content-end (match-beginning 0))
490 (setq package-entries-are-signed t)) 505 (setq package-entries-are-signed t))
491 (re-search-forward package-get-pgp-signature-end-line nil t) 506 (re-search-forward package-get-pgp-signature-end-line nil t)
492 (setq package-get-continue-update-base t) 507 (setq package-get-continue-update-base t)
493 (if package-get-require-signed-base-updates 508 (if package-get-require-signed-base-updates
494 (if package-entries-are-signed 509 (if package-entries-are-signed
495 (if (featurep 'mailcrypt-autoloads) 510 (if (featurep 'mailcrypt-autoloads)
496 (progn 511 (progn
497 (setq package-get-continue-update-base nil) 512 (setq package-get-continue-update-base nil)
498 (autoload 'mc-setversion "mc-setversion") 513 (autoload 'mc-setversion "mc-setversion")
508 ((locate-file "pgp" exec-path 523 ((locate-file "pgp" exec-path
509 '("" ".btm" ".bat" ".cmd" ".exe" 524 '("" ".btm" ".bat" ".cmd" ".exe"
510 ".com") 'executable) 525 ".com") 'executable)
511 (mc-setversion "2.6")) 526 (mc-setversion "2.6"))
512 (t 527 (t
513 (error 'search-failed 528 (error 'search-failed
514 "Can't find a suitable PGP executable")))) 529 "Can't find a suitable PGP executable"))))
515 (autoload 'mc-verify "mc-toplev") 530 (autoload 'mc-verify "mc-toplev")
516 (declare-fboundp (mc-verify)) 531 (declare-fboundp (mc-verify))
517 (setq package-get-continue-update-base t)) 532 (setq package-get-continue-update-base t))
518 (error 'unimplemented "`mailcrypt' package unavailable")) 533 (error 'unimplemented "`mailcrypt' package unavailable"))
743 (if (let ((dirs load-path)) 758 (if (let ((dirs load-path))
744 (catch 'done 759 (catch 'done
745 (while dirs 760 (while dirs
746 (if (string-equal (car dirs) lispdir) 761 (if (string-equal (car dirs) lispdir)
747 (throw 'done nil)) 762 (throw 'done nil))
748 (setq dirs (cdr dirs))) 763 (setq dirs (cdr dirs)))
749 t)) 764 t))
750 (setq load-path (cons lispdir load-path))) 765 (setq load-path (cons lispdir load-path)))
751 (if (not (package-get-load-package-file lispdir "auto-autoloads")) 766 (if (not (package-get-load-package-file lispdir "auto-autoloads"))
752 (package-get-load-package-file lispdir "_pkg")) 767 (package-get-load-package-file lispdir "_pkg"))
753 t) 768 t)
859 (error "No download site or local package location specified."))) 874 (error "No download site or local package location specified.")))
860 (if (null base-filename) 875 (if (null base-filename)
861 (error "No filename associated with package %s, version %s" 876 (error "No filename associated with package %s, version %s"
862 package version)) 877 package version))
863 (setq install-dir 878 (setq install-dir
864 (package-admin-get-install-dir 879 (package-admin-get-install-dir
865 package install-dir 880 package install-dir
866 (equal (package-get-info package 'category) "mule"))) 881 (equal (package-get-info package 'category) "mule")))
867 882
868 ;; If they asked for the latest using version=nil, don't get an older 883 ;; If they asked for the latest using version=nil, don't get an older
869 ;; version than we already have. 884 ;; version than we already have.
955 (if (not (string= (md5 (current-buffer)) 970 (if (not (string= (md5 (current-buffer))
956 (package-get-info-prop this-package 971 (package-get-info-prop this-package
957 'md5sum))) 972 'md5sum)))
958 (progn 973 (progn
959 (delete-file full-package-filename) 974 (delete-file full-package-filename)
960 (error "Package %s does not match md5 checksum %s has been deleted" 975 (error "Package %s does not match md5 checksum %s has been deleted"
961 base-filename full-package-filename)))) 976 base-filename full-package-filename))))
962 977
963 (package-admin-delete-binary-package package install-dir) 978 (package-admin-delete-binary-package package install-dir)
964 979
965 (message "Installing package `%s' ..." package) (sit-for 0) 980 (message "Installing package `%s' ..." package) (sit-for 0)
1088 some built in variables. For now, use packages-package-list." 1103 some built in variables. For now, use packages-package-list."
1089 ;; Use packages-package-list which contains name and version 1104 ;; Use packages-package-list which contains name and version
1090 (equal (plist-get 1105 (equal (plist-get
1091 (package-get-info-find-package packages-package-list 1106 (package-get-info-find-package packages-package-list
1092 package) ':version) 1107 package) ':version)
1093 (if (floatp version) 1108 (if (floatp version)
1094 version 1109 version
1095 (string-to-number version)))) 1110 (string-to-number version))))
1096 1111
1097 ;;;###autoload 1112 ;;;###autoload
1098 (defun package-get-package-provider (sym &optional force-current) 1113 (defun package-get-package-provider (sym &optional force-current)
1099 "Search for a package that provides SYM and return the name and 1114 "Search for a package that provides SYM and return the name and