(mm-uu-type-alist): Added doc string.

(mm-uu-configure): Added doc string.  Make it interactive.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7580c4c..3df580d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,8 @@
        * mm-uu.el (mm-uu-emacs-sources-regexp): Make variable
        customizable.  Change default value.
        (mm-uu-diff-groups-regexp): Change default value.
+       (mm-uu-type-alist): Added doc string.
+       (mm-uu-configure): Added doc string.  Make it interactive.
 
        * message.el (message-mark-inserted-region)
        (message-mark-insert-file): Use slrn style marks when called with

diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el
index ed54101..d81b2f9 100644 (file)
--- a/lisp/mm-uu.el
+++ b/lisp/mm-uu.el
@@ -170,7 +170,12 @@ This can be either \"inline\" or \"attachment\".")
      "^#v\\+$"
      "^#v\\-$"
      mm-uu-verbatim-marks-extract
-     nil)))
+     nil))
+  "A list of specifications for non-MIME attachments.
+Each element consist of the following entries: label,
+start-regexp, end-regexp, extract-function, test-function.
+
+After modifying this list you must run \\[mm-uu-configure].")
 
 (defcustom mm-uu-configure-list '((shar . disabled))
   "A list of mm-uu configuration.
@@ -246,6 +251,8 @@ apply the face `mm-uu-extract'."
   (member (cons key val) mm-uu-configure-list))
 
 (defun mm-uu-configure (&optional symbol value)
+  "Configure detection of non-MIME attachments."
+  (interactive)
   (if symbol (set-default symbol value))
   (setq mm-uu-beginning-regexp nil)
   (mapcar (lambda (entry)