From 1e02516527b56a5b7c895a6eeebb060c5ac54413 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 18 Feb 2000 08:21:43 +0000 Subject: [PATCH] (mime-view-define-keymap): Change binding of `mime-preview-toggle-content' from C-c C-t C-b to C-c C-t C-c. (mime-preview-toggle-content): Renamed from `mime-preview-toggle-body'. --- mime-view.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/mime-view.el b/mime-view.el index 5f08648..d51abf7 100644 --- a/mime-view.el +++ b/mime-view.el @@ -1142,7 +1142,7 @@ MEDIA-TYPE must be (TYPE . SUBTYPE), TYPE or t. t means default." (define-key mime-view-mode-map "\C-c\C-t\C-h" (function mime-preview-toggle-header)) (define-key mime-view-mode-map - "\C-c\C-t\C-b" (function mime-preview-toggle-body)) + "\C-c\C-t\C-c" (function mime-preview-toggle-content)) (define-key mime-view-mode-map "a" (function mime-preview-follow-current-entity)) (define-key mime-view-mode-map @@ -1709,7 +1709,7 @@ If LINES is negative, scroll up LINES lines." (add-to-list 'mime-preview-situation-example-list (cons situation 0)))))) -(defun mime-preview-toggle-body () +(defun mime-preview-toggle-content () (interactive) (let ((situation (mime-preview-find-boundary-info)) entity p-beg p-end) -- 1.7.10.4