aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/url/url-cookie.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/url/url-cookie.el b/lisp/url/url-cookie.el
index b0dc40475b3..0a3103264d9 100644
--- a/lisp/url/url-cookie.el
+++ b/lisp/url/url-cookie.el
@@ -94,7 +94,7 @@ i.e. 1970-1-1) are loaded as expiring one year from now instead."
94 ;; (message "skipping empty line")) 94 ;; (message "skipping empty line"))
95 ((= (length fields) 7) 95 ((= (length fields) 7)
96 (let ((dom (nth 0 fields)) 96 (let ((dom (nth 0 fields))
97 (match (nth 1 fields)) 97 ;; (match (nth 1 fields))
98 (path (nth 2 fields)) 98 (path (nth 2 fields))
99 (secure (string= (nth 3 fields) "TRUE")) 99 (secure (string= (nth 3 fields) "TRUE"))
100 ;; session cookies (expire time = 0) are supposed 100 ;; session cookies (expire time = 0) are supposed
@@ -112,7 +112,7 @@ i.e. 1970-1-1) are loaded as expiring one year from now instead."
112 s))))) 112 s)))))
113 (key (nth 5 fields)) 113 (key (nth 5 fields))
114 (val (nth 6 fields))) 114 (val (nth 6 fields)))
115 (incf n) 115 (cl-incf n)
116 ;;(message "adding <%s>=<%s> exp=<%s> dom=<%s> path=<%s> sec=%S" key val expires dom path secure) 116 ;;(message "adding <%s>=<%s> exp=<%s> dom=<%s> path=<%s> sec=%S" key val expires dom path secure)
117 (url-cookie-store key val expires dom path secure) 117 (url-cookie-store key val expires dom path secure)
118 )) 118 ))