From d52a22861beba8d4eb3c41c6a41601da7c138554 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 18 Mar 1997 14:47:23 +0000 Subject: [PATCH] `mime::article/preview-buffer' -> `mime-view-buffer'. --- mime-bbdb.el | 8 ++++---- mime-pgp.el | 8 ++++---- mime-play.el | 16 ++++++++-------- mime-tar.el | 4 ++-- mime-view.el | 11 ++++++----- 5 files changed, 24 insertions(+), 23 deletions(-) diff --git a/mime-bbdb.el b/mime-bbdb.el index 46b9b19..b6695b0 100644 --- a/mime-bbdb.el +++ b/mime-bbdb.el @@ -7,7 +7,7 @@ ;; Author: Shuhei KOBAYASHI ;; Artur Pioro ;; Maintainer: Shuhei KOBAYASHI -;; Version: $Id: mime-bbdb.el,v 0.2 1997-03-03 19:02:54 morioka Exp $ +;; Version: $Id: mime-bbdb.el,v 0.3 1997-03-18 14:44:39 morioka Exp $ ;; Keywords: BBDB, MIME, multimedia, multilingual, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -158,9 +158,9 @@ Creating or modifying it as necessary. A record will be created if mime-bbdb/auto-create-p is non-nil, or if OFFER-TO-CREATE is non-nil and the user confirms the creation." (save-excursion - (if (and mime::article/preview-buffer - (get-buffer mime::article/preview-buffer)) - (set-buffer mime::article/preview-buffer)) + (if (and mime-view-buffer + (get-buffer mime-view-buffer)) + (set-buffer mime-view-buffer)) (if bbdb-use-pop-up (mime-bbdb/pop-up-bbdb-buffer offer-to-create) (let* ((from (std11-field-body "From")) diff --git a/mime-pgp.el b/mime-pgp.el index e82214a..56d799f 100644 --- a/mime-pgp.el +++ b/mime-pgp.el @@ -5,7 +5,7 @@ ;; Author: MORIOKA Tomohiko ;; Created: 1995/12/7 ;; Renamed: 1997/2/27 from tm-pgp.el -;; Version: $Id: mime-pgp.el,v 0.14 1997-03-18 09:47:36 morioka Exp $ +;; Version: $Id: mime-pgp.el,v 0.15 1997-03-18 14:45:47 morioka Exp $ ;; Keywords: PGP, security, MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -50,11 +50,11 @@ (defun mime-article/view-application/pgp (beg end cal) (let* ((cnum (mime-article/point-content-number beg)) - (p-win (or (get-buffer-window mime::article/preview-buffer) + (p-win (or (get-buffer-window mime-view-buffer) (get-largest-window))) (new-name (format "%s-%s" (buffer-name) cnum)) (the-buf (current-buffer)) - (mother mime::article/preview-buffer) + (mother mime-view-buffer) (mode major-mode) text-decoder) (set-buffer (get-buffer-create new-name)) @@ -100,7 +100,7 @@ (setq major-mode 'mime-show-message-mode) (setq mime-text-decoder text-decoder) (save-window-excursion (mime-view-mode mother)) - (set-window-buffer p-win mime::article/preview-buffer) + (set-window-buffer p-win mime-view-buffer) )) (set-atype 'mime/content-decoding-condition diff --git a/mime-play.el b/mime-play.el index 0e93b3b..7c4042b 100644 --- a/mime-play.el +++ b/mime-play.el @@ -5,7 +5,7 @@ ;; Author: MORIOKA Tomohiko ;; Created: 1995/9/26 (separated from tm-view.el) ;; Renamed: 1997/2/21 from tm-play.el -;; Version: $Id: mime-play.el,v 0.26 1997-03-18 09:50:47 morioka Exp $ +;; Version: $Id: mime-play.el,v 0.27 1997-03-18 14:46:40 morioka Exp $ ;; Keywords: MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -177,7 +177,7 @@ If MODE is specified, play as it. Default MODE is \"play\"." (setq win (get-buffer-window bbdb-buffer-name)) ) (set-window-buffer win mime/output-buffer-name) - (select-window (get-buffer-window mime::article/preview-buffer)) + (select-window (get-buffer-window mime-view-buffer)) (setq win (split-window-vertically (/ (* (window-height) 3) 4))) (set-window-buffer win mime/output-buffer-name) )) @@ -247,7 +247,7 @@ It is registered to variable `mime-view-quitting-method-alist'." (defun mime-article/view-message/rfc822 (beg end cal) (let* ((cnum (mime-article/point-content-number beg)) (new-name (format "%s-%s" (buffer-name) cnum)) - (mother mime::article/preview-buffer) + (mother mime-view-buffer) (text-decoder (cdr (or (assq major-mode mime-text-decoder-alist) (assq t mime-text-decoder-alist)))) @@ -292,7 +292,7 @@ It is registered to variable `mime-view-quitting-method-alist'." (number (cdr (assoc "number" cal))) (total (cdr (assoc "total" cal))) file - (mother mime::article/preview-buffer) + (mother mime-view-buffer) ) (or (file-exists-p root-dir) (make-directory root-dir) @@ -318,7 +318,7 @@ It is registered to variable `mime-view-quitting-method-alist'." (set-window-buffer pwin (save-excursion (set-buffer full-buf) - mime::article/preview-buffer)) + mime-view-buffer)) (select-window pwin) ) (re-search-forward "^$") @@ -390,7 +390,7 @@ It is registered to variable `mime-view-quitting-method-alist'." )) (pbuf (save-excursion (set-buffer full-buf) - mime::article/preview-buffer))) + mime-view-buffer))) (set-window-buffer pwin pbuf) (select-window pwin) ))))) @@ -407,7 +407,7 @@ It is registered to variable `mime-view-quitting-method-alist'." )) (defun mime-article/dired-function-for-one-frame (dir) - (let ((win (or (get-buffer-window mime::article/preview-buffer) + (let ((win (or (get-buffer-window mime-view-buffer) (get-largest-window)))) (select-window win) (dired dir) @@ -452,7 +452,7 @@ It is registered to variable `mime-view-quitting-method-alist'." (defun mime-article/decode-caesar (beg end cal) (let* ((cnum (mime-article/point-content-number beg)) (new-name (format "%s-%s" (buffer-name) cnum)) - (mother mime::article/preview-buffer) + (mother mime-view-buffer) (charset (cdr (assoc "charset" cal))) (encoding (cdr (assq 'encoding cal))) (mode major-mode) diff --git a/mime-tar.el b/mime-tar.el index 1daf4a3..683f1f3 100644 --- a/mime-tar.el +++ b/mime-tar.el @@ -5,7 +5,7 @@ ;; Author: Hiroshi Ueno ;; modified by MORIOKA Tomohiko ;; Renamed: 1997/2/26 from tm-tar.el -;; Version: $Id: mime-tar.el,v 0.4 1997-03-15 20:33:06 morioka Exp $ +;; Version: $Id: mime-tar.el,v 0.5 1997-03-18 14:47:23 morioka Exp $ ;; Keywords: tar, tar+gzip, MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -307,7 +307,7 @@ (setq mime-button-mother-dispatcher 'mime-tar-mouse-button-2) )) (mime-tar-set-properties) - (mime-tar-mode mime::article/preview-buffer) + (mime-tar-mode mime-view-buffer) (kill-buffer mime-tar-view-buffer) (kill-buffer mime-tar-list-buffer) (delete-file mime-tar-file-name) diff --git a/mime-view.el b/mime-view.el index 651354d..57f070c 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.71 $ +;; Version: $Revision: 0.72 $ ;; 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.71 1997-03-18 14:32:53 morioka Exp $") + "$Id: mime-view.el,v 0.72 1997-03-18 14:40:11 morioka Exp $") (defconst mime-view-version (get-version-string mime-view-RCS-ID)) @@ -359,8 +359,9 @@ message/rfc822, content-infos of other entities are included in `children', so content-info become a tree.") (make-variable-buffer-local 'mime::article/content-info) -(defvar mime::article/preview-buffer nil) -(make-variable-buffer-local 'mime::article/preview-buffer) +(defvar mime-view-buffer nil + "MIME View buffer corresponding with the buffer.") +(make-variable-buffer-local 'mime-view-buffer) ;;; @@@ in view buffer @@ -456,7 +457,7 @@ The compressed face will be piped to this command.") (or mime-view-redisplay (setq mime::article/content-info (mime-parse-message ctl encoding)) ) - (setq mime::article/preview-buffer (mime-view-make-preview-buffer obuf)) + (setq mime-view-buffer (mime-view-make-preview-buffer obuf)) ) (defun mime-view-make-preview-buffer (&optional obuf) -- 1.7.10.4