1 |
;;; gnus-nocem.el --- NoCeM pseudo-cancellation treatment |
;;; gnus-nocem.el --- NoCeM pseudo-cancellation treatment |
2 |
|
|
3 |
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 Free Software Foundation, Inc. |
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2004 |
4 |
|
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
|
|
7 |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
8 |
;; Keywords: news |
;; Keywords: news |
60 |
See <URL:http://www.xs4all.nl/~rosalind/nocemreg/nocemreg.html> for an |
See <URL:http://www.xs4all.nl/~rosalind/nocemreg/nocemreg.html> for an |
61 |
issuer registry." |
issuer registry." |
62 |
:group 'gnus-nocem |
:group 'gnus-nocem |
63 |
|
:link '(url-link "http://www.xs4all.nl/~rosalind/nocemreg/nocemreg.html") |
64 |
:type '(repeat (choice string sexp))) |
:type '(repeat (choice string sexp))) |
65 |
|
|
66 |
(defcustom gnus-nocem-directory |
(defcustom gnus-nocem-directory |
297 |
(while (search-forward "\t" nil t) |
(while (search-forward "\t" nil t) |
298 |
(cond |
(cond |
299 |
((not (ignore-errors |
((not (ignore-errors |
300 |
(setq group (let ((obarray gnus-active-hashtb)) (read buf))))) |
(setq group (let ((obarray gnus-nocem-real-group-hashtb)) |
301 |
|
(read buf))))) |
302 |
;; An error. |
;; An error. |
303 |
) |
) |
304 |
((not (symbolp group)) |
((not (symbolp group)) |