projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Synch to No Gnus 200401141432.
[elisp/gnus.git-]
/
lisp
/
gnus-nocem.el
diff --git
a/lisp/gnus-nocem.el
b/lisp/gnus-nocem.el
index
6d196b4
..
e36c25d
100644
(file)
--- a/
lisp/gnus-nocem.el
+++ b/
lisp/gnus-nocem.el
@@
-1,6
+1,8
@@
;;; gnus-nocem.el --- NoCeM pseudo-cancellation treatment
;;; gnus-nocem.el --- NoCeM pseudo-cancellation treatment
-;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
+;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2004
+;; Free Software Foundation, Inc.
+
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
@@
-27,7
+29,6
@@
;;; Code:
(eval-when-compile (require 'cl))
;;; Code:
(eval-when-compile (require 'cl))
-(eval-when-compile (require 'gnus-clfns))
(require 'gnus)
(require 'nnmail)
(require 'gnus)
(require 'nnmail)
@@
-59,6
+60,7
@@
This can also be a list of `(ISSUER CONDITION ...)' elements.
See <URL:http://www.xs4all.nl/~rosalind/nocemreg/nocemreg.html> for an
issuer registry."
:group 'gnus-nocem
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
:type '(repeat (choice string sexp)))
(defcustom gnus-nocem-directory
@@
-83,13
+85,14
@@
isn't bound, the message will be used unconditionally."
(defcustom gnus-nocem-liberal-fetch nil
"*If t try to fetch all messages which have @@NCM in the subject.
Otherwise don't fetch messages which have references or whose message-id
(defcustom gnus-nocem-liberal-fetch nil
"*If t try to fetch all messages which have @@NCM in the subject.
Otherwise don't fetch messages which have references or whose message-id
-matches an previously scanned and verified nocem message."
+matches a previously scanned and verified nocem message."
:group 'gnus-nocem
:type 'boolean)
(defcustom gnus-nocem-check-article-limit 500
"*If non-nil, the maximum number of articles to check in any NoCeM group."
:group 'gnus-nocem
:group 'gnus-nocem
:type 'boolean)
(defcustom gnus-nocem-check-article-limit 500
"*If non-nil, the maximum number of articles to check in any NoCeM group."
:group 'gnus-nocem
+ :version "21.1"
:type '(choice (const :tag "unlimited" nil)
(integer 1000)))
:type '(choice (const :tag "unlimited" nil)
(integer 1000)))
@@
-98,6
+101,7
@@
matches an previously scanned and verified nocem message."
Otherwise don't bother fetching articles unless their author matches a
valid issuer, which is much faster if you are selective about the issuers."
:group 'gnus-nocem
Otherwise don't bother fetching articles unless their author matches a
valid issuer, which is much faster if you are selective about the issuers."
:group 'gnus-nocem
+ :version "21.1"
:type 'boolean)
;;; Internal variables
:type 'boolean)
;;; Internal variables
@@
-293,7
+297,8
@@
valid issuer, which is much faster if you are selective about the issuers."
(while (search-forward "\t" nil t)
(cond
((not (ignore-errors
(while (search-forward "\t" nil t)
(cond
((not (ignore-errors
- (setq group (let ((obarray gnus-active-hashtb)) (read buf)))))
+ (setq group (let ((obarray gnus-nocem-real-group-hashtb))
+ (read buf)))))
;; An error.
)
((not (symbolp group))
;; An error.
)
((not (symbolp group))