[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-cache.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-cache.el |
Date: |
Fri, 09 Dec 2005 03:58:00 -0500 |
Index: emacs/lisp/gnus/gnus-cache.el
diff -c emacs/lisp/gnus/gnus-cache.el:1.16 emacs/lisp/gnus/gnus-cache.el:1.17
*** emacs/lisp/gnus/gnus-cache.el:1.16 Sat Aug 6 19:51:41 2005
--- emacs/lisp/gnus/gnus-cache.el Fri Dec 9 08:57:57 2005
***************
*** 730,738 ****
;;;###autoload
(defun gnus-cache-rename-group (old-group new-group)
! "Rename OLD-GROUP as NEW-GROUP. Always updates the cache, even when
! disabled, as the old cache files would corrupt gnus when the cache was
! next enabled. Depends upon the caller to determine whether group renaming is
supported."
(let ((old-dir (gnus-cache-file-name old-group ""))
(new-dir (gnus-cache-file-name new-group "")))
(gnus-rename-file old-dir new-dir t))
--- 730,740 ----
;;;###autoload
(defun gnus-cache-rename-group (old-group new-group)
! "Rename OLD-GROUP as NEW-GROUP.
! Always updates the cache, even when disabled, as the old cache
! files would corrupt Gnus when the cache was next enabled. It
! depends on the caller to determine whether group renaming is
! supported."
(let ((old-dir (gnus-cache-file-name old-group ""))
(new-dir (gnus-cache-file-name new-group "")))
(gnus-rename-file old-dir new-dir t))
***************
*** 740,748 ****
(let ((no-save gnus-cache-active-hashtb))
(unless gnus-cache-active-hashtb
(gnus-cache-read-active))
! (let* ((old-group-hash-value (gnus-gethash old-group
gnus-cache-active-hashtb))
! (new-group-hash-value (gnus-gethash new-group
gnus-cache-active-hashtb))
! (delta (or old-group-hash-value
new-group-hash-value)))
(gnus-sethash new-group old-group-hash-value gnus-cache-active-hashtb)
(gnus-sethash old-group nil gnus-cache-active-hashtb)
--- 742,753 ----
(let ((no-save gnus-cache-active-hashtb))
(unless gnus-cache-active-hashtb
(gnus-cache-read-active))
! (let* ((old-group-hash-value
! (gnus-gethash old-group gnus-cache-active-hashtb))
! (new-group-hash-value
! (gnus-gethash new-group gnus-cache-active-hashtb))
! (delta
! (or old-group-hash-value new-group-hash-value)))
(gnus-sethash new-group old-group-hash-value gnus-cache-active-hashtb)
(gnus-sethash old-group nil gnus-cache-active-hashtb)
***************
*** 752,760 ****
;;;###autoload
(defun gnus-cache-delete-group (group)
! "Delete GROUP. Always updates the cache, even when
! disabled, as the old cache files would corrupt gnus when the cache was
! next enabled. Depends upon the caller to determine whether group deletion is
supported."
(let ((dir (gnus-cache-file-name group "")))
(gnus-delete-directory dir))
--- 757,767 ----
;;;###autoload
(defun gnus-cache-delete-group (group)
! "Delete GROUP from the cache.
! Always updates the cache, even when disabled, as the old cache
! files would corrupt gnus when the cache was next enabled.
! Depends upon the caller to determine whether group deletion is
! supported."
(let ((dir (gnus-cache-file-name group "")))
(gnus-delete-directory dir))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-cache.el,
Miles Bader <=