diff lisp/gnus/gnus-nocem.el @ 108:360340f9fd5f r20-1b6

Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 4be1180a9e89
children fe104dbd9147
line wrap: on
line diff
--- a/lisp/gnus/gnus-nocem.el	Mon Aug 13 09:17:27 2007 +0200
+++ b/lisp/gnus/gnus-nocem.el	Mon Aug 13 09:18:39 2007 +0200
@@ -35,14 +35,14 @@
   "NoCeM pseudo-cancellation treatment"
   :group 'gnus-score)
 
-(defcustom gnus-nocem-groups 
+(defcustom gnus-nocem-groups
   '("news.lists.filters" "news.admin.net-abuse.bulletins"
     "alt.nocem.misc" "news.admin.net-abuse.announce")
   "List of groups that will be searched for NoCeM messages."
   :group 'gnus-nocem
   :type '(repeat (string :tag "Group")))
 
-(defcustom gnus-nocem-issuers 
+(defcustom gnus-nocem-issuers
  '("AutoMoose-1" "Automoose-1"   ; CancelMoose[tm]
    "rbraver@ohww.norman.ok.us"   ; Robert Braver
    "clewis@ferret.ocunix.on.ca;" ; Chris Lewis
@@ -54,7 +54,7 @@
   :group 'gnus-nocem
   :type '(repeat string))
 
-(defcustom gnus-nocem-directory 
+(defcustom gnus-nocem-directory
   (nnheader-concat gnus-article-save-directory "NoCeM/")
   "*Directory where NoCeM files will be stored."
   :group 'gnus-nocem
@@ -110,7 +110,7 @@
 	 (ignore-errors
 	   (load (gnus-nocem-active-file) t t t)))
     ;; Go through all groups and see whether new articles have
-    ;; arrived.  
+    ;; arrived.
     (while (setq group (pop groups))
       (if (not (setq gactive (gnus-activate-group group)))
 	  ()				; This group doesn't exist.
@@ -126,15 +126,15 @@
 	      (nnheader-temp-write nil
 		(setq headers
 		      (if (eq 'nov
-			      (gnus-retrieve-headers 
+			      (gnus-retrieve-headers
 			       (setq articles
 				     (gnus-uncompress-range
-				      (cons 
+				      (cons
 				       (if active (1+ (cdr active))
 					 (car gactive))
 				       (cdr gactive))))
 			       group))
-			  (gnus-get-newsgroup-headers-xover 
+			  (gnus-get-newsgroup-headers-xover
 			   articles nil dependencies)
 			(gnus-get-newsgroup-headers dependencies)))
 		(while (setq header (pop headers))
@@ -167,7 +167,7 @@
   (let ((date (mail-header-date header))
 	issuer b e)
     (when (or (not date)
-	      (nnmail-time-less 
+	      (nnmail-time-less
 	       (nnmail-time-since (nnmail-date-to-time date))
 	       (nnmail-days-to-time gnus-nocem-expiry-wait)))
       (gnus-request-article-this-buffer (mail-header-number header) group)
@@ -245,11 +245,11 @@
   (interactive)
   (unless gnus-nocem-alist
     ;; The buffer doesn't exist, so we create it and load the NoCeM
-    ;; cache.  
+    ;; cache.
     (when (file-exists-p (gnus-nocem-cache-file))
       (load (gnus-nocem-cache-file) t t t)
       (gnus-nocem-alist-to-hashtb))))
-      
+
 (defun gnus-nocem-save-cache ()
   "Save the NoCeM cache."
   (when (and gnus-nocem-alist