Fix indent and comment style.

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index e53f14c..47b4668 100644 (file)
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -1804,7 +1804,8 @@ Return nil if no complete line has arrived."
         (setq mailbox "inbox"))
      (if (eq (string-to-char mailbox) ?/)
         (setq mailbox (substring mailbox 1 (length mailbox))))
-     (concat ; don't use expand-file-name (e.g. %~/something)
+     ;; don't use expand-file-name (e.g. %~/something)
+     (concat
       (expand-file-name
        (or (elmo-net-folder-user-internal folder) "nobody")
        (expand-file-name (or (elmo-net-folder-server-internal folder)

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index bcf443a..c773a86 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1303,11 +1303,12 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
          (wl-draft-verbose-msg nil)
          err)
       (unwind-protect
-         (save-excursion (set-buffer sending-buffer)
+         (save-excursion
+           (set-buffer sending-buffer)
            (if (and (not (wl-message-mail-p))
                     (not (wl-message-news-p)))
                (error "No recipient is specified"))
-           (expand-abbrev) ; for mail-abbrevs
+           (expand-abbrev)             ; for mail-abbrevs
            (let ((mime-header-encode-method-alist
                   (append
                    '((wl-draft-eword-encode-address-list

diff --git a/wl/wl-expire.el b/wl/wl-expire.el
index 1f2f3f5..e579713 100644 (file)
--- a/wl/wl-expire.el
+++ b/wl/wl-expire.el
@@ -103,20 +103,20 @@
          (wl-expire-delete-reserve-marked-msgs-from-list
           delete-list (elmo-msgdb-get-mark-alist msgdb))))
   (when delete-list
-   (let ((mess
-        (format "Expiring (delete) %s msgs..."
-                (length delete-list))))
-    (message "%s" mess)
-    (if (elmo-folder-delete-messages folder
-                                    delete-list)
-       (progn
-         (elmo-msgdb-delete-msgs (elmo-folder-msgdb folder)
-                                 delete-list)
-         (wl-expire-append-log
-          (elmo-folder-name-internal folder)
-          delete-list nil 'delete)
-         (message "%sdone" mess))
-      (error "%sfailed!" mess))))
+    (let ((mess
+          (format "Expiring (delete) %s msgs..."
+                  (length delete-list))))
+      (message "%s" mess)
+      (if (elmo-folder-delete-messages folder
+                                      delete-list)
+         (progn
+           (elmo-msgdb-delete-msgs (elmo-folder-msgdb folder)
+                                   delete-list)
+           (wl-expire-append-log
+            (elmo-folder-name-internal folder)
+            delete-list nil 'delete)
+           (message "%sdone" mess))
+       (error "%sfailed!" mess))))
   (cons delete-list (length delete-list)))
 
 (defun wl-expire-refile (folder refile-list msgdb dst-folder