projects
/
elisp
/
semi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
bbda175
)
Variable `mime-view-content-button-ignored-ctype-list' was abolished.
author
morioka
<morioka>
Mon, 17 Mar 1997 13:35:07 +0000
(13:35 +0000)
committer
morioka
<morioka>
Mon, 17 Mar 1997 13:35:07 +0000
(13:35 +0000)
mime-view.el
patch
|
blob
|
history
diff --git
a/mime-view.el
b/mime-view.el
index
c44d719
..
b129e39
100644
(file)
--- 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
;; Created: 1994/7/13
;; Renamed: 1994/8/31 from tm-body.el
;; Renamed: 1997/02/19 from tm-view.el
-;; Version: $Revision: 0.42 $
+;; Version: $Revision: 0.43 $
;; Keywords: MIME, multimedia, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
;; 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
;;;
(defconst mime-view-RCS-ID
- "$Id: mime-view.el,v 0.42 1997-03-17 13:32:52 morioka Exp $")
+ "$Id: mime-view.el,v 0.43 1997-03-17 13:35:07 morioka Exp $")
(defconst mime-view-version (get-version-string mime-view-RCS-ID))
(defconst mime-view-version (get-version-string mime-view-RCS-ID))
@@
-148,9
+148,6
@@
"*List of media-types to be able to display in MIME-View buffer.
Each elements are string of TYPE/SUBTYPE, e.g. \"text/plain\".")
"*List of media-types to be able to display in MIME-View buffer.
Each elements are string of TYPE/SUBTYPE, e.g. \"text/plain\".")
-(defvar mime-view-content-button-ignored-ctype-list
- '("application/x-selection"))
-
(defvar mime-view-content-button-visible-ctype-list
'("application/pgp"))
(defvar mime-view-content-button-visible-ctype-list
'("application/pgp"))
@@
-284,11
+281,9
@@
Each elements are regexp of field-name. [mime-view.el]")
(rcnum cinfo ctype params subj encoding)
"Insert entity button conditionally."
(if (and (consp rcnum)
(rcnum cinfo ctype params subj encoding)
"Insert entity button conditionally."
(if (and (consp rcnum)
- (not (member
- ctype
- mime-view-content-button-ignored-ctype-list)))
- (mime-view-insert-entity-button
- rcnum cinfo ctype params subj encoding)
+ (not (string= ctype "application/x-selection"))
+ )
+ (mime-view-insert-entity-button rcnum cinfo ctype params subj encoding)
))
))