Mercurial > emacs

comparison lisp/gnus/gnus-nocem.el @ 83201:8a6fd1c164cd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged in changes from CVS trunk. Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-521 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-522 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523 Merge from emacs--gnus--5.10, gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-524 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-525 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-526 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-527 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-528 Update from CVS * miles@gnu.org--gnu-2004/emacs--gnus--5.10--base-0 tag of miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-464 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-1 Import from CVS branch gnus-5_10-branch * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-2 Merge from lorentey@elte.hu--2004/emacs--multi-tty--0, emacs--cvs-trunk--0 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-3 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-4 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-18 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-19 Remove autoconf-generated files from archive * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-20 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-241
author Karoly Lorentey <lorentey@elte.hu>
date Mon, 06 Sep 2004 07:53:44 +0000
parents 55fd4f77387a
children e903f947651d cce1c0ee76ee
comparison
equal deleted inserted replaced
83200:cc29203a9a04 83201:8a6fd1c164cd
1 ;;; gnus-nocem.el --- NoCeM pseudo-cancellation treatment 1 ;;; gnus-nocem.el --- NoCeM pseudo-cancellation treatment
2 2
3 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2004
4 ;; Free Software Foundation, Inc.
5
4 6
5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 7 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
6 ;; Keywords: news 8 ;; Keywords: news
7 9
8 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
56 This can also be a list of `(ISSUER CONDITION ...)' elements. 58 This can also be a list of `(ISSUER CONDITION ...)' elements.
57 59
58 See <URL:http://www.xs4all.nl/~rosalind/nocemreg/nocemreg.html> for an 60 See <URL:http://www.xs4all.nl/~rosalind/nocemreg/nocemreg.html> for an
59 issuer registry." 61 issuer registry."
60 :group 'gnus-nocem 62 :group 'gnus-nocem
63 :link '(url-link "http://www.xs4all.nl/~rosalind/nocemreg/nocemreg.html")
61 :type '(repeat (choice string sexp))) 64 :type '(repeat (choice string sexp)))
62 65
63 (defcustom gnus-nocem-directory 66 (defcustom gnus-nocem-directory
64 (nnheader-concat gnus-article-save-directory "NoCeM/") 67 (nnheader-concat gnus-article-save-directory "NoCeM/")
65 "*Directory where NoCeM files will be stored." 68 "*Directory where NoCeM files will be stored."
292 (narrow-to-region b (1+ (match-beginning 0))) 295 (narrow-to-region b (1+ (match-beginning 0)))
293 (goto-char (point-min)) 296 (goto-char (point-min))
294 (while (search-forward "\t" nil t) 297 (while (search-forward "\t" nil t)
295 (cond 298 (cond
296 ((not (ignore-errors 299 ((not (ignore-errors
297 (setq group (let ((obarray gnus-active-hashtb)) (read buf))))) 300 (setq group (let ((obarray gnus-nocem-real-group-hashtb))
301 (read buf)))))
298 ;; An error. 302 ;; An error.
299 ) 303 )
300 ((not (symbolp group)) 304 ((not (symbolp group))
301 ;; Ignore invalid entries. 305 ;; Ignore invalid entries.
302 ) 306 )