diff lisp/gnus/gnus-group.el @ 49598:0d8b17d428b5

Trailing whitepace deleted.

--- a/lisp/gnus/gnus-group.el	Tue Feb 04 12:29:42 2003 +0000
+++ b/lisp/gnus/gnus-group.el	Tue Feb 04 13:24:35 2003 +0000
@@ -822,7 +822,7 @@
 
 ;; Emacs 21 tool bar.  Should be no-op otherwise.
 (defun gnus-group-make-tool-bar ()
-  (if (and 
+  (if (and
        (condition-case nil (require 'tool-bar) (error nil))
        (fboundp 'tool-bar-add-item-from-menu)
        (default-value 'tool-bar-mode)
@@ -938,7 +938,7 @@
   (let ((item (assoc method gnus-group-name-charset-method-alist))
 	(alist gnus-group-name-charset-group-alist)
 	result)
-    (if item 
+    (if item
 	(cdr item)
       (while (setq item (pop alist))
 	(if (string-match (car item) group)
@@ -1099,9 +1099,9 @@
 	    (gnus-add-text-properties
 	     (point) (prog1 (1+ (point))
 		       (insert " " mark "     *: "
-			       (gnus-group-name-decode group 
+			       (gnus-group-name-decode group
 						       (gnus-group-name-charset
-							nil group)) 
+							nil group))
 			       "\n"))
 	     (list 'gnus-group (gnus-intern-safe group gnus-active-hashtb)
 		   'gnus-unread t
@@ -1112,9 +1112,9 @@
 	(gnus-add-text-properties
 	 (point) (prog1 (1+ (point))
 		   (insert " " mark "     *: "
-			   (gnus-group-name-decode group 
+			   (gnus-group-name-decode group
 						   (gnus-group-name-charset
-						    nil group)) 
+						    nil group))
 			   "\n"))
 	 (list 'gnus-group (gnus-intern-safe group gnus-active-hashtb)
 	       'gnus-unread t
@@ -1168,7 +1168,7 @@
 						    gnus-tmp-method)
   "Insert a group line in the group buffer."
   (let* ((gnus-tmp-method
-	  (gnus-server-get-method gnus-tmp-group gnus-tmp-method)) 
+	  (gnus-server-get-method gnus-tmp-group gnus-tmp-method))
 	 (group-name-charset (gnus-group-name-charset gnus-tmp-method
 						      gnus-tmp-group))
 	 (gnus-tmp-active (gnus-active gnus-tmp-group))
@@ -1188,13 +1188,13 @@
 		((<= gnus-tmp-level gnus-level-unsubscribed) ?U)
 		((= gnus-tmp-level gnus-level-zombie) ?Z)
 		(t ?K)))
-	 (gnus-tmp-qualified-group 
+	 (gnus-tmp-qualified-group
 	  (gnus-group-name-decode (gnus-group-real-name gnus-tmp-group)
 				  group-name-charset))
 	 (gnus-tmp-newsgroup-description
 	  (if gnus-description-hashtb
 	      (or (gnus-group-name-decode
-		   (gnus-gethash gnus-tmp-group gnus-description-hashtb) 
+		   (gnus-gethash gnus-tmp-group gnus-description-hashtb)
 		   group-name-charset) "")
 	    ""))
 	 (gnus-tmp-moderated
@@ -1840,11 +1840,11 @@
      (test-marked
       (goto-char (point-min))
       (let (found)
-	(while (and (not found) 
+	(while (and (not found)
 		    (gnus-goto-char
 		     (text-property-any
 		      (point) (point-max)
-		      'gnus-group 
+		      'gnus-group
 		      (gnus-intern-safe group gnus-active-hashtb))))
 	  (if (gnus-group-mark-line-p)
 	      (setq found t)
@@ -2308,7 +2308,7 @@
 	    default-login 'gnus-group-warchive-login-history)
 	   user-mail-address))
 	 (method
-	  `(nnwarchive ,address 
+	  `(nnwarchive ,address
 		       (nnwarchive-type ,(intern type))
 		       (nnwarchive-login ,login))))
     (gnus-group-make-group group method)))
@@ -3175,7 +3175,7 @@
       (gnus-add-text-properties
        (point) (prog1 (1+ (point))
 		 (insert "       *: "
-			 (gnus-group-name-decode group 
+			 (gnus-group-name-decode group
 						 (gnus-group-name-charset
 						  nil group))
 			 "\n"))
@@ -3338,7 +3338,7 @@
      (lambda (group)
        (setq b (point))
        (let ((charset (gnus-group-name-charset nil (symbol-name group))))
-	 (insert (format "      *: %-20s %s\n" 
+	 (insert (format "      *: %-20s %s\n"
 			 (gnus-group-name-decode
 			  (symbol-name group) charset)
 			 (gnus-group-name-decode
@@ -3709,7 +3709,7 @@
 	""
       (gnus-time-iso8601 time))))
 
-(defun gnus-group-prepare-flat-list-dead-predicate 
+(defun gnus-group-prepare-flat-list-dead-predicate
   (groups level mark predicate)
   (let (group)
     (if predicate
@@ -3719,8 +3719,8 @@
 	  (when (funcall predicate group)
 	    (gnus-add-text-properties
 	     (point) (prog1 (1+ (point))
-		       (insert " " mark "     *: " 
-			       (gnus-group-name-decode group 
+		       (insert " " mark "     *: "
+			       (gnus-group-name-decode group
 						       (gnus-group-name-charset
 							nil group))
 			       "\n"))
@@ -3789,11 +3789,11 @@
 				      (assq 'cache marks)))
 				lowest
 				#'(lambda (group)
-				    (or (gnus-gethash group 
+				    (or (gnus-gethash group
 						      gnus-cache-active-hashtb)
-					;; Cache active file might use "." 
+					;; Cache active file might use "."
 					;; instead of ":".
-					(gnus-gethash 
+					(gnus-gethash
 					 (mapconcat 'identity
 						    (split-string group ":")
 						    ".")