From: morioka Date: Tue, 24 Jun 1997 16:21:46 +0000 (+0000) Subject: `mime-preview/display-message/partial' -> X-Git-Tag: semi-0_96~28 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bd3d2e13e9c76dc6c9fc8a11be1a723d758afdad;p=elisp%2Fsemi.git `mime-preview/display-message/partial' -> `mime-view-insert-message/partial-button'. --- diff --git a/mime-view.el b/mime-view.el index 51e750b..40990d5 100644 --- a/mime-view.el +++ b/mime-view.el @@ -6,7 +6,7 @@ ;; Created: 1994/7/13 ;; Renamed: 1994/8/31 from tm-body.el ;; Renamed: 1997/02/19 from tm-view.el -;; Version: $Revision: 0.94 $ +;; Version: $Revision: 0.95 $ ;; Keywords: MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -40,7 +40,7 @@ ;;; (defconst mime-view-RCS-ID - "$Id: mime-view.el,v 0.94 1997-06-24 16:15:47 morioka Exp $") + "$Id: mime-view.el,v 0.95 1997-06-24 16:21:46 morioka Exp $") (defconst mime-view-version (get-version-string mime-view-RCS-ID)) @@ -534,7 +534,7 @@ The compressed face will be piped to this command.") rcnum cinfo ctype params subj encoding) ) ((equal ctype "message/partial") - (mime-preview/display-message/partial) + (mime-view-insert-message/partial-button) ) ((and (null rcnum) (null (mime::content-info/children cinfo)) @@ -576,7 +576,7 @@ The compressed face will be piped to this command.") ) ))) -(defun mime-preview/display-message/partial () +(defun mime-view-insert-message/partial-button () (save-restriction (goto-char (point-max)) (if (not (search-backward "\n\n" nil t))