From: morioka <morioka>
Date: Tue, 26 Jan 1999 18:12:11 +0000 (+0000)
Subject: (mime-display-message): Add autoload cookie; add DOC-string.
X-Git-Tag: semi-1_13-199901261900~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bc7b68493c7091d7a1e3c7dd8306b396d44dbcf9;p=elisp%2Fsemi.git

(mime-display-message): Add autoload cookie; add DOC-string.
(mime-view-buffer): Add autoload cookie.
---

diff --git a/mime-view.el b/mime-view.el
index a6913f4..14bca3c 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -933,8 +933,20 @@ MEDIA-TYPE must be (TYPE . SUBTYPE), TYPE or t.  t means default."
 
 (defvar mime-view-redisplay nil)
 
+;;;###autoload
 (defun mime-display-message (message &optional preview-buffer
 				     mother default-keymap-or-function)
+  "View MESSAGE in MIME-View mode.
+
+Optional argument PREVIEW-BUFFER specifies the buffer of the
+presentation.  It must be either nil or a name of preview buffer.
+
+Optional argument MOTHER specifies mother-buffer of the preview-buffer.
+
+Optional argument DEFAULT-KEYMAP-OR-FUNCTION is nil, keymap or
+function.  If it is a keymap, keymap of MIME-View mode will be added
+to it.  If it is a function, it will be bound as default binding of
+keymap of MIME-View mode."
   (mime-maybe-hide-echo-buffer)
   (let ((win-conf (current-window-configuration))
 	(raw-buffer (mime-entity-buffer message)))
@@ -980,6 +992,7 @@ MEDIA-TYPE must be (TYPE . SUBTYPE), TYPE or t.  t means default."
 		  )))))
       )))
 
+;;;###autoload
 (defun mime-view-buffer (&optional raw-buffer preview-buffer mother
 				   default-keymap-or-function
 				   representation-type)