From 2faae86bd7a2bb27b3bb810ff1c6eb4c5b3181b8 Mon Sep 17 00:00:00 2001
From: Chong Yidong <cyd@stupidchicken.com>
Date: Fri, 13 Apr 2007 14:52:03 +0000
Subject: (url-max-redirections): New var.

---
 lisp/url/url-vars.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lisp/url/url-vars.el b/lisp/url/url-vars.el
index 705eb94700..d0bd9a84c0 100644
--- a/lisp/url/url-vars.el
+++ b/lisp/url/url-vars.el
@@ -320,6 +320,12 @@ undefined."
   "\\`\\([-a-zA-Z0-9+.]+:\\)"
   "A regular expression that will match an absolute URL.")
 
+(defcustom url-max-redirections 30
+  "*The maximum number of redirection requests to honor in a HTTP connection.
+A negative number means to honor an unlimited number of redirection requests."
+  :type 'integer
+  :group 'url)
+
 (defcustom url-confirmation-func 'y-or-n-p
   "*What function to use for asking yes or no functions.
 Possible values are `yes-or-no-p' or `y-or-n-p', or any function that
-- 
cgit v1.2.3