From: kaoru <kaoru>
Date: Sun, 26 Nov 2000 23:08:04 +0000 (+0000)
Subject: Checkdoc.
X-Git-Tag: wl-2_6-root~160
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=dfe0b969cb22378366c6d5b1392fbf6ace8d6199;p=elisp%2Fwanderlust.git

Checkdoc.
---

diff --git a/wl/wl.el b/wl/wl.el
index 23e5de5..e5b3926 100644
--- a/wl/wl.el
+++ b/wl/wl.el
@@ -626,7 +626,7 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'."
 (defun wl-exit ()
   (interactive)
   (when (or (not wl-interactive-exit)
-	    (y-or-n-p "Quit Wanderlust?"))
+	    (y-or-n-p "Quit Wanderlust? "))
     (elmo-quit)
     (wl-biff-stop)
     (run-hooks 'wl-exit-hook)
@@ -701,6 +701,7 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'."
     (require 'mime-setup))
   (unless wl-from
     (error "Please set `wl-from'"))
+  ;; Message-ID
   (unless (string-match "[^.]\\.[^.]" (or wl-message-id-domain
 					  (if wl-local-domain
 					      (concat (system-name)
@@ -714,37 +715,39 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'."
 			      (system-name))))
       (error "Please remove `@' from `wl-message-id-domain'"))
   (if (string= wl-local-domain "localdomain")
-      (error "Please set `wl-local-domain'."))
+      (error "Please set `wl-local-domain'"))
   (if (string= wl-message-id-domain "localhost.localdomain")
-      (error "Please set `wl-message-id-domain'."))
+      (error "Please set `wl-message-id-domain'"))
+  ;; folders
   (when (not no-check-folder)
     (if (not (eq (elmo-folder-get-type wl-draft-folder) 'localdir))
 	(error "%s is not allowed for draft folder" wl-draft-folder))
     (unless (elmo-folder-exists-p wl-draft-folder)
       (if (y-or-n-p
-	   (format "Draft Folder %s does not exist, create it?"
+	   (format "Draft Folder %s does not exist, create it? "
 		   wl-draft-folder))
 	  (elmo-create-folder wl-draft-folder)
 	(error "Draft Folder is not created")))
     (if (and wl-draft-enable-queuing
 	     (not (elmo-folder-exists-p wl-queue-folder)))
 	(if (y-or-n-p
-	     (format "Queue Folder %s does not exist, create it?"
+	     (format "Queue Folder %s does not exist, create it? "
 		     wl-queue-folder))
 	    (elmo-create-folder wl-queue-folder)
 	  (error "Queue Folder is not created"))))
   (when (not (eq no-check-folder 'wl-draft))
     (unless (elmo-folder-exists-p wl-trash-folder)
       (if (y-or-n-p
-	   (format "Trash Folder %s does not exist, create it?"
+	   (format "Trash Folder %s does not exist, create it? "
 		   wl-trash-folder))
 	  (elmo-create-folder wl-trash-folder)
 	(error "Trash Folder is not created")))
     (unless (elmo-folder-exists-p elmo-lost+found-folder)
       (elmo-create-folder elmo-lost+found-folder)))
+  ;; tmp dir
   (unless (file-exists-p wl-tmp-dir)
     (if (y-or-n-p
-	 (format "Temp directory (to save multipart) %s does not exist, create it now?"
+	 (format "Temp directory (to save multipart) %s does not exist, create it now? "
 		 wl-tmp-dir))
 	(make-directory wl-tmp-dir)
       (error "Temp directory is not created"))))
@@ -752,7 +755,7 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'."
 ;;;###autoload
 (defun wl (&optional arg)
   "Start Wanderlust -- Yet Another Message Interface On Emacsen.
-If prefix argument is specified, folder checkings are skipped."
+If ARG (prefix argument) is specified, folder checkings are skipped."
   (interactive "P")
   (or wl-init (wl-load-profile))
   (unwind-protect
@@ -760,7 +763,7 @@ If prefix argument is specified, folder checkings are skipped."
     (wl-plugged-init (wl-folder arg))
     (sit-for 0))
   (unwind-protect
-      (unless arg 
+      (unless arg
 	(run-hooks 'wl-auto-check-folder-pre-hook)
 	(wl-folder-auto-check)
 	(run-hooks 'wl-auto-check-folder-hook))