projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Synch to No Gnus 200401141432.
[elisp/gnus.git-]
/
lisp
/
gnus-nocem.el
diff --git
a/lisp/gnus-nocem.el
b/lisp/gnus-nocem.el
index
38bd552
..
e36c25d
100644
(file)
--- a/
lisp/gnus-nocem.el
+++ b/
lisp/gnus-nocem.el
@@
-1,6
+1,6
@@
;;; gnus-nocem.el --- NoCeM pseudo-cancellation treatment
;;; gnus-nocem.el --- NoCeM pseudo-cancellation treatment
-;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002
+;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2004
;; Free Software Foundation, Inc.
;; Free Software Foundation, Inc.
@@
-29,7
+29,6
@@
;;; Code:
(eval-when-compile (require 'cl))
;;; Code:
(eval-when-compile (require 'cl))
-(eval-when-compile (require 'gnus-clfns))
(require 'gnus)
(require 'nnmail)
(require 'gnus)
(require 'nnmail)
@@
-298,7
+297,8
@@
valid issuer, which is much faster if you are selective about the issuers."
(while (search-forward "\t" nil t)
(cond
((not (ignore-errors
(while (search-forward "\t" nil t)
(cond
((not (ignore-errors
- (setq group (let ((obarray gnus-active-hashtb)) (read buf)))))
+ (setq group (let ((obarray gnus-nocem-real-group-hashtb))
+ (read buf)))))
;; An error.
)
((not (symbolp group))
;; An error.
)
((not (symbolp group))