summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJuanma Barranquero <lekktu@gmail.com>2006-11-24 10:38:37 +0000
committerJuanma Barranquero <lekktu@gmail.com>2006-11-24 10:38:37 +0000
commit01ccbb859444933470eb0e8b53503fb6ddacc93b (patch)
treed47bd52e960658de41f0537f0ca4542ebedbe330
parent65a3207689b6cbe10a333dc4269d06d97d411edf (diff)
downloademacs-01ccbb859444933470eb0e8b53503fb6ddacc93b.tar.gz
(gnus-summary-make-false-root, gnus-make-threads):
Fix space/tab mixup in docstrings.
-rw-r--r--lisp/gnus/gnus-sum.el12
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 6bf4142216d..0e43c78e3a8 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -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 @@ have all the sub-threads as children.
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 @@ If NO-DISPLAY, don't generate a summary buffer."
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 @@ If LINE, insert the rebuilt thread starting on line LINE."
;; 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 @@ The resulting hash table is returned, or nil if no Xrefs were found."
(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 @@ The resulting hash table is returned, or nil if no Xrefs were found."
;; 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