Cleaning up leading and trailing spaces.

[gnus] / lisp / nnml.el

diff --git a/lisp/nnml.el b/lisp/nnml.el
index 080dd76..b1caf88 100644 (file)
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -104,15 +104,15 @@ check twice.")
       (set-buffer nntp-server-buffer)
       (erase-buffer)
       (let* ((file nil)
-             (number (length sequence))
-             (count 0)
-             (file-name-coding-system nnmail-pathname-coding-system)
-             beg article
-             (nnml-check-directory-twice 
-              (and nnml-check-directory-twice 
-                   ;; To speed up, disable it in some case.
-                   (or (not (numberp nnmail-large-newsgroup))
-                       (<= number nnmail-large-newsgroup)))))
+            (number (length sequence))
+            (count 0)
+            (file-name-coding-system nnmail-pathname-coding-system)
+            beg article
+            (nnml-check-directory-twice
+             (and nnml-check-directory-twice
+                  ;; To speed up, disable it in some case.
+                  (or (not (numberp nnmail-large-newsgroup))
+                      (<= number nnmail-large-newsgroup)))))
        (if (stringp (car sequence))
            'headers
          (if (nnml-retrieve-headers-with-nov sequence fetch-old)
@@ -329,8 +329,8 @@ check twice.")
     (and
      (nnml-deletable-article-p group article)
      (nnml-request-article article group server)
-     (let (nnml-current-directory 
-          nnml-current-group 
+     (let (nnml-current-directory
+          nnml-current-group
           nnml-article-file-alist)
        (save-excursion
         (set-buffer buf)
@@ -499,13 +499,13 @@ check twice.")
     (if (setq file (cdr (assq article nnml-article-file-alist)))
        (expand-file-name file nnml-current-directory)
       (if nnml-check-directory-twice
-          ;; Just to make sure nothing went wrong when reading over NFS --
-          ;; check once more.
-          (when (file-exists-p
-                 (setq file (expand-file-name (number-to-string article)
-                                              nnml-current-directory)))
-            (nnml-update-file-alist t)
-            file)))))
+      ;; Just to make sure nothing went wrong when reading over NFS --
+         ;; check once more.
+         (when (file-exists-p
+                (setq file (expand-file-name (number-to-string article)
+                                             nnml-current-directory)))
+           (nnml-update-file-alist t)
+           file)))))
 
 (defun nnml-deletable-article-p (group article)
   "Say whether ARTICLE in GROUP can be deleted."
@@ -527,7 +527,7 @@ check twice.")
       ;; likely that the article we are looking for is in that group.
       (if (setq number (nnml-find-id nnml-current-group id))
          (cons nnml-current-group number)
-       ;; It wasn't there, so we look through the other groups as well.
+      ;; It wasn't there, so we look through the other groups as well.
        (while (and (not number)
                    alist)
          (or (string= (caar alist) nnml-current-group)