[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-registry.el

[Miles Bader]

Index: emacs/lisp/gnus/gnus-registry.el
diff -c emacs/lisp/gnus/gnus-registry.el:1.7 
emacs/lisp/gnus/gnus-registry.el:1.8
*** emacs/lisp/gnus/gnus-registry.el:1.7        Wed Feb  9 15:50:38 2005
--- emacs/lisp/gnus/gnus-registry.el    Sat Feb 19 13:24:16 2005
***************
*** 606,612 ****
        (when gnus-registry-trim-articles-without-groups
        (unless (gnus-registry-group-count id)
          (gnus-registry-delete-id id)))
!       (gnus-registry-store-extra-entry id 'mtime (current-time)))))
  
  (defun gnus-registry-delete-id (id)
    "Delete a message ID from the registry."
--- 606,614 ----
        (when gnus-registry-trim-articles-without-groups
        (unless (gnus-registry-group-count id)
          (gnus-registry-delete-id id)))
!       ;; is this ID still in the registry?
!       (when (gethash id gnus-registry-hashtb)
!       (gnus-registry-store-extra-entry id 'mtime (current-time))))))
  
  (defun gnus-registry-delete-id (id)
    "Delete a message ID from the registry."