Checkdoc.

diff --git a/wl/wl.el b/wl/wl.el
index 23e5de5..e5b3926 100644 (file)
--- 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))