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

Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 0d2f883870bc
children fe104dbd9147
line wrap: on
line diff
--- a/lisp/gnus/nnoo.el	Mon Aug 13 09:17:27 2007 +0200
+++ b/lisp/gnus/nnoo.el	Mon Aug 13 09:18:39 2007 +0200
@@ -58,7 +58,7 @@
 
 (defmacro nnoo-declare (backend &rest parents)
   `(eval-and-compile
-     (push (list ',backend 
+     (push (list ',backend
 		 (mapcar (lambda (p) (list p)) ',parents)
 		 nil nil)
 	   nnoo-definition-alist)
@@ -126,7 +126,7 @@
 		 (&rest args)
 	       (nnoo-parent-function ',backend ',(car m)
 				     ,(cons 'list (nreverse margs))))))))
-  
+
 (defun nnoo-backend (symbol)
   (string-match "^[^-]+-" (symbol-name symbol))
   (intern (substring (symbol-name symbol) 0 (1- (match-end 0)))))
@@ -180,8 +180,8 @@
  					      (symbol-value (car def)))))))
 	  (set (car def) (cadr def))))
       (while parents
-	(nnoo-change-server 
-	 (caar parents) server 
+	(nnoo-change-server
+	 (caar parents) server
 	 (mapcar (lambda (def) (list (car def) (symbol-value (cadr def))))
 		 (cdar parents)))
 	(pop parents))))
@@ -192,7 +192,7 @@
 	(defs (nnoo-variables backend)))
     ;; Remove the old definition.
     (setcdr (cdr bstate) (delq (assoc current (cddr bstate)) (cddr bstate)))
-    ;; If this is the first time we push the server (i. e., this is 
+    ;; If this is the first time we push the server (i. e., this is
     ;; the nil server), then we update the default values of
     ;; all the variables to reflect the current values.
     (when (equal current "*internal-non-initialized-backend*")