Mercurial > emacs
comparison lisp/gnus/gnus-nocem.el @ 82951:0fde48feb604
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 ) |