From: morioka Date: Sat, 13 Jun 1998 06:11:42 +0000 (+0000) Subject: rearrangement. X-Git-Tag: semi-1_6_0~22 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7b9d9c2b83db87949a4e958dc578c472d9a46097;p=elisp%2Fsemi.git rearrangement. --- diff --git a/mime-view.el b/mime-view.el index 5cb8d26..1437691 100644 --- a/mime-view.el +++ b/mime-view.el @@ -64,10 +64,7 @@ :type 'file) -;;; @ buffer local variables -;;; - -;;; @@ in raw-buffer +;;; @ in raw-buffer (representation space) ;;; (defvar mime-raw-message-info nil @@ -121,27 +118,6 @@ This value is overridden by buffer local variable `mime-raw-representation-type' if it is not nil.") -;;; @@ in preview-buffer -;;; - -(defvar mime-mother-buffer nil - "Mother buffer corresponding with the (MIME-preview) buffer. -If current MIME-preview buffer is generated by other buffer, such as -message/partial, it is called `mother-buffer'.") -(make-variable-buffer-local 'mime-mother-buffer) - -(defvar mime-raw-buffer nil - "Raw buffer corresponding with the (MIME-preview) buffer.") -(make-variable-buffer-local 'mime-raw-buffer) - -(defvar mime-preview-original-window-configuration nil - "Window-configuration before mime-view-mode is called.") -(make-variable-buffer-local 'mime-preview-original-window-configuration) - - -;;; @ entity information -;;; - (defsubst mime-raw-find-entity-from-node-id (entity-node-id &optional message-info) "Return entity from ENTITY-NODE-ID in mime-raw-buffer. @@ -186,6 +162,43 @@ If optional argument MESSAGE-INFO is not specified, message-info)))) +;;; @ in preview-buffer (presentation space) +;;; + +(defvar mime-mother-buffer nil + "Mother buffer corresponding with the (MIME-preview) buffer. +If current MIME-preview buffer is generated by other buffer, such as +message/partial, it is called `mother-buffer'.") +(make-variable-buffer-local 'mime-mother-buffer) + +(defvar mime-raw-buffer nil + "Raw buffer corresponding with the (MIME-preview) buffer.") +(make-variable-buffer-local 'mime-raw-buffer) + +(defvar mime-preview-original-window-configuration nil + "Window-configuration before mime-view-mode is called.") +(make-variable-buffer-local 'mime-preview-original-window-configuration) + +(defun mime-preview-original-major-mode (&optional recursive) + "Return major-mode of original buffer. +If optional argument RECURSIVE is non-nil and current buffer has +mime-mother-buffer, it returns original major-mode of the +mother-buffer." + (if (and recursive mime-mother-buffer) + (save-excursion + (set-buffer mime-mother-buffer) + (mime-preview-original-major-mode recursive) + ) + (save-excursion + (set-buffer + (mime-entity-buffer + (get-text-property (point-min) 'mime-view-entity))) + major-mode))) + + +;;; @ entity information +;;; + (defsubst mime-entity-parent (entity &optional message-info) "Return mother entity of ENTITY. If optional argument MESSAGE-INFO is not specified, @@ -1161,22 +1174,6 @@ It decodes current entity to call internal or external method as ;;; @@ following ;;; -(defun mime-preview-original-major-mode (&optional recursive) - "Return major-mode of original buffer. -If optional argument RECURSIVE is non-nil and current buffer has -mime-mother-buffer, it returns original major-mode of the -mother-buffer." - (if (and recursive mime-mother-buffer) - (save-excursion - (set-buffer mime-mother-buffer) - (mime-preview-original-major-mode recursive) - ) - (save-excursion - (set-buffer - (mime-entity-buffer - (get-text-property (point-min) 'mime-view-entity))) - major-mode))) - (defun mime-preview-follow-current-entity () "Write follow message to current entity. It calls following-method selected from variable