projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
2005-03-08 Juergen Kreileder <jk@blackdown.de> (tiny change)
[gnus]
/
lisp
/
gnus-nocem.el
diff --git
a/lisp/gnus-nocem.el
b/lisp/gnus-nocem.el
index
7d0be1d
..
487b77e
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
@@
-58,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
@@
-82,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 a
n
previously scanned and verified nocem message."
+matches a previously scanned and verified nocem message."
:group 'gnus-nocem
:type 'boolean)
:group 'gnus-nocem
:type 'boolean)
-(defcustom gnus-nocem-check-article-limit
nil
+(defcustom gnus-nocem-check-article-limit
500
"*If non-nil, the maximum number of articles to check in any NoCeM group."
:group 'gnus-nocem
"*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)))
@@
-97,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
@@
-185,7
+190,7
@@
valid issuer, which is much faster if you are selective about the issuers."
(and gnus-nocem-check-from
(let ((case-fold-search t))
(catch 'ok
(and gnus-nocem-check-from
(let ((case-fold-search t))
(catch 'ok
- (mapc
ar
+ (mapc
(lambda (author)
(if (consp author)
(setq author (car author)))
(lambda (author)
(if (consp author)
(setq author (car author)))
@@
-292,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))
@@
-384,4
+390,5
@@
valid issuer, which is much faster if you are selective about the issuers."
(provide 'gnus-nocem)
(provide 'gnus-nocem)
+;;; arch-tag: 0e0c74ea-2f8e-4f3e-8fff-09f767c1adef
;;; gnus-nocem.el ends here
;;; gnus-nocem.el ends here