[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-nocem.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/gnus/gnus-nocem.el
diff -c emacs/lisp/gnus/gnus-nocem.el:1.9.6.1 
emacs/lisp/gnus/gnus-nocem.el:1.9.6.2
*** emacs/lisp/gnus/gnus-nocem.el:1.9.6.1       Fri Mar 12 00:02:57 2004
--- emacs/lisp/gnus/gnus-nocem.el       Thu Sep  9 09:36:25 2004
***************
*** 1,6 ****
  ;;; gnus-nocem.el --- NoCeM pseudo-cancellation treatment
  
! ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 Free Software Foundation, 
Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
  ;; Keywords: news
--- 1,8 ----
  ;;; gnus-nocem.el --- NoCeM pseudo-cancellation treatment
  
! ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2004
! ;;        Free Software Foundation, Inc.
! 
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
  ;; Keywords: news
***************
*** 58,63 ****
--- 60,66 ----
  See <URL:http://www.xs4all.nl/~rosalind/nocemreg/nocemreg.html> for an
  issuer registry."
    :group 'gnus-nocem
+   :link '(url-link "http://www.xs4all.nl/~rosalind/nocemreg/nocemreg.html";)
    :type '(repeat (choice string sexp)))
  
  (defcustom gnus-nocem-directory
***************
*** 294,300 ****
        (while (search-forward "\t" nil t)
        (cond
         ((not (ignore-errors
!                (setq group (let ((obarray gnus-active-hashtb)) (read buf)))))
          ;; An error.
          )
         ((not (symbolp group))
--- 297,304 ----
        (while (search-forward "\t" nil t)
        (cond
         ((not (ignore-errors
!                (setq group (let ((obarray gnus-nocem-real-group-hashtb))
!                              (read buf)))))
          ;; An error.
          )
         ((not (symbolp group))