Cleaning up leading and trailing spaces.

[gnus] / lisp / gnus-draft.el

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index 654c9a1..2627c50 100644 (file)
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -95,14 +95,14 @@
   "Enter a mail/post buffer to edit and send the draft."
   (interactive)
   (let ((article (gnus-summary-article-number))
-        (group gnus-newsgroup-name))
+       (group gnus-newsgroup-name))
     (gnus-summary-mark-as-read article gnus-canceled-mark)
     (gnus-draft-setup article group t)
     (set-buffer-modified-p t)
     (save-excursion
       (save-restriction
-        (message-narrow-to-headers)
-        (message-remove-header "date")))
+       (message-narrow-to-headers)
+       (message-remove-header "date")))
     (save-buffer)
     (let ((gnus-verbose-backends nil))
       (gnus-request-expire-articles (list article) group t))
@@ -123,8 +123,8 @@
     (while (setq article (pop articles))
       (gnus-summary-remove-process-mark article)
       (unless (memq article gnus-newsgroup-unsendable)
-       (let ((message-sending-message 
-              (format "Sending message %d of %d..." 
+       (let ((message-sending-message
+              (format "Sending message %d of %d..."
                       (- total (length articles)) total)))
          (gnus-draft-send article gnus-newsgroup-name t))
        (gnus-summary-mark-article article gnus-canceled-mark)))))
@@ -133,7 +133,7 @@
   "Send message ARTICLE."
   (let ((message-syntax-checks (if interactive nil
                                 'dont-check-for-anything-just-trust-me))
-       (message-inhibit-body-encoding (or (not group) 
+       (message-inhibit-body-encoding (or (not group)
                                           (equal group "nndraft:queue")
                                           message-inhibit-body-encoding))
        (message-send-hook (and group (not (equal group "nndraft:queue"))
@@ -190,8 +190,8 @@
           article)
       (while (setq article (pop articles))
        (unless (memq article unsendable)
-         (let ((message-sending-message 
-                (format "Sending message %d of %d..." 
+         (let ((message-sending-message
+                (format "Sending message %d of %d..."
                         (- total (length articles)) total)))
            (gnus-draft-send article)))))))
 
@@ -239,8 +239,8 @@
       (gnus-backlog-remove-article group narticle)
       (when (and ga
                 (ignore-errors (setq ga (car (read-from-string ga)))))
-        (setq gnus-newsgroup-name 
-              (if (equal (car ga) "") nil (car ga)))
+       (setq gnus-newsgroup-name
+             (if (equal (car ga) "") nil (car ga)))
        (setq message-post-method
              `(lambda (arg)
                 (gnus-post-method arg ,(car ga))))