emacs-diffs
[Top][All Lists]
Advanced

[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))
  




reply via email to

[Prev in Thread] Current Thread [Next in Thread]