changeset 74148:e23d43e32d34

(gnus-summary-make-false-root, gnus-make-threads): Fix space/tab mixup in docstrings.

--- a/lisp/gnus/gnus-sum.el	Fri Nov 24 10:35:44 2006 +0000
+++ b/lisp/gnus/gnus-sum.el	Fri Nov 24 10:38:37 2006 +0000
@@ -15,7 +15,7 @@
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.	 See the
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;; GNU General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
@@ -110,7 +110,7 @@
 If this variable is `adopt', Gnus will make one of the \"children\"
 the parent and mark all the step-children as such.
 If this variable is `empty', the \"children\" are printed with empty
-subject fields.	 (Or rather, they will be printed with a string
+subject fields.  (Or rather, they will be printed with a string
 given by the `gnus-summary-same-subject' variable.)"
   :group 'gnus-thread
   :type '(choice (const :tag "off" nil)
@@ -3975,7 +3975,7 @@
     infloop))
 
 (defun gnus-make-threads ()
-  "Go through the dependency hashtb and find the roots.	 Return all threads."
+  "Go through the dependency hashtb and find the roots.  Return all threads."
   (let (threads)
     (while (catch 'infloop
 	     (mapatoms
@@ -4481,7 +4481,7 @@
     ;; First go up in this thread until we find the root.
     (setq last-id (gnus-root-id id)
 	  headers (message-flatten-list (gnus-id-to-thread last-id)))
-    ;; We have now found the real root of this thread.	It might have
+    ;; We have now found the real root of this thread.  It might have
     ;; been gathered into some loose thread, so we have to search
     ;; through the threads to find the thread we wanted.
     (let ((threads gnus-newsgroup-threads)
@@ -5927,7 +5927,7 @@
       (let ((case-fold-search t)
 	    in-reply-to header p lines chars)
 	(goto-char (point-min))
-	;; Search to the beginning of the next header.	Error messages
+	;; Search to the beginning of the next header.  Error messages
 	;; do not begin with 2 or 3.
 	(while (re-search-forward "^[23][0-9]+ " nil t)
 	  (setq id nil
@@ -5935,7 +5935,7 @@
 	  ;; This implementation of this function, with nine
 	  ;; search-forwards instead of the one re-search-forward and
 	  ;; a case (which basically was the old function) is actually
-	  ;; about twice as fast, even though it looks messier.	 You
+	  ;; about twice as fast, even though it looks messier.  You
 	  ;; can't have everything, I guess.  Speed and elegance
 	  ;; doesn't always go hand in hand.
 	  (setq