From: kaoru <kaoru>
Date: Sun, 15 Jun 2003 23:16:38 +0000 (+0000)
Subject: Fix indent and comment style.
X-Git-Tag: merged-trunk-to-elmo-mark-18~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;ds=sidebyside;h=762aeca37357daba8190feecb30da69314d56f00;p=elisp%2Fwanderlust.git

Fix indent and comment style.
---

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index e53f14c..47b4668 100644
--- 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
--- 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
--- 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