[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/url/url-cookie.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/url/url-cookie.el,v |
Date: |
Tue, 11 Dec 2007 05:49:10 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 07/12/11 05:49:10
Index: url-cookie.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/url/url-cookie.el,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- url-cookie.el 30 Nov 2007 08:05:38 -0000 1.25
+++ url-cookie.el 11 Dec 2007 05:49:10 -0000 1.26
@@ -119,19 +119,17 @@
(set var new)))
(defun url-cookie-write-file (&optional fname)
- (setq fname (or fname url-cookie-file))
- (unless (file-directory-p (file-name-directory fname))
- (ignore-errors (make-directory (file-name-directory fname))))
- (cond
- ((not url-cookies-changed-since-last-save) nil)
- ((not (file-writable-p fname))
- (message "Cookies file %s (see variable `url-cookie-file') is unwritable."
fname))
- (t
+ (when url-cookies-changed-since-last-save
+ (or fname (setq fname (expand-file-name url-cookie-file)))
+ (if (condition-case nil
+ (progn
+ (url-make-private-file fname)
+ nil)
+ (error t))
+ (message "Error accessing cookie file `%s'" fname)
(url-cookie-clean-up)
(url-cookie-clean-up t)
- (with-current-buffer (get-buffer-create " *cookies*")
- (erase-buffer)
- (fundamental-mode)
+ (with-temp-buffer
(insert ";; Emacs-W3 HTTP cookies file\n"
";; Automatically generated file!!! DO NOT EDIT!!!\n\n"
"(setq url-cookie-storage\n '")
@@ -144,9 +142,8 @@
";; no-byte-compile: t\n"
";; End:\n")
(set (make-local-variable 'version-control) 'never)
- (write-file fname)
- (setq url-cookies-changed-since-last-save nil)
- (kill-buffer (current-buffer))))))
+ (write-file fname))
+ (setq url-cookies-changed-since-last-save nil))))
(defun url-cookie-store (name value &optional expires domain localpart secure)
"Store a netscape-style cookie."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/url/url-cookie.el,v,
Glenn Morris <=