Checkdoc.

diff --git a/elmo/elmo-archive.el b/elmo/elmo-archive.el
index 5d86809..341428b 100644 (file)
--- a/elmo/elmo-archive.el
+++ b/elmo/elmo-archive.el
@@ -309,7 +309,7 @@ TYPE specifies the archiver's symbol."
                      (not (eobp)))  ; for GNU tar 981010
            (setq file-list (nconc file-list (list (string-to-int
                                                    (match-string 1)))))))
-      (error "%s does not exist." file))
+      (error "%s does not exist" file))
     (if nonsort
        (cons (or (elmo-max-of-list file-list) 0)
              (if killed
@@ -522,7 +522,7 @@ TYPE specifies the archiver's symbol."
     (elmo-mapcar-list-of-list
      (function (lambda (x)
                 (if (file-exists-p
-                     (expand-file-name 
+                     (expand-file-name
                       (concat elmo-archive-basename
                               (elmo-archive-get-suffix
                                (elmo-archive-folder-archive-type-internal

diff --git a/elmo/elmo-dop.el b/elmo/elmo-dop.el
index 2ea9ebd..666e91f 100644 (file)
--- a/elmo/elmo-dop.el
+++ b/elmo/elmo-dop.el
@@ -88,12 +88,12 @@ Automatically loaded/saved.")
   (unless (or (null elmo-dop-queue)
              (vectorp (car elmo-dop-queue)))
     (if (y-or-n-p "\
-Saved queue is old version(2.6). Clear all pending operations? ")
+Saved queue is old version(2.6).  Clear all pending operations? ")
        (progn
          (setq elmo-dop-queue nil)
          (message "All pending operations are cleared.")
          (elmo-dop-queue-save))
-      (error "Please use 2.6 or earlier.")))
+      (error "Please use 2.6 or earlier")))
   (elmo-dop-queue-merge)
   (let ((queue-all elmo-dop-queue)
        queue
@@ -131,7 +131,7 @@ Saved queue is old version(2.6). Clear all pending operations? ")
                                        (elmo-dop-queue-fname (car queue))))
                               (elmo-folder-open folder)
                               (unless (elmo-folder-plugged-p folder)
-                                (error "Unplugged.")))
+                                (error "Unplugged")))
                             (elmo-dop-queue-arguments (car queue)))
                      (elmo-folder-close folder))
                  (quit  (setq failure t))
@@ -165,7 +165,7 @@ Saved queue is old version(2.6). Clear all pending operations? ")
           (memq (elmo-dop-queue-method que)
                 elmo-dop-queue-merge-method-list)
           (setq match-queue
-                (car (delete 
+                (car (delete
                       nil
                       (mapcar
                        (lambda (nqueue)

diff --git a/wl/wl-acap.el b/wl/wl-acap.el
index c72a3d9..8ecd7c2 100644 (file)
--- a/wl/wl-acap.el
+++ b/wl/wl-acap.el
@@ -116,7 +116,7 @@ If nil, default acap port is used."
            proc entries settings folder-top type caches msgdb-dir)
        (if (null (car service))
            (if (setq caches
-                     (delq 
+                     (delq
                       nil
                       (mapcar
                        (lambda (dirent)
@@ -133,7 +133,7 @@ If nil, default acap port is used."
                                                   (expand-file-name
                                                    "acap"
                                                    elmo-msgdb-directory)))))))
-               (if (y-or-n-p "No ACAP service found. Try cache? ")
+               (if (y-or-n-p "No ACAP service found.  Try cache? ")
                    (let (selected rpath alist)
                      (setq alist
                            (mapcar
@@ -149,8 +149,8 @@ If nil, default acap port is used."
                                  alist))
                            msgdb-dir (file-name-directory selected)
                            entries (elmo-object-load selected)))
-                 (error "No ACAP service found."))
-             (error "No ACAP service found."))
+                 (error "No ACAP service found"))
+             (error "No ACAP service found"))
          (setq proc (acap-open (car service)
                                wl-acap-user
                                (upcase (symbol-name
@@ -162,7 +162,7 @@ If nil, default acap port is used."
                                                   "/~/")
                                      '((RETURN ("*"))))))
          (when entries
-           (elmo-object-save 
+           (elmo-object-save
             (expand-file-name
              (concat "acap/" (car service) "/" wl-acap-user "/"
                      wl-acap-cache-filename)

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 164b509..c62b622 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -308,7 +308,7 @@ e.g.
   (mail-position-on-field "To"))
 
 (defun wl-draft-strip-subject-re (subject)
-  "Remove \"Re:\" from subject lines. Shamelessly copied from Gnus."
+  "Remove \"Re:\" from SUBJECT string. Shamelessly copied from Gnus."
   (if (string-match wl-subject-prefix-regexp subject)
       (substring subject (match-end 0))
     subject))
@@ -719,7 +719,7 @@ Reply to author if WITH-ARG is non-nil."
         (insert cite-title "\n"))
     (mail-indent-citation)))
 
-(defvar wl-draft-buffer nil "Draft buffer to yank content")
+(defvar wl-draft-buffer nil "Draft buffer to yank content.")
 (defun wl-draft-yank-to-draft-buffer (buffer)
   "Yank BUFFER content to `wl-draft-buffer'."
   (set-buffer wl-draft-buffer)
@@ -771,7 +771,7 @@ Reply to author if WITH-ARG is non-nil."
                (switch-to-buffer sum-buf))))))))
 
 (defun wl-draft-delete (editing-buffer)
-  "kill the editing draft buffer and delete the file corresponds to it."
+  "Kill the editing draft buffer and delete the file corresponds to it."
   (save-excursion
     (when editing-buffer
       (set-buffer editing-buffer)
@@ -1336,7 +1336,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
             (kill-buffer sending-buffer))))))
 
 (defun wl-draft-mime-bcc-field ()
-  "Return the MIME-Bcc field body. The field is deleted."
+  "Return the MIME-Bcc field body.  The field is deleted."
   (prog1 (std11-field-body wl-draft-mime-bcc-field-name)
     (wl-draft-delete-field wl-draft-mime-bcc-field-name)))
 
@@ -1707,10 +1707,9 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
                        ;;  insert symbol-value: string
   (symbol . nil)       ;;  do nothing
   nil                  ;;  do nothing
-  )
-"
+  )"
   (unless (eq major-mode 'wl-draft-mode)
-    (error "wl-draft-create-header must be use in wl-draft-mode."))
+    (error "`wl-draft-create-header' must be use in wl-draft-mode"))
   (let ((halist header-alist)
        field value)
     (while halist
@@ -1745,7 +1744,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
 
 (defun wl-draft-prepare-edit ()
   (unless (eq major-mode 'wl-draft-mode)
-    (error "wl-draft-create-header must be use in wl-draft-mode."))
+    (error "`wl-draft-create-header' must be use in wl-draft-mode"))
   (let (change-major-mode-hook)
     (wl-draft-editor-mode)
     (when wl-draft-write-file-function
@@ -1875,7 +1874,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
                 (cdar condition))
            (setq condition (cdr condition)))))
     (unless elmo-nntp-default-function
-      (error "wl-draft-nntp-send: posting-function is nil."))
+      (error "wl-draft-nntp-send: posting-function is nil"))
     (if (not (elmo-plugged-p elmo-nntp-default-server elmo-nntp-default-port))
        (wl-draft-set-sent-message 'news 'unplugged
                                   (cons elmo-nntp-default-server

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 73adcec..262db0d 100644 (file)
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -332,7 +332,7 @@ Default HASHTB is `wl-folder-elmo-folder-hashtb'."
                        (or (, hashtb) wl-folder-elmo-folder-hashtb))))
 
 (defmacro wl-folder-get-elmo-folder (entity &optional no-cache)
-  "Get elmo folder structure from entity."
+  "Get elmo folder structure from ENTITY."
   (` (if (, no-cache)
         (elmo-make-folder (elmo-string (, entity)))
        (or (wl-folder-elmo-folder-cache-get (, entity))
@@ -350,7 +350,7 @@ Default HASHTB is `wl-folder-elmo-folder-hashtb'."
   (forward-line 1))
 
 (defun wl-folder-prev-entity-skip-invalid (&optional hereto)
-  "move to previous entity. skip unsubscribed or removed entity."
+  "Move to previous entity. skip unsubscribed or removed entity."
   (interactive)
   (if hereto
       (end-of-line))
@@ -2076,7 +2076,7 @@ If FOLDER is multi, return comma separated string (cross post)."
       nil)))
 
 (defun wl-folder-guess-mailing-list-by-refile-rule (entity)
-  "Return ML address guess by FOLDER.
+  "Return ML address guess by ENTITY.
 Use `wl-subscribed-mailing-list' and `wl-refile-rule-alist'."
   (let ((flist
         (elmo-folder-get-primitive-list
@@ -2114,7 +2114,7 @@ Use `wl-subscribed-mailing-list' and `wl-refile-rule-alist'."
          (elmo-string-matched-member tokey wl-subscribed-mailing-list t)))))
 
 (defun wl-folder-guess-mailing-list-by-folder-name (entity)
-  "Return ML address guess by FOLDER name's last hierarchy.
+  "Return ML address guess by ENTITY name's last hierarchy.
 Use `wl-subscribed-mailing-list'."
   (let ((flist
         (elmo-folder-get-primitive-list
@@ -2713,7 +2713,7 @@ Use `wl-subscribed-mailing-list'."
                                         folder))))
                         ;; Sticky folder exists.
                         (wl-summary-sticky-buffer-name
-                         (elmo-folder-name-internal folder))                
+                         (elmo-folder-name-internal folder))
                       (concat
                        wl-summary-buffer-name
                        (symbol-name this-command))))

diff --git a/wl/wl.el b/wl/wl.el
index ea1807b..c4ca68d 100644 (file)
--- a/wl/wl.el
+++ b/wl/wl.el
@@ -705,7 +705,7 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'."
     (run-hooks 'wl-init-hook)))
 
 (defun wl-check-environment (no-check-folder)
-  (unless wl-from (error "Please set `wl-from' to your mail address."))
+  (unless wl-from (error "Please set `wl-from' to your mail address"))
   ;; Message-ID
   (when wl-insert-message-id
     (let ((message-id (funcall wl-message-id-function))
@@ -713,10 +713,10 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'."
       (unless (string-match "^<\\([^@]*\\)@\\([^@]*\\)>$" message-id)
        (cond
         ((string-match "@" wl-message-id-domain)
-         (error "Please remove `@' from `wl-message-id-domain'."))
+         (error "Please remove `@' from `wl-message-id-domain'"))
         (t
          (error
-          "Check around `wl-message-id-function' to get valid Message-ID string."))))
+          "Check around `wl-message-id-function' to get valid Message-ID string"))))
       (setq domain (match-string 2 message-id))
       (if (or (not (string-match "[^.]\\.[^.]" domain))
              (string= domain "localhost.localdomain"))
@@ -778,7 +778,7 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'."
 
 (defun wl-check-variables-2 ()
   (if (< wl-message-buffer-cache-size 1)
-      (error "`wl-message-buffer-cache-size' must be larger than 0."))
+      (error "`wl-message-buffer-cache-size' must be larger than 0"))
   (when wl-message-buffer-prefetch-depth
     (if (not (< wl-message-buffer-prefetch-depth
                wl-message-buffer-cache-size))