Show
Ignore:
Timestamp:
07/29/06 07:48:34 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/gnus/gnus-srvr.el

    r4037 r4131  
    944944            ;; Make sure the group has been properly removed before we 
    945945            ;; subscribe to it. 
    946             (gnus-kill-ephemeral-group group) 
     946            (if (gnus-ephemeral-group-p group) 
     947                (gnus-kill-ephemeral-group group)) 
     948            ;; We need to discern between killed/zombie groups and 
     949            ;; just unsubscribed ones. 
    947950            (gnus-group-change-level 
    948              (list t group gnus-level-default-subscribed 
    949                    nil nil (if (gnus-server-equal 
    950                                 gnus-browse-current-method "native") 
    951                                nil 
    952                              (gnus-method-simplify 
    953                               gnus-browse-current-method))) 
     951             (or (gnus-group-entry group) 
     952                 (list t group gnus-level-default-subscribed 
     953                       nil nil (if (gnus-server-equal 
     954                                    gnus-browse-current-method "native") 
     955                                   nil 
     956                                 (gnus-method-simplify 
     957                                  gnus-browse-current-method)))) 
    954958             gnus-level-default-subscribed (gnus-group-level group) 
    955959             (and (car (nth 1 gnus-newsrc-alist)) 
    956960                  (gnus-gethash (car (nth 1 gnus-newsrc-alist)) 
    957961                                gnus-newsrc-hashtb)) 
    958              t) 
     962             (null (gnus-group-entry group))) 
    959963            (delete-char 1) 
    960964            (insert ? ))