From fd310bdea0a8461608216542b62748aa34e87918 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 17 Mar 1997 13:59:03 +0000 Subject: [PATCH] (mime-view-entity-separator-function): New implementation. --- mime-view.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/mime-view.el b/mime-view.el index 6ea8360..3608857 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.46 $ +;; Version: $Revision: 0.47 $ ;; 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.46 1997-03-17 13:55:01 morioka Exp $") + "$Id: mime-view.el,v 0.47 1997-03-17 13:59:03 morioka Exp $") (defconst mime-view-version (get-version-string mime-view-RCS-ID)) @@ -275,7 +275,8 @@ Each elements are regexp of field-name. [mime-view.el]") (defun mime-view-entity-button-function (rcnum cinfo ctype params subj encoding) - "Insert entity button conditionally." + "Insert entity button conditionally. +Please redefine this function if you want to change default setting." (or (null rcnum) (string= ctype "application/x-selection") (and (string= ctype "application/octet-stream") @@ -327,13 +328,14 @@ Each elements are regexp of field-name. [mime-view.el]") )) -;;; @@ content separator +;;; @@ entity separator ;;; (defun mime-view-entity-separator-function (rcnum cinfo ctype params subj) - (if (and (not (mime-view-header-visible-p rcnum cinfo)) - (not (mime-view-body-visible-p rcnum cinfo ctype)) - ) + "Insert entity separator conditionally. +Please redefine this function if you want to change default setting." + (or (mime-view-header-visible-p rcnum cinfo) + (mime-view-body-visible-p rcnum cinfo ctype) (progn (goto-char (point-max)) (insert "\n") -- 1.7.10.4