From: morioka Date: Mon, 9 Mar 1998 17:41:29 +0000 (+0000) Subject: tm 7.52.2. X-Git-Tag: tm7_52_2~1 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ad70c7508648f96247524e2074e285be9275bb62;p=elisp%2Ftm.git tm 7.52.2. --- diff --git a/ChangeLog b/ChangeLog index 7091546..c1dde94 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,43 @@ +Thu Apr 25 12:10:01 1996 MORIOKA Tomohiko + + * tl: Version 7.19.3 was released. + * tm: Version 7.52.2 was released. + * tm/gnus: Version 7.53 was released. + +Wed Apr 24 12:57:47 1996 MORIOKA Tomohiko + + * doc/tm_en.texi, doc/tm_ja.texi: fixed bug-tm addresses. + +Wed Apr 24 11:30:54 1996 MORIOKA Tomohiko + + * tm-ew-e.el (tm-eword::encode-string-1): use function `sref'. + + * tm-ew-e.el (tm-eword::parse-lc-word): New implementation. + +Tue Apr 23 22:52:55 1996 MORIOKA Tomohiko + + * tm-view.el (mime-viewer/content-filter-alist): set nil as + initial value. + (mime-viewer/default-content-filter): Use function + `mime-viewer/filter-text/plain'. + +Tue Apr 23 06:34:57 1996 Shuhei KOBAYASHI + + * tm-bbdb.el (tm-bbdb/extract-address-components): If address is + null string, return nil. + +Tue Apr 23 00:15:47 1996 MORIOKA Tomohiko + + * tm-def.el (mime/lc-charset-alist): add "BIG5". + (mime/charset-type-list): add "BIG5". + (mime/charset-coding-system-alist): add "BIG5". + +Mon Apr 22 21:43:44 1996 MORIOKA Tomohiko + + * tm-view.el (mime-viewer/content-filter-alist): use + `mime-viewer/filter-text/plain' for "application/octet-stream". + + Mon Apr 22 12:40:55 1996 MORIOKA Tomohiko * tm: Version 7.52.1 was released. diff --git a/Makefile b/Makefile index 154dede..0b780db 100644 --- a/Makefile +++ b/Makefile @@ -47,7 +47,7 @@ TL_FILES = tl/README.en tl/Makefile tl/mk-tl tl/tl-els tl/*.el \ FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES) -TARFILE = tm7.52.1.tar.gz +TARFILE = tm7.52.2.tar.gz elc: $(EMACS) $(FLAGS) -l inst-tm -f compile-tm diff --git a/TM-CFG b/TM-CFG index c8e92f5..8b21eaa 100644 --- a/TM-CFG +++ b/TM-CFG @@ -44,6 +44,7 @@ ;; Please specify install path prefix. ;;(setq PREFIX "~/") ; install to you home directory (setq PREFIX "/usr/local/") ; install to shared directory +;;(setq PREFIX "/lab/local/") ;; Please specify tm package prefix [optional] (setq TM_PACKAGE_PREFIX "") diff --git a/doc/tm_en.texi b/doc/tm_en.texi index 867ec3c..375a930 100644 --- a/doc/tm_en.texi +++ b/doc/tm_en.texi @@ -6,7 +6,7 @@ @titlepage @title tm Manual (English Version) @author by MORIOKA Tomohiko -@code{$Id: tm_en.texi,v 7.13 1996/04/11 17:22:35 morioka Exp $} +@code{$Id: tm_en.texi,v 7.14 1996/04/24 12:57:47 morioka Exp $} @end titlepage @@ -351,11 +351,11 @@ Please report tm bugs you find to fj.editor.emacs or send a mail to: @itemize @bullet @item Japanese or English - + @item English - + @end itemize Via tm ML, You can report bugs of tm, obtain the latest release of tm diff --git a/doc/tm_ja.texi b/doc/tm_ja.texi index d85441b..3ad48d7 100644 --- a/doc/tm_ja.texi +++ b/doc/tm_ja.texi @@ -6,7 +6,7 @@ @titlepage @title{tm Manual¡ÊÆüËܸìÈÇ¡Ë} @author{¼é²¬ ÃÎɧ Ãø} -@code{$Id: tm_ja.texi,v 7.7 1996/04/11 16:48:21 morioka Exp $} +@code{$Id: tm_ja.texi,v 7.8 1996/04/24 12:56:59 morioka Exp $} @end titlepage @@ -406,11 +406,11 @@ tm @itemize @bullet @item ÆüËܸì - + @item ±Ñ¸ì - + @end itemize tm ML ¤Ç¤Ï tm ¤Î¥Ð¥°¾ðÊó¤Î¸ò´¹¤äºÇ¿·ÈǤÎÇÛÉÛ¡¢tm ¤Î²þÎɤ˴ؤ¹¤ëµÄÏÀ¤ò diff --git a/gnus/ChangeLog b/gnus/ChangeLog index a401b52..0fc10f3 100644 --- a/gnus/ChangeLog +++ b/gnus/ChangeLog @@ -1,3 +1,28 @@ +Thu Apr 25 12:07:08 1996 MORIOKA Tomohiko + + * tm/gnus: Version 7.53 was released. + + * tm-sgnus.el: don't use `nnheader-raw-write-region'. + +Wed Apr 24 15:21:45 1996 MORIOKA Tomohiko + + * tm-sgnus.el: Use and redefine function + `nnheader-find-file-noselect', `nnheader-insert-raw-file-contents' + and `nnheader-raw-write-region'. + Use `nnmail-prepare-save-mail-hook'. + + +Tue Apr 23 00:17:59 1996 MORIOKA Tomohiko + + * tm/gnus: Version 7.51 was released. + + * tm-sgnus.el (gnus-newsgroup-default-coding-system-alist): + New variable. + (gnus-set-newsgroup-default-coding-system): New function. + Define default coding-system for alt.chinese.text, + alt.chinese.text.big5, han and relcom. + + Mon Apr 15 09:08:57 1996 MORIOKA Tomohiko * tm/gnus: Version 7.49.2 was released. diff --git a/gnus/Makefile b/gnus/Makefile index 08f172d..a8fda91 100644 --- a/gnus/Makefile +++ b/gnus/Makefile @@ -30,7 +30,7 @@ FILES = tm/gnus/Makefile tm/gnus/*-path tm/gnus/mk-tgnus \ tm/gnus/*.el tm/gnus/ChangeLog tm/doc/tm-gnus*.texi -TARFILE = tm-gnus7.49.2.tar +TARFILE = tm-gnus7.53.tar gnus: diff --git a/gnus/s-path b/gnus/s-path index 02dbc04..d9c3c53 100644 --- a/gnus/s-path +++ b/gnus/s-path @@ -9,7 +9,10 @@ ;; please edit ;; It is for latest September Gnus. -(add-path (expand-file-name "lisp/" (get-latest-path "sgnus"))) +(let ((path (get-latest-path "sgnus"))) + (if path + (add-path (expand-file-name "lisp/" path)) + )) ;; It is relative style. Added path is searched from load-path. ;; (add-path "sgnus-0.69/lisp/" 'all-paths) diff --git a/gnus/tm-sgnus.el b/gnus/tm-sgnus.el index 34843b9..73cddf5 100644 --- a/gnus/tm-sgnus.el +++ b/gnus/tm-sgnus.el @@ -7,7 +7,7 @@ ;;; Author: MORIOKA Tomohiko ;;; Maintainer: MORIOKA Tomohiko ;;; Created: 1995/09/24 -;;; Version: $Revision: 7.50 $ +;;; Version: $Revision: 7.53 $ ;;; Keywords: news, MIME, multimedia, multilingual, encoded-word ;;; ;;; This file is part of tm (Tools for MIME). @@ -41,7 +41,7 @@ ;;; (defconst tm-gnus/RCS-ID - "$Id: tm-sgnus.el,v 7.50 1996/04/11 16:10:56 morioka Exp $") + "$Id: tm-sgnus.el,v 7.53 1996/04/25 12:07:08 morioka Exp $") (defconst tm-gnus/version (concat (get-version-string tm-gnus/RCS-ID) " for September")) @@ -186,7 +186,11 @@ This variable is set to `gnus-show-mime'.") (make-local-variable 'tm:mother-button-dispatcher) (setq tm:mother-button-dispatcher (function gnus-article-push-button)) - (let ((mime-viewer/ignored-field-regexp "^:$")) + (let ((mime-viewer/ignored-field-regexp "^:$") + (mime/default-coding-system + (save-excursion + (set-buffer gnus-summary-buffer) + mime/default-coding-system))) (mime/viewer-mode nil nil nil gnus-original-article-buffer gnus-article-buffer) ) @@ -197,8 +201,11 @@ This variable is set to `gnus-show-mime'.") (setq gnus-show-mime-method (function tm-gnus/preview-article)) (defun tm-gnus/article-decode-encoded-word () - (tm-gnus/code-convert-region-to-emacs (point-min)(point-max) - mime/default-coding-system) + (code-convert-region (point-min)(point-max) + (save-excursion + (set-buffer gnus-summary-buffer) + mime/default-coding-system) + *internal*) (mime/decode-message-header) (run-hooks 'tm-gnus/article-prepare-hook) ) @@ -206,96 +213,148 @@ This variable is set to `gnus-show-mime'.") (setq gnus-decode-encoded-word-method (function tm-gnus/article-decode-encoded-word)) -(if (boundp 'MULE) - (progn - (define-service-coding-system gnus-nntp-service nil *noconv*) - (if (and (boundp 'nntp-server-process) - (processp nntp-server-process) - ) - (set-process-coding-system nntp-server-process *noconv* *noconv*) - ) - - (or (fboundp 'tm-gnus/original-request-article) - (fset 'tm-gnus/original-request-article - (symbol-function 'gnus-request-article)) - ) - - (defun gnus-request-article (article group &optional buffer) - (let ((file-coding-system-for-read *noconv*)) - (tm-gnus/original-request-article article group buffer) - )) - - (defun tm-gnus/prepare-save-mail-function () - (setq file-coding-system *noconv*) - ) - (add-hook 'nnmbox-prepare-save-mail-hook - 'tm-gnus/prepare-save-mail-function) - (add-hook 'nnbabyl-prepare-save-mail-hook - 'tm-gnus/prepare-save-mail-function) - (add-hook 'nnml-prepare-save-mail-hook - 'tm-gnus/prepare-save-mail-function) - (add-hook 'nnmh-prepare-save-mail-hook - 'tm-gnus/prepare-save-mail-function) - (add-hook 'nnfolder-prepare-save-mail-hook - 'tm-gnus/prepare-save-mail-function) - - (defun tm-gnus/nnheader-find-file-noselect (&rest args) - (let ((file-coding-system-for-read *noconv*)) - (apply (function find-file-noselect) args) - )) - (eval-after-load - "nnheader" - '(fset 'nnheader-find-file-noselect - 'tm-gnus/nnheader-find-file-noselect) - ) - - (defun tm-gnus/nnmail-get-new-mail (&rest args) - (let ((file-coding-system-for-read *noconv*)) - (apply (function tm-gnus/original-nnmail-get-new-mail) args) - )) - (eval-after-load - "nnmail" - '(progn (or (fboundp 'tm-gnus/original-nnmail-get-new-mail) - (fset 'tm-gnus/original-nnmail-get-new-mail - (symbol-function 'nnmail-get-new-mail)) - ) - (fset 'nnmail-get-new-mail 'tm-gnus/nnmail-get-new-mail) - )) - )) +;; (if (boundp 'MULE) +;; (progn +;; (define-service-coding-system gnus-nntp-service nil *noconv*) +;; (if (and (boundp 'nntp-server-process) +;; (processp nntp-server-process) +;; ) +;; (set-process-coding-system nntp-server-process *noconv* *noconv*) +;; ) +;; +;; (or (fboundp 'tm-gnus/original-request-article) +;; (fset 'tm-gnus/original-request-article +;; (symbol-function 'gnus-request-article)) +;; ) +;; +;; (defun gnus-request-article (article group &optional buffer) +;; (let ((file-coding-system-for-read *noconv*)) +;; (tm-gnus/original-request-article article group buffer) +;; )) +;; +;; (defun tm-gnus/nnheader-find-file-noselect (&rest args) +;; (let ((file-coding-system-for-read *noconv*)) +;; (apply (function find-file-noselect) args) +;; )) +;; (eval-after-load +;; "nnheader" +;; '(fset 'nnheader-find-file-noselect +;; 'tm-gnus/nnheader-find-file-noselect) +;; ) +;; +;; (defun tm-gnus/nnmail-get-new-mail (&rest args) +;; (let ((file-coding-system-for-read *noconv*)) +;; (apply (function tm-gnus/original-nnmail-get-new-mail) args) +;; )) +;; (eval-after-load +;; "nnmail" +;; '(progn (or (fboundp 'tm-gnus/original-nnmail-get-new-mail) +;; (fset 'tm-gnus/original-nnmail-get-new-mail +;; (symbol-function 'nnmail-get-new-mail)) +;; ) +;; (fset 'nnmail-get-new-mail 'tm-gnus/nnmail-get-new-mail) +;; )) +;; )) + + +;;; @ for MULE +;;; + +(defvar gnus-newsgroup-default-coding-system-alist nil) + +(defun gnus-set-newsgroup-default-coding-system (ng cs) + "Define CS as default coding system for newsgroup NG." + (set-alist 'gnus-newsgroup-default-coding-system-alist + (concat "^" (regexp-quote ng) "\\($\\|\\.\\)") + cs)) + +(cond + ((boundp 'MULE) + (define-service-coding-system gnus-nntp-service nil *noconv*) + (if (and (boundp 'nntp-server-process) + (processp nntp-server-process) + ) + (set-process-coding-system nntp-server-process *noconv* *noconv*) + ) + (call-after-loaded + 'nnheader + (lambda () + (defun nnheader-find-file-noselect (filename &optional nowarn rawfile) + (let ((file-coding-system-for-read '*noconv*)) + (find-file-noselect filename nowarn rawfile) + )) + (defun nnheader-insert-raw-file-contents + (filename &optional visit beg end replace) + (let ((file-coding-system-for-read '*noconv*)) + (insert-file-contents filename visit beg end replace) + )) + ;;(fset 'nnheader-raw-write-region 'si:write-region) + )) + (defun tm-gnus/prepare-save-mail-function () + (setq file-coding-system *noconv*) + ) + (add-hook 'nnmail-prepare-save-mail-hook + 'tm-gnus/prepare-save-mail-function) + ;; (add-hook 'nnmbox-prepare-save-mail-hook + ;; 'tm-gnus/prepare-save-mail-function) + ;; (add-hook 'nnbabyl-prepare-save-mail-hook + ;; 'tm-gnus/prepare-save-mail-function) + ;; (add-hook 'nnml-prepare-save-mail-hook + ;; 'tm-gnus/prepare-save-mail-function) + ;; (add-hook 'nnmh-prepare-save-mail-hook + ;; 'tm-gnus/prepare-save-mail-function) + ;; (add-hook 'nnfolder-prepare-save-mail-hook + ;; 'tm-gnus/prepare-save-mail-function) + + (gnus-set-newsgroup-default-coding-system "alt.chinese.text" '*hz*) + (gnus-set-newsgroup-default-coding-system "alt.chinese.text.big5" '*big5*) + (gnus-set-newsgroup-default-coding-system "han" '*euc-kr*) + (gnus-set-newsgroup-default-coding-system "relcom" '*koi8*) + )) ;;; @ summary filter ;;; -(cond ((not (boundp 'nnheader-encoded-words-decoding)) - (require 'tm-ew-d) - - (defun tm-gnus/decode-summary-from-and-subjects () - (mapcar - (lambda (header) - (let ((from (or (mail-header-from header) "")) - (subj (or (mail-header-subject header) "")) - (method (car gnus-current-select-method)) - ) - (if (eq method 'nntp) - (progn - (setq from - (code-convert-string - from mime/default-coding-system *internal*)) - (setq subj - (code-convert-string - subj mime/default-coding-system *internal*)) - )) - (mail-header-set-from - header (mime-eword/decode-string from)) - (mail-header-set-subject - header (mime-eword/decode-string subj)) - )) - gnus-newsgroup-headers)) - - (add-hook 'gnus-select-group-hook - (function tm-gnus/decode-summary-from-and-subjects)) +(defun tm-gnus/decode-summary-from-and-subjects () + (let ((rest gnus-newsgroup-default-coding-system-alist) + cell) + (catch 'tag + (while (setq cell (car rest)) + (if (string-match (car cell) gnus-newsgroup-name) + (throw 'tag + (progn + (make-local-variable 'mime/default-coding-system) + (setq mime/default-coding-system (cdr cell)) + ))) + (setq rest (cdr rest)) + ))) + (mapcar + (lambda (header) + (let ((from (or (mail-header-from header) "")) + (subj (or (mail-header-subject header) "")) + (method (car gnus-current-select-method)) + ) + (if (eq method 'nntp) + (progn + (setq from + (code-convert-string + from mime/default-coding-system *internal*)) + (setq subj + (code-convert-string + subj mime/default-coding-system *internal*)) + )) + (mail-header-set-from + header (mime-eword/decode-string from)) + (mail-header-set-subject + header (mime-eword/decode-string subj)) )) + gnus-newsgroup-headers)) + +(or (boundp 'nnheader-encoded-words-decoding) + (add-hook 'gnus-select-group-hook + #'tm-gnus/decode-summary-from-and-subjects) + ) ;;; @ for BBDB diff --git a/inst-tm b/inst-tm index c25c76a..d8763e5 100644 --- a/inst-tm +++ b/inst-tm @@ -1,6 +1,6 @@ ;;; -*-Emacs-Lisp-*- ;;; -;;; $Id: inst-tm,v 5.0 1996/04/21 19:43:46 morioka Exp $ +;;; $Id: inst-tm,v 5.0 1996/04/21 19:43:46 morioka Exp morioka $ ;;; (load-file "TM-CFG") @@ -67,6 +67,7 @@ ) (defun compile-tm () + (print load-path) (require 'tm-rich) (require 'mel-u) (require 'tm-edit) diff --git a/tm-bbdb.el b/tm-bbdb.el index c0bc685..1b0cc46 100644 --- a/tm-bbdb.el +++ b/tm-bbdb.el @@ -8,7 +8,7 @@ ;;; Artur Pioro ;;; modified by Pekka Marjola ;;; Maintainer: KOBAYASHI Shuhei -;;; Version: $Id: tm-bbdb.el,v 7.6 1996/04/19 13:40:17 shuhei-k Exp $ +;;; Version: $Id: tm-bbdb.el,v 7.7 1996/04/23 06:34:57 shuhei-k Exp $ ;;; Keywords: mail, news, MIME, multimedia, multilingual, BBDB ;;; ;;; This file is part of tm (Tools for MIME). @@ -44,14 +44,14 @@ (defun tm-bbdb/extract-address-components (str) (let* ((ret (rfc822/extract-address-components str)) (phrase (car ret)) - (address (cdr ret)) + (address (car (cdr ret))) (methods tm-bbdb/canonicalize-full-name-methods)) (while (and phrase methods) (setq phrase (funcall (car methods) phrase) methods (cdr methods))) - (if (string= phrase "") - (setq phrase nil)) - (cons phrase address) + (if (string= address "") (setq address nil)) + (if (string= phrase "") (setq phrase nil)) + (list phrase address) )) (or tm-bbdb/use-mail-extr diff --git a/tm-def.el b/tm-def.el index c08363f..c605fb5 100644 --- a/tm-def.el +++ b/tm-def.el @@ -6,7 +6,7 @@ ;;; ;;; Author: MORIOKA Tomohiko ;;; Version: -;;; $Id: tm-def.el,v 7.33 1996/04/22 12:40:55 morioka Exp $ +;;; $Id: tm-def.el,v 7.34 1996/04/23 00:15:47 morioka Exp $ ;;; Keywords: mail, news, MIME, multimedia, definition ;;; ;;; This file is part of tm (Tools for MIME). @@ -86,6 +86,9 @@ ((lc-ascii lc-jp) . "ISO-2022-JP") ((lc-ascii lc-kr) . "EUC-KR") ((lc-ascii + lc-big5-1 + lc-big5-2) . "BIG5") + ((lc-ascii lc-jp lc-cn lc-kr lc-jp2 lc-ltn1 lc-grk) . "ISO-2022-JP-2") @@ -132,6 +135,7 @@ ("ISO-2022-JP" 7 "base64") ("ISO-2022-KR" 7 "base64") ("EUC-KR" 8 "base64") + ("BIG5" 8 "base64") ("ISO-2022-JP-2" 7 "base64") ("ISO-2022-INT-1" 7 "base64") )) @@ -183,6 +187,7 @@ ("ISO-2022-INT-1" . *iso-2022-int-1*) ("SHIFT_JIS" . *sjis*) ("X-SHIFTJIS" . *sjis*) + ("BIG5" . *big5*) ))) (defvar mime/default-coding-system *ctext*) diff --git a/tm-ew-e.el b/tm-ew-e.el index 46cbc6d..4fceecd 100644 --- a/tm-ew-e.el +++ b/tm-ew-e.el @@ -6,7 +6,7 @@ ;;; Copyright (C) 1993 .. 1996 MORIOKA Tomohiko ;;; ;;; Author: MORIOKA Tomohiko -;;; Version: $Revision: 7.14 $ +;;; Version: $Revision: 7.16 $ ;;; Keywords: mail, news, MIME, RFC 1522, multilingual, encoded-word ;;; ;;; This file is part of tm (Tools for MIME). @@ -36,7 +36,7 @@ ;;; (defconst tm-ew-e/RCS-ID - "$Id: tm-ew-e.el,v 7.14 1996/04/13 04:02:36 morioka Exp $") + "$Id: tm-ew-e.el,v 7.16 1996/04/24 11:30:54 morioka Exp $") (defconst mime-eword/encoder-version (get-version-string tm-ew-e/RCS-ID)) @@ -92,20 +92,18 @@ )) (defun tm-eword::parse-lc-word (str) - (let* ((rest (string-to-char-list str)) - (chr (car rest)) + (let* ((chr (sref str 0)) (lc (tm-eword::char-type chr)) - (p (char-bytes chr)) + (i (char-bytes chr)) + (len (length str)) ) - (catch 'tag - (while (setq rest (cdr rest)) - (setq chr (car rest)) - (if (not (eq lc (tm-eword::char-type chr))) - (throw 'tag nil) - ) - (setq p (+ p (char-bytes chr))) - )) - (cons (cons lc (substring str 0 p)) (substring str p)) + (while (and (< i len) + (setq chr (sref str i)) + (eq lc (tm-eword::char-type chr)) + ) + (setq i (+ i (char-bytes chr))) + ) + (cons (cons lc (substring str 0 i)) (substring str i)) )) (defun tm-eword::split-to-lc-words (str) @@ -289,33 +287,30 @@ ) (t (setq string (car rword)) - (let* ((ls (reverse (string-to-char-list string))) - (sl (length string)) - (p sl) str) - (while (and ls + (let* ((sl (length string)) + (p 0) + (str "") nstr) + (while (and (< p len) (progn - (setq p (- p (char-bytes (car ls)))) - (setq str (substring string 0 p)) + (setq p (+ p (char-bytes (sref string p)))) + (setq nstr (substring string 0 p)) (setq ret (tm-eword::encoded-word-length - (cons str (cdr rword)) + (cons nstr (cdr rword)) )) - (setq str (cdr ret)) + (setq nstr (cdr ret)) (setq len (+ (car ret) column)) - (> len 76) + (<= len 76) )) - (setq ls (cdr ls)) - ) - (if (and ls (not (string= str ""))) - (progn - (setq rwl (cons (cons (substring string p) (cdr rword)) - (cdr rwl))) - (setq string - (tm-eword::encode-encoded-text - (nth 1 rword) (nth 2 rword) str)) - (setq len (+ (length string) column)) - ) - (setq string "\n ") - (setq len 1) + (setq str nstr)) + (if (string-equal str "") + (setq string "\n " + len 1) + (setq rwl (cons (cons (substring string p) (cdr rword)) + (cdr rwl))) + (setq string + (tm-eword::encode-encoded-text + (nth 1 rword) (nth 2 rword) str)) + (setq len (+ (length string) column)) ) ))) ) diff --git a/tm-view.el b/tm-view.el index 4e88e2b..ce0f483 100644 --- a/tm-view.el +++ b/tm-view.el @@ -8,7 +8,7 @@ ;;; modified by Steven L. Baur ;;; Maintainer: MORIOKA Tomohiko ;;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el) -;;; Version: $Revision: 7.50 $ +;;; Version: $Revision: 7.52 $ ;;; Keywords: mail, news, MIME, multimedia ;;; ;;; This file is part of tm (Tools for MIME). @@ -44,7 +44,7 @@ ;;; (defconst mime-viewer/RCS-ID - "$Id: tm-view.el,v 7.50 1996/04/21 17:33:21 morioka Exp $") + "$Id: tm-view.el,v 7.52 1996/04/23 22:52:55 morioka Exp $") (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID)) (defconst mime/viewer-version mime-viewer/version) @@ -276,12 +276,10 @@ Each elements are regexp of field-name. [tm-view.el]") ;;; @@ content filter ;;; -(defvar mime-viewer/content-filter-alist - '(("text/plain" . mime-viewer/filter-text/plain) - ("application/pgp" . mime-viewer/filter-text/plain) - (nil . mime-viewer/filter-text/plain))) +(defvar mime-viewer/content-filter-alist nil) (defun mime-viewer/default-content-filter (rcnum cinfo ctype params subj) + (mime-viewer/filter-text/plain ctype params encoding) )