Mercurial > emacs

comparison lisp/gnus/gnus-nocem.el @ 82951:0fde48feb604

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import Gnus 5.10 from the v5_10 branch of the Gnus repository.
author Andreas Schwab <schwab@suse.de>
date Thu, 22 Jul 2004 16:45:51 +0000
parents 695cf19ef79e
children e903f947651d cce1c0ee76ee
comparison
equal deleted inserted replaced
56503:8bbd2323fbf2 82951:0fde48feb604
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 )