From 57b33097cb2d903b997475907e9fffbbf7230b12 Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 13 Jun 1998 14:57:58 +0000 Subject: [PATCH] Abolish variable `mime-view-show-summary-method' and function `mime-preview-show-summary'. --- mime-view.el | 16 ---------------- 1 file changed, 16 deletions(-) diff --git a/mime-view.el b/mime-view.el index 04ddfe3..d832f98 100644 --- a/mime-view.el +++ b/mime-view.el @@ -806,9 +806,6 @@ MEDIA-TYPE must be (TYPE . SUBTYPE), TYPE or t. t means default." (defvar mime-view-over-to-previous-method-alist nil) (defvar mime-view-over-to-next-method-alist nil) -(defvar mime-view-show-summary-method nil - "Alist of major-mode vs. show-summary-method.") - ;;; @ following method ;;; @@ -1014,8 +1011,6 @@ The compressed face will be piped to this command.") (define-key mime-view-mode-map "q" (function mime-preview-quit)) (define-key mime-view-mode-map - "h" (function mime-preview-show-summary)) - (define-key mime-view-mode-map "\C-c\C-x" (function mime-preview-kill-buffer)) ;; (define-key mime-view-mode-map ;; "<" (function beginning-of-buffer)) @@ -1475,17 +1470,6 @@ It calls function registered in variable (funcall (cdr r)) ))) -(defun mime-preview-show-summary () - "Show summary. -It calls function registered in variable -`mime-view-show-summary-method'." - (interactive) - (let ((r (assq (mime-preview-original-major-mode) - mime-view-show-summary-method))) - (if r - (funcall (cdr r)) - ))) - (defun mime-preview-kill-buffer () (interactive) (kill-buffer (current-buffer)) -- 1.7.10.4