projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Partially revert last Gnus merge
[gnus]
/
lisp
/
gnus-start.el
diff --git
a/lisp/gnus-start.el
b/lisp/gnus-start.el
index
4a833e0
..
442ed52
100644
(file)
--- a/
lisp/gnus-start.el
+++ b/
lisp/gnus-start.el
@@
-1369,11
+1369,6
@@
for new groups, and subscribe the new groups as zombies."
(funcall gnus-group-change-level-function
group level oldlevel previous)))))
(funcall gnus-group-change-level-function
group level oldlevel previous)))))
-(defun gnus-kill-newsgroup (newsgroup)
- "Obsolete function. Kills a newsgroup."
- (gnus-group-change-level
- (gnus-group-entry newsgroup) gnus-level-killed))
-
(defun gnus-check-bogus-newsgroups (&optional confirm)
"Remove bogus newsgroups.
If CONFIRM is non-nil, the user has to confirm the deletion of every
(defun gnus-check-bogus-newsgroups (&optional confirm)
"Remove bogus newsgroups.
If CONFIRM is non-nil, the user has to confirm the deletion of every
@@
-2221,7
+2216,7
@@
backend check whether the group actually exists."
(gnus-online method)
(gnus-agent-method-p method))
(progn
(gnus-online method)
(gnus-agent-method-p method))
(progn
- (gnus-agent-save-active method)
+ (gnus-agent-save-active method
t
)
(gnus-active-to-gnus-format method hashtb nil real-active))
(goto-char (point-min))
(gnus-active-to-gnus-format method hashtb nil real-active))
(goto-char (point-min))