[gnus git] branch master updated: =1= Don't try to update the group status is the group clearly is unreachable.

       via  083ce137ac32b948eeb751d7947114d37433168f (commit)
      from  bc3020ecabd6e1e9702411d0e89aa9760b43b9e0 (commit)


- Log -----------------------------------------------------------------
commit 083ce137ac32b948eeb751d7947114d37433168f
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Sun Jan 2 07:05:22 2011 +0100

    Don't try to update the group status is the group clearly is unreachable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6e063b4..1cf1c44 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-01-02  Lars Magne Ingebrigtsen  <[email protected]>
 
+	* gnus-group.el (gnus-group-kill-group): Don't try to update the group
+	status is the group clearly is unreachable.
+
 	* auth-source.el (auth-source-create): Add the optional second
 	parameter to `local-variable-p' to be compatible with XEmacs.
 
diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 9ce4f86..2044d57 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -1,7 +1,8 @@
 ;;; gnus-group.el --- group mode commands for Gnus
 
 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+;;   2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software
+;;   Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <[email protected]>
 ;; Keywords: news
@@ -3790,7 +3791,8 @@ of groups killed."
 		  gnus-list-of-killed-groups))
 	  (gnus-group-change-level
 	   (if entry entry group) gnus-level-killed (if entry nil level))
-	  (gnus-request-update-group-status group 'unsubscribe)
+	  (when (numberp (gnus-group-unread group))
+	    (gnus-request-update-group-status group 'unsubscribe))
 	  (message "Killed group %s" (gnus-group-decoded-name group)))
       ;; If there are lots and lots of groups to be killed, we use
       ;; this thing instead.
@@ -3814,7 +3816,8 @@ of groups killed."
 	;; There may be more than one instance displayed.
 	(while (gnus-group-goto-group group)
 	  (gnus-delete-line))
-	(gnus-request-update-group-status group 'unsubscribe))
+	(when (numberp (gnus-group-unread group))
+	  (gnus-request-update-group-status group 'unsubscribe)))
       (gnus-make-hashtable-from-newsrc-alist))
 
     (gnus-group-position-point)

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog     |    3 +++
 lisp/gnus-group.el |    9 ++++++---
 2 files changed, 9 insertions(+), 3 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project