From: kaoru <kaoru>
Date: Wed, 18 Oct 2000 04:03:44 +0000 (+0000)
Subject: Fixed docstring.
X-Git-Tag: wl-2_4-root~127
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=eb274e472f28244dd61dab905ebaf1da55fca4d6;p=elisp%2Fwanderlust.git

Fixed docstring.
---

diff --git a/wl/wl-version.el b/wl/wl-version.el
index e95cc50..1a6d6c5 100644
--- a/wl/wl-version.el
+++ b/wl/wl-version.el
@@ -67,6 +67,7 @@ If ARG insert string at point."
   "An alist to define the version status.")
 
 (defun wl-version-status ()
+  "Return version status (\"stable\" or \"beta\")."
   (let ((salist wl-version-status-alist)
 	status)
     (while salist
@@ -92,7 +93,8 @@ Insert User-Agent field instead of X-Mailer field."
   (concat "User-Agent: " (wl-generate-user-agent-string-1 t)))
 
 (defun wl-generate-user-agent-string-1 (&optional verbose)
-  "Return User-Agent field value."
+  "Return User-Agent field value.
+If VERBOSE return with SEMI, FLIM and APEL version"
   (let ((mime-user-agent (and (boundp 'mime-edit-insert-user-agent-field)
 			      mime-edit-insert-user-agent-field
 			      mime-edit-user-agent-value)))