/[emacs]/emacs/lisp/gnus/gnus-nocem.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-nocem.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8.18.2 by miles, Tue Oct 14 23:34:50 2003 UTC revision 1.8.18.3 by miles, Thu Sep 16 00:12:16 2004 UTC
# Line 1  Line 1 
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
# Line 58  This can also be a list of `(ISSUER COND Line 60  This can also be a list of `(ISSUER COND
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
# Line 294  valid issuer, which is much faster if yo Line 297  valid issuer, which is much faster if yo
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))

Legend:
Removed from v.1.8.18.2  
changed lines
  Added in v.1.8.18.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26