From: morioka <morioka>
Date: Sat, 13 Jun 1998 14:57:58 +0000 (+0000)
Subject: Abolish variable `mime-view-show-summary-method' and function
X-Git-Tag: semi-1_6_0~19
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=57b33097cb2d903b997475907e9fffbbf7230b12;p=elisp%2Fsemi.git

Abolish variable `mime-view-show-summary-method' and function
`mime-preview-show-summary'.
---

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))