From: morioka Date: Fri, 13 Mar 1998 17:53:13 +0000 (+0000) Subject: Rename `mime-view-cinfo' -> `mime-view-entity-info'. X-Git-Tag: semi-1_1_0~77 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1dfe694a6ddd255698d4c0ce8149e113dcc6ff93;p=elisp%2Fsemi.git Rename `mime-view-cinfo' -> `mime-view-entity-info'. --- diff --git a/mime-play.el b/mime-play.el index 312d900..afc794c 100644 --- a/mime-play.el +++ b/mime-play.el @@ -45,7 +45,7 @@ If MODE is specified, play as it. Default MODE is \"play\"." (or mode (setq mode "play") ) - (let ((cinfo (get-text-property (point) 'mime-view-cinfo))) + (let ((cinfo (get-text-property (point) 'mime-view-entity-info))) (if cinfo (let ((the-buf (current-buffer)) (raw-buffer (get-text-property (point) 'mime-view-raw-buffer)) diff --git a/mime-view.el b/mime-view.el index 387b1a6..cc3176b 100644 --- a/mime-view.el +++ b/mime-view.el @@ -506,7 +506,7 @@ The compressed face will be piped to this command.") (setq ne (point-max)) (widen) (put-text-property nb ne 'mime-view-raw-buffer ibuf) - (put-text-property nb ne 'mime-view-cinfo content) + (put-text-property nb ne 'mime-view-entity-info content) (goto-char ne) )) @@ -846,7 +846,7 @@ button-2 Move to point under the mouse cursor (setq mime-mother-buffer mother) )) (mime-view-define-keymap default-keymap-or-function) - (let ((point (next-single-property-change (point-min) 'mime-view-cinfo))) + (let ((point (next-single-property-change (point-min) 'mime-view-entity-info))) (if point (goto-char point) (goto-char (point-min)) @@ -900,12 +900,12 @@ of the mother-buffer." It calls following-method selected from variable `mime-view-following-method-alist'." (interactive) - (let ((root-cinfo (get-text-property (point-min) 'mime-view-cinfo)) + (let ((root-cinfo (get-text-property (point-min) 'mime-view-entity-info)) cinfo) - (while (null (setq cinfo (get-text-property (point) 'mime-view-cinfo))) + (while (null (setq cinfo (get-text-property (point) 'mime-view-entity-info))) (backward-char) ) - (let* ((p-beg (previous-single-property-change (point) 'mime-view-cinfo)) + (let* ((p-beg (previous-single-property-change (point) 'mime-view-entity-info)) p-end (rcnum (mime-entity-info-reversed-number cinfo)) (len (length rcnum)) @@ -913,16 +913,16 @@ It calls following-method selected from variable (cond ((null p-beg) (setq p-beg (if (eq (next-single-property-change (point-min) - 'mime-view-cinfo) + 'mime-view-entity-info) (point)) (point) (point-min))) ) - ((eq (next-single-property-change p-beg 'mime-view-cinfo) + ((eq (next-single-property-change p-beg 'mime-view-entity-info) (point)) (setq p-beg (point)) )) - (setq p-end (next-single-property-change p-beg 'mime-view-cinfo)) + (setq p-end (next-single-property-change p-beg 'mime-view-entity-info)) (cond ((null p-end) (setq p-end (point-max)) ) @@ -936,11 +936,11 @@ It calls following-method selected from variable (let (e) (while (setq e (next-single-property-change - (point) 'mime-view-cinfo)) + (point) 'mime-view-entity-info)) (goto-char e) (let ((rc (mime-entity-info-reversed-number (get-text-property (point) - 'mime-view-cinfo)))) + 'mime-view-entity-info)))) (or (equal rcnum (nthcdr (- (length rc) len) rc)) (throw 'tag nil) )) @@ -1050,18 +1050,18 @@ It calls following-method selected from variable If there is no upper entity, call function `mime-preview-quit'." (interactive) (let (cinfo) - (while (null (setq cinfo (get-text-property (point) 'mime-view-cinfo))) + (while (null (setq cinfo (get-text-property (point) 'mime-view-entity-info))) (backward-char) ) (let ((r (mime-raw-reversed-entity-number-to-entity-info (cdr (mime-entity-info-reversed-number cinfo)) - (get-text-property 1 'mime-view-cinfo))) + (get-text-property 1 'mime-view-entity-info))) point) (catch 'tag (while (setq point (previous-single-property-change - (point) 'mime-view-cinfo)) + (point) 'mime-view-entity-info)) (goto-char point) - (if (eq r (get-text-property (point) 'mime-view-cinfo)) + (if (eq r (get-text-property (point) 'mime-view-entity-info)) (throw 'tag t) ) ) @@ -1073,10 +1073,10 @@ If there is no upper entity, call function `mime-preview-quit'." If there is no previous entity, it calls function registered in variable `mime-view-over-to-previous-method-alist'." (interactive) - (while (null (get-text-property (point) 'mime-view-cinfo)) + (while (null (get-text-property (point) 'mime-view-entity-info)) (backward-char) ) - (let ((point (previous-single-property-change (point) 'mime-view-cinfo))) + (let ((point (previous-single-property-change (point) 'mime-view-entity-info))) (if point (goto-char point) (let ((f (assq mime-preview-original-major-mode @@ -1091,7 +1091,7 @@ variable `mime-view-over-to-previous-method-alist'." If there is no previous entity, it calls function registered in variable `mime-view-over-to-next-method-alist'." (interactive) - (let ((point (next-single-property-change (point) 'mime-view-cinfo))) + (let ((point (next-single-property-change (point) 'mime-view-entity-info))) (if point (goto-char point) (let ((f (assq mime-preview-original-major-mode @@ -1116,7 +1116,7 @@ If reached to (point-max), it calls function registered in variable (funcall (cdr f)) )) (let ((point - (or (next-single-property-change (point) 'mime-view-cinfo) + (or (next-single-property-change (point) 'mime-view-entity-info) (point-max)))) (forward-line h) (if (> (point) point) @@ -1144,7 +1144,7 @@ If reached to (point-min), it calls function registered in variable (while (> (point) 1) (if (setq point (previous-single-property-change (point) - 'mime-view-cinfo)) + 'mime-view-entity-info)) (throw 'tag t) ) (backward-char)