+Thu Jan 25 03:24:35 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tl: Version 7.10 was released.
+ * tm: Version 7.41.2 was released.
+ * tm/gnus: Version 7.37 was released.
+
+ * tm-view.el (mime-viewer/ignored-field-list): default value was
+ changed.
+
+ * tm-view.el (mime-viewer/visible-field-regexp): default value was
+ changed.
+
+Thu Jan 25 02:32:26 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-mule.el: Definition of variable `mime/default-coding-system'
+ was moved to tm-def.el.
+
+ * tm-def.el (mime/default-coding-system): not only define for MULE
+
+Wed Jan 24 02:20:25 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-bbdb.el (tm-bbdb/use-mail-extr): new variable
+
+Tue Jan 23 13:00:44 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-pgp.el (mime-article/view-application/pgp):
+ fixed about character code
+ conversion.
+
+\f
Tue Jan 23 05:38:46 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
* tm: Version 7.41.1 was released.
FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
-TARFILE = tm7.41.1.tar.gz
+TARFILE = tm7.41.2.tar.gz
18:
+Thu Jan 25 03:21:50 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm/gnus: Version 7.37 was released.
+
+Thu Jan 25 02:41:11 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * Self code conversion for MULE was supported for Gnus 5.[01] and
+ September Gnus.
+
+ * tm-gnus.el (tm-gnus/maybe-code-convert): new function to convert
+ character code for Gnus 5.[01]
+
+ * tm-sgnus.el: Code conversion parts were moved from tm-gd5.el.
+
+ * tm-gd5.el: Code conversion parts were moved from tm-sgnus.el.
+
+ * tm-gd5.el: (tm-gnus/decode-summary-from-and-subjects): convert
+ code in Subject field
+
+Wed Jan 24 14:22:36 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-sgnus.el: self code conversion for MULE
+
+Tue Jan 23 14:08:38 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-gnus.el: redefine function `gnus-article-delete-headers' for
+ GNUS 3.15 .. 4.1.*
+
+\f
Tue Jan 23 04:57:53 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
* tm/gnus: Version 7.34 was released.
FILES = tm/gnus/*.el tm/doc/tm-gnus*.texi
-TARFILE = tm-gnus7.34.tar
+TARFILE = tm-gnus7.37.tar
gnus:
(defun compile-tm-gnus ()
(load "gnus.el")
+ (require 'nntp)
(require 'tm-view)
(require 'tm-partial)
(require 'tm-edit)
;;;
-;;; tm-gd5.el --- tm-gnus module for Gnus 5.*.
+;;; tm-gd5.el --- tm-gnus shared module for Gnus 5.*.
;;;
;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1995 MORIOKA Tomohiko
+;;; Copyright (C) 1995,1996 MORIOKA Tomohiko
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1995/11/19
;;; Version:
-;;; $Id: tm-gd5.el,v 2.0 1995/11/21 02:51:08 morioka Exp $
+;;; $Id: tm-gd5.el,v 4.0 1996/01/25 02:37:43 morioka Exp $
;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
;;;
;;; This file is part of tm (Tools for MIME).
;;; You should have received a copy of the GNU General Public License
;;; along with This program. If not, write to the Free Software
;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;;;
+;;; Code:
(cond ((not (boundp 'nnheader-encoded-words-decoding))
(require 'tm-ew-d)
(mail-header-set-subject
header
(if subj
- (mime-eword/decode-string subj)
+ (mime-eword/decode-string
+ (code-convert-string
+ subj mime/default-coding-system *internal*))
""))
))
- gnus-newsgroup-headers)
- )
+ gnus-newsgroup-headers))
(add-hook 'gnus-select-group-hook
(function tm-gnus/decode-summary-from-and-subjects))
))
+(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)
+ ))
+ ))
+
+(fset 'tm-gnus/code-convert-region-to-emacs
+ (symbol-function 'mime/code-convert-region-to-emacs))
+
+(defun tm-gnus/content-header-filter ()
+ (goto-char (point-min))
+ (mime-preview/cut-header)
+ (tm-gnus/code-convert-region-to-emacs (point-min)(point-max)
+ mime/default-coding-system)
+ (mime/decode-message-header)
+ )
+
+
;;; @ end
;;;
(provide 'tm-gd5)
+
+;;; tm-gd5.el ends here
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1993/11/20 (obsolete mol's gnus-mime.el)
;;; Version:
-;;; $Id: tm-gnus.el,v 7.14 1996/01/20 02:23:40 morioka Exp $
+;;; $Id: tm-gnus.el,v 7.16 1996/01/25 02:41:11 morioka Exp $
;;; Keywords: news, MIME, multimedia, encoded-word, multilingual
;;;
;;; This file is part of tm (Tools for MIME).
;; for Gnus 5.0 .. 5.1.*
(require 'tm-gd5)
(require 'tm-gnus4)
+
+ (set-alist 'mime-viewer/content-header-filter-alist
+ 'gnus-article-mode
+ (function tm-gnus/content-header-filter))
+ (set-alist 'mime-viewer/code-converter-alist
+ 'gnus-article-mode
+ (function tm-gnus/code-convert-region-to-emacs))
+
+ (defvar tm-gnus/code-converted nil)
+ (defun tm-gnus/maybe-code-convert ()
+ (or tm-gnus/automatic-mime-preview
+ (let ((mid (rfc822/get-field-body "Message-Id")))
+ (or
+ (and tm-gnus/code-converted
+ (string-equal tm-gnus/code-converted mid))
+ (progn
+ (tm-gnus/code-convert-region-to-emacs
+ (point-min)(point-max)
+ mime/default-coding-system)
+ (tm-gnus/decode-encoded-word-if-you-need)
+ (setq tm-gnus/code-converted mid)
+ )))))
+ (add-hook 'gnus-article-display-hook 'tm-gnus/maybe-code-convert)
)
((fboundp 'gnus-article-prepare)
;; for GNUS 3.15 .. 4.*
(fset 'gnus-article-set-mode-line
(function tm-gnus/article-set-mode-line))
+ (or (fboundp 'tm:gnus-article-delete-headers)
+ (fset 'tm:gnus-article-delete-headers
+ (symbol-function 'gnus-article-delete-headers))
+ )
+ (defun gnus-article-delete-headers ()
+ (or tm-gnus/automatic-mime-preview
+ (tm:gnus-article-delete-headers)
+ ))
+
(require 'gnuspost)
(or (fboundp 'tm-gnus/original-news-reply)
(fset 'tm-gnus/original-news-reply
;;; tm-sgnus.el --- tm-gnus module for September Gnus
;;;
;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1995 MORIOKA Tomohiko
+;;; Copyright (C) 1995,1996 MORIOKA Tomohiko
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; MURATA Masahiro <murata@sol.cs.ritsumei.ac.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1995/09/24
-;;; Version: $Revision: 7.34 $
+;;; Version: $Revision: 7.37 $
;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
;;;
;;; This file is part of tm (Tools for MIME).
;;;
(defconst tm-gnus/RCS-ID
- "$Id: tm-sgnus.el,v 7.34 1996/01/23 04:57:53 morioka Exp $")
+ "$Id: tm-sgnus.el,v 7.37 1996/01/25 03:21:50 morioka Exp $")
(defconst tm-gnus/version
(concat (get-version-string tm-gnus/RCS-ID) " for September"))
;;; @ for tm-view
;;;
+(set-alist 'mime-viewer/content-header-filter-alist
+ 'gnus-original-article-mode
+ (function tm-gnus/content-header-filter))
+
+(set-alist 'mime-viewer/code-converter-alist
+ 'gnus-original-article-mode
+ (function tm-gnus/code-convert-region-to-emacs))
+
(defun mime-viewer/quitting-method-for-sgnus ()
(if (not gnus-show-mime)
(mime-viewer/kill-buffer))
(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)
(mime/decode-message-header)
(run-hooks 'tm-gnus/article-prepare-hook)
)
;;;
-;;; tm-bbdb.el --- tm shred module for BBDB
+;;; tm-bbdb.el --- tm shared module for BBDB
;;;
;;; Copyright (C) 1995 KOBAYASHI Shuhei <shuhei@cmpt01.phys.tohoku.ac.jp>
;;;
;;; Author: KOBAYASHI Shuhei <shuhei@cmpt01.phys.tohoku.ac.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Version: $Id: tm-bbdb.el,v 2.0 1996/01/23 04:34:12 morioka Exp $
+;;; Version: $Id: tm-bbdb.el,v 3.0 1996/01/24 02:20:25 morioka Exp $
;;; Keywords: mail, news, MIME, multimedia, multilingual, BBDB
;;;
;;; This file is part of tm (Tools for MIME).
(require 'tl-822)
(require 'tm-ew-d)
+
+;;; @ mail-extr
+;;;
+
+(defvar tm-bbdb/use-mail-extr t)
+
(defun tm-bbdb/extract-address-components (str)
(let* ((ret (rfc822/extract-address-components str))
(phrase (car ret))
(cons phrase address)
))
-(fset 'mail-extract-address-components
- (symbol-function 'tm-bbdb/extract-address-components))
-(provide 'mail-extr)
+(or tm-bbdb/use-mail-extr
+ (progn
+ (fset 'mail-extract-address-components
+ (symbol-function 'tm-bbdb/extract-address-components))
+ (provide 'mail-extr)
+ ))
+
+
+;;; @ bbdb-extract-field-value
+;;;
(or (fboundp 'tm:bbdb-extract-field-value)
(progn
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: tm-def.el,v 7.12 1996/01/12 13:59:13 morioka Exp $
+;;; $Id: tm-def.el,v 7.13 1996/01/25 02:31:19 morioka Exp $
;;; Keywords: mail, news, MIME, multimedia, definition
;;;
;;; This file is part of tm (Tools for MIME).
))
+;;; @ coding-system
+;;;
+
+(defvar mime/default-coding-system *ctext*)
+
+
;;; @ button
;;;
;;; tm-mule.el --- tm definitions depended on Mule
;;;
;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1994,1995,1996 MORIOKA Tomohiko
+;;; Copyright (C) 1994 .. 1996 MORIOKA Tomohiko
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: tm-mule.el,v 7.6 1996/01/11 05:09:28 morioka Exp $
+;;; $Id: tm-mule.el,v 7.7 1996/01/25 02:32:26 morioka Exp $
;;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
;;;
;;; This file is part of tm (Tools for MIME).
;;; @ coding-system
;;;
-(defvar mime/default-coding-system *ctext*)
-
(defvar mime/charset-coding-system-alist
'(("ISO-2022-JP" . *iso-2022-ss2-7*)
("ISO-2022-JP-2" . *iso-2022-ss2-7*)
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1995/12/7
;;; Version:
-;;; $Id: tm-pgp.el,v 7.6 1995/12/23 10:16:40 morioka Exp $
+;;; $Id: tm-pgp.el,v 7.7 1996/01/23 13:00:44 morioka Exp $
;;; Keywords: mail, news, MIME, multimedia, PGP, security
;;;
;;; This file is part of tm (Tools for MIME).
(cur-buf (current-buffer))
(new-name (format "%s-%s" (buffer-name) cnum))
(mother mime::article/preview-buffer)
- (code-converter
- (or (cdr (assq major-mode mime-viewer/code-converter-alist))
- 'mime-viewer/default-code-convert-region))
+ (code-converter (function mime-viewer/default-code-convert-region))
str)
(setq str (buffer-substring beg end))
(switch-to-buffer new-name)
;;;
(provide 'tm-pgp)
+
+;;; tm-pgp.el ends here
;;; tm-view.el --- interactive MIME viewer for GNU Emacs
;;;
;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1994,1995 MORIOKA Tomohiko
+;;; Copyright (C) 1994 .. 1996 MORIOKA Tomohiko
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; modified by Steven L. Baur <steve@miranova.com>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el)
-;;; Version: $Revision: 7.40 $
+;;; Version: $Revision: 7.41 $
;;; Keywords: mail, news, MIME, multimedia
;;;
;;; This file is part of tm (Tools for MIME).
;;;
(defconst mime-viewer/RCS-ID
- "$Id: tm-view.el,v 7.40 1996/01/23 05:38:46 morioka Exp $")
+ "$Id: tm-view.el,v 7.41 1996/01/25 03:24:35 morioka Exp $")
(defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
(defconst mime/viewer-version mime-viewer/version)
(defvar mime-viewer/uuencode-encoding-name-list '("x-uue" "x-uuencode"))
(defvar mime-viewer/ignored-field-list
- '(".*Received" ".*Path" ".*Id"
+ '(".*Received" ".*Path" ".*Id" "References"
"Replied" "Errors-To"
- "Lines" "Sender" "Nntp-Posting-Host" "Xref"
+ "Lines" "Sender" ".*Host" "Xref"
"Content-Type" "Precedence" "X-Face"
"Status" "X-VM-.*")
"All fields that match this list will be hidden in MIME preview buffer.
":"))
(defvar mime-viewer/visible-field-list
- '("Message-Id")
+ '("Dnas.*")
"All fields that match this list will be displayed in MIME preview buffer.
Each elements are regexp of field-name. [tm-view.el]")
projects / elisp / tm.git / commitdiff