From fbba51f3663897c0605579879ad2ba3b538dc2d5 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 9 Mar 1998 11:46:08 +0000 Subject: [PATCH] tm 7.27.1. --- Changes-7.27.1.en | 19 +++++++++++++++++++ Changes-7.27.1.ja | 19 +++++++++++++++++++ Makefile | 2 +- gnus/ChangeLog-7.19.en | 7 +++++++ gnus/ChangeLog-7.19.ja | 7 +++++++ gnus/Makefile | 2 +- gnus/s-path | 2 +- gnus/tm-gd3.el | 17 ++++++++++++++++- gnus/tm-gd5.el | 17 ++++++++++++++++- gnus/tm-gnus.el | 28 ++++++++++++++++++++++++---- gnus/tm-gnus3.el | 20 ++++++++++++++++++-- gnus/tm-gnus4.el | 18 +++++++++++++++++- gnus/tm-sgnus.el | 18 +++++++++++++++++- mh-e/ChangeLog-7.26.en | 9 +++++++++ mh-e/ChangeLog-7.26.ja | 9 +++++++++ mh-e/Makefile | 2 +- mh-e/tm-mh-e.el | 33 ++++++++++++++++++++------------- mime-setup.el | 20 +++++++++++++++++--- richtext.el | 24 +++++++++++++++++++++++- tm-view.el | 22 +++++++++++++++++++--- tm-vm.el | 41 ++++++++++++++++++++++++++--------------- 21 files changed, 287 insertions(+), 49 deletions(-) create mode 100644 Changes-7.27.1.en create mode 100644 Changes-7.27.1.ja create mode 100644 gnus/ChangeLog-7.19.en create mode 100644 gnus/ChangeLog-7.19.ja create mode 100644 mh-e/ChangeLog-7.26.en create mode 100644 mh-e/ChangeLog-7.26.ja diff --git a/Changes-7.27.1.en b/Changes-7.27.1.en new file mode 100644 index 0000000..bff3975 --- /dev/null +++ b/Changes-7.27.1.en @@ -0,0 +1,19 @@ +Thu Nov 23 10:21:05 1995 Morioka Tomohiko + + * tm 7.27.1 was released. + + * tm-view.el: + ".*Received" was inserted into default value of variable + `mime-viewer/ignored-field-list'. + + * mime-setup.el: + autoload setting for function `mime/decode-message-header'. + +Tue Nov 21 09:43:00 1995 Morioka Tomohiko + + * tm-vm.el: fixed problem of function `tm-vm/quit'. + +Mon Nov 20 23:54:54 1995 Morioka Tomohiko + + * tm-vm.el: Function `tm-vm/preview-current-message' was + modified. diff --git a/Changes-7.27.1.ja b/Changes-7.27.1.ja new file mode 100644 index 0000000..5673f8c --- /dev/null +++ b/Changes-7.27.1.ja @@ -0,0 +1,19 @@ +Thu Nov 23 10:21:05 1995 Morioka Tomohiko + + * tm 7.27.1 を release した。 + + * tm-view.el: + 変数 mime-viewer/ignored-field-list の初期値に ".*Received" を加え + た。 + + * mime-setup.el: + 関数 mime/decode-message-header に対する autoload の設定を追加した。 + +Tue Nov 21 09:43:00 1995 Morioka Tomohiko + + * tm-vm.el: 関数 tm-vm/quit の不具合を修正した。 + +Mon Nov 20 23:54:54 1995 Morioka Tomohiko + + * tm-vm.el: Function `tm-vm/preview-current-message' was + modified. diff --git a/Makefile b/Makefile index b763800..255e041 100644 --- a/Makefile +++ b/Makefile @@ -37,7 +37,7 @@ TL_FILES = tl/README.eng tl/Makefile tl/mk-tl tl/*.el tl/doc/*.texi \ FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES) -TARFILE = tm7.27.tar.gz +TARFILE = tm7.27.1.tar.gz nemacs: diff --git a/gnus/ChangeLog-7.19.en b/gnus/ChangeLog-7.19.en new file mode 100644 index 0000000..e3bce95 --- /dev/null +++ b/gnus/ChangeLog-7.19.en @@ -0,0 +1,7 @@ +Thu Nov 23 19:31:40 1995 Morioka Tomohiko + + * tm/gnus: Version 7.19 was released. + +Tue Nov 21 03:02:27 1995 Morioka Tomohiko + + * tm-gnus.el: Version judgement was changed. diff --git a/gnus/ChangeLog-7.19.ja b/gnus/ChangeLog-7.19.ja new file mode 100644 index 0000000..fcb76de --- /dev/null +++ b/gnus/ChangeLog-7.19.ja @@ -0,0 +1,7 @@ +Thu Nov 23 19:31:40 1995 Morioka Tomohiko + + * tm/gnus: Version 7.19 を release した。 + +Tue Nov 21 03:02:27 1995 Morioka Tomohiko + + * tm-gnus.el: version の判定の仕方を変えた。 diff --git a/gnus/Makefile b/gnus/Makefile index 2ef8f0f..11aa445 100644 --- a/gnus/Makefile +++ b/gnus/Makefile @@ -17,7 +17,7 @@ TMDIR19 = $(HOME)/lib/emacs19/lisp FILES = tm/gnus/*.el tm/doc/tm-gnus*.texi -TARFILE = tm-gnus7.18.tar +TARFILE = tm-gnus7.19.tar gnus3: diff --git a/gnus/s-path b/gnus/s-path index 467babd..0a58f02 100644 --- a/gnus/s-path +++ b/gnus/s-path @@ -12,6 +12,6 @@ ;; ;; please edit this ;; - '("/usr/local/lib/emacs/site-lisp/sgnus-0.13/lisp") + '("/usr/local/lib/emacs/site-lisp/sgnus-0.14/lisp") ;; load-path)) diff --git a/gnus/tm-gd3.el b/gnus/tm-gd3.el index c5bb45e..3bee1d2 100644 --- a/gnus/tm-gd3.el +++ b/gnus/tm-gd3.el @@ -5,12 +5,27 @@ ;;; Copyright (C) 1995 MORIOKA Tomohiko ;;; ;;; Author: MORIOKA Tomohiko +;;; Maintainer: MORIOKA Tomohiko +;;; Created: 1995/05/23 (obsolete tm-ognus.el) ;;; Version: -;;; $Id: tm-gd3.el,v 7.4 1995/11/19 07:10:19 morioka Exp $ +;;; $Id: tm-gd3.el,v 7.5 1995/11/21 02:49:25 morioka Exp $ ;;; Keywords: news, MIME, multimedia, multilingual, encoded-word ;;; ;;; This file is part of tm (Tools for MIME). ;;; +;;; This program is free software; you can redistribute it and/or +;;; modify it under the terms of the GNU General Public License as +;;; published by the Free Software Foundation; either version 2, or +;;; (at your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; General Public License for more details. +;;; +;;; 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. (require 'tm-ew-d) diff --git a/gnus/tm-gd5.el b/gnus/tm-gd5.el index 4604275..ef1f9f6 100644 --- a/gnus/tm-gd5.el +++ b/gnus/tm-gd5.el @@ -5,12 +5,27 @@ ;;; Copyright (C) 1995 MORIOKA Tomohiko ;;; ;;; Author: MORIOKA Tomohiko +;;; Maintainer: MORIOKA Tomohiko +;;; Created: 1995/11/19 ;;; Version: -;;; $Id: tm-gd5.el,v 1.1 1995/11/19 08:11:47 morioka Exp $ +;;; $Id: tm-gd5.el,v 2.0 1995/11/21 02:51:08 morioka Exp $ ;;; Keywords: news, MIME, multimedia, multilingual, encoded-word ;;; ;;; This file is part of tm (Tools for MIME). ;;; +;;; This program is free software; you can redistribute it and/or +;;; modify it under the terms of the GNU General Public License as +;;; published by the Free Software Foundation; either version 2, or +;;; (at your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; General Public License for more details. +;;; +;;; 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. (cond ((not (boundp 'nnheader-encoded-words-decoding)) (require 'tm-ew-d) diff --git a/gnus/tm-gnus.el b/gnus/tm-gnus.el index 74aedc2..9a29778 100644 --- a/gnus/tm-gnus.el +++ b/gnus/tm-gnus.el @@ -5,12 +5,27 @@ ;;; Copyright (C) 1993,1994,1995 MORIOKA Tomohiko ;;; ;;; Author: Morioka Tomohiko +;;; Maintainer: MORIOKA Tomohiko +;;; Created: 1993/11/20 (obsolete mol's gnus-mime.el) ;;; Version: -;;; $Id: tm-gnus.el,v 7.6 1995/11/19 08:30:08 morioka Exp $ +;;; $Id: tm-gnus.el,v 7.9 1995/11/21 03:00:41 morioka Exp $ ;;; Keywords: news, MIME, multimedia, encoded-word, multilingual ;;; ;;; This file is part of tm (Tools for MIME). ;;; +;;; This program is free software; you can redistribute it and/or +;;; modify it under the terms of the GNU General Public License as +;;; published by the Free Software Foundation; either version 2, or +;;; (at your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; General Public License for more details. +;;; +;;; 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. (require 'gnus) @@ -25,21 +40,26 @@ ;;; (cond ((boundp 'gnus-original-article-buffer) + ;; for September Gnus and Gnus 5.2 .. (require 'tm-sgnus) ) - ((string-match "^\\(Gnus v5\\|September Gnus\\)" gnus-version) + ((or (string-match + "^\\((ding) Gnus\\|Gnus v5\\|September Gnus\\)" gnus-version) + (fboundp 'mail-header-from)) + ;; for Gnus 5.0 .. 5.1.* (require 'tm-gd5) (require 'tm-gnus4) ) - ((string-match "^GNUS 4" gnus-version) + ((fboundp 'gnus-article-prepare) + ;; for GNUS 3.15 .. 4.* (require 'tm-gd3) (require 'tm-gnus4) - (add-hook 'gnus-select-group-hook 'tm-gnus/decode-summary-subjects) (fset 'gnus-article-set-mode-line (function tm-gnus/article-set-mode-line)) ) ((string-match "^GNUS 3" gnus-version) + ;; for GNUS 3.14.* (require 'tm-gnus3) (defvar gnus-article-buffer gnus-Article-buffer) )) diff --git a/gnus/tm-gnus3.el b/gnus/tm-gnus3.el index 782a01b..ec1d7da 100644 --- a/gnus/tm-gnus3.el +++ b/gnus/tm-gnus3.el @@ -2,13 +2,29 @@ ;;; tm-gnus3.el --- tm-gnus module for GNUS 3.* ;;; ;;; Copyright (C) 1995 Free Software Foundation, Inc. -;;; Copyright (C) 1995 MORIOKA Tomohiko +;;; Copyright (C) 1993,1994,1995 MORIOKA Tomohiko ;;; ;;; Author: MORIOKA Tomohiko +;;; Maintainer: MORIOKA Tomohiko +;;; Created: 1993/11/20 +;;; Version: $Revision: 7.3 $ ;;; Keywords: news, MIME, multimedia, multilingual, encoded-word ;;; ;;; This file is part of tm (Tools for MIME). ;;; +;;; This program is free software; you can redistribute it and/or +;;; modify it under the terms of the GNU General Public License as +;;; published by the Free Software Foundation; either version 2, or +;;; (at your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; General Public License for more details. +;;; +;;; 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. (require 'tl-list) (require 'tl-str) @@ -28,7 +44,7 @@ ;;; (defconst tm-gnus/RCS-ID - "$Id: tm-gnus3.el,v 7.1 1995/11/19 07:23:29 morioka Exp $") + "$Id: tm-gnus3.el,v 7.3 1995/11/21 02:08:31 morioka Exp $") (defconst tm-gnus/version (concat (get-version-string tm-gnus/RCS-ID) " for GNUS 3")) diff --git a/gnus/tm-gnus4.el b/gnus/tm-gnus4.el index 157f12f..651c980 100644 --- a/gnus/tm-gnus4.el +++ b/gnus/tm-gnus4.el @@ -5,10 +5,26 @@ ;;; Copyright (C) 1995 MORIOKA Tomohiko ;;; ;;; Author: MORIOKA Tomohiko +;;; Maintainer: MORIOKA Tomohiko +;;; Created: 1993/11/20 (merged tm-gnus5.el) +;;; Version: $Revision: 7.4 $ ;;; Keywords: news, MIME, multimedia, multilingual, encoded-word ;;; ;;; This file is part of tm (Tools for MIME). ;;; +;;; This program is free software; you can redistribute it and/or +;;; modify it under the terms of the GNU General Public License as +;;; published by the Free Software Foundation; either version 2, or +;;; (at your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; General Public License for more details. +;;; +;;; 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. (require 'tl-str) (require 'tl-misc) @@ -18,7 +34,7 @@ ;;; (defconst tm-gnus/RCS-ID - "$Id: tm-gnus4.el,v 7.2 1995/11/19 08:10:33 morioka Exp $") + "$Id: tm-gnus4.el,v 7.4 1995/11/21 03:02:27 morioka Exp $") (defconst tm-gnus/version (concat (get-version-string tm-gnus/RCS-ID) " for 4 .. 5.1")) diff --git a/gnus/tm-sgnus.el b/gnus/tm-sgnus.el index 14d10ca..4acc67c 100644 --- a/gnus/tm-sgnus.el +++ b/gnus/tm-sgnus.el @@ -5,10 +5,26 @@ ;;; Copyright (C) 1995 MORIOKA Tomohiko ;;; ;;; Author: MORIOKA Tomohiko +;;; Maintainer: MORIOKA Tomohiko +;;; Created: 1995/09/24 +;;; Version: $Revision: 7.19 $ ;;; Keywords: news, MIME, multimedia, multilingual, encoded-word ;;; ;;; This file is part of tm (Tools for MIME). ;;; +;;; This program is free software; you can redistribute it and/or +;;; modify it under the terms of the GNU General Public License as +;;; published by the Free Software Foundation; either version 2, or +;;; (at your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; General Public License for more details. +;;; +;;; 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. (require 'tl-str) (require 'tl-list) @@ -22,7 +38,7 @@ ;;; (defconst tm-gnus/RCS-ID - "$Id: tm-sgnus.el,v 7.18 1995/11/19 08:29:23 morioka Exp $") + "$Id: tm-sgnus.el,v 7.19 1995/11/23 10:34:37 morioka Exp $") (defconst tm-gnus/version (concat (get-version-string tm-gnus/RCS-ID) " for September")) diff --git a/mh-e/ChangeLog-7.26.en b/mh-e/ChangeLog-7.26.en new file mode 100644 index 0000000..f42d746 --- /dev/null +++ b/mh-e/ChangeLog-7.26.en @@ -0,0 +1,9 @@ +Thu Nov 23 19:28:16 1995 Morioka Tomohiko + + * tm/mh-e: Version 7.26 was released. + +Tue Nov 21 08:55:01 1995 Morioka Tomohiko + + * tm-mh-e.el: + Variable `tm-mh-e/use-forwcomps' was abolished. + (cf. [tm-ja:1133]) diff --git a/mh-e/ChangeLog-7.26.ja b/mh-e/ChangeLog-7.26.ja new file mode 100644 index 0000000..8d3674f --- /dev/null +++ b/mh-e/ChangeLog-7.26.ja @@ -0,0 +1,9 @@ +Thu Nov 23 19:28:16 1995 Morioka Tomohiko + + * tm/mh-e: Version 7.26 を release した。 + +Tue Nov 21 08:55:01 1995 Morioka Tomohiko + + * tm-mh-e.el: + 変数 tm-mh-e/use-forwcomps を廃止し、関数 tm-mh-e/forward の仕様を + 岡部さんの提案されたものに戻した。(cf. [tm-ja:1133]) diff --git a/mh-e/Makefile b/mh-e/Makefile index 86c956c..9359353 100644 --- a/mh-e/Makefile +++ b/mh-e/Makefile @@ -23,7 +23,7 @@ TMDIR19 = $(HOME)/lib/emacs19/lisp FILES = tm/mh-e/*.el tm/mh-e/Makefile tm/mh-e/mk-tmh tm/mh-e/*.ol -TARFILE = tm-mh-e7.25.tar +TARFILE = tm-mh-e7.26.tar elc: diff --git a/mh-e/tm-mh-e.el b/mh-e/tm-mh-e.el index 3b80906..e2a528f 100644 --- a/mh-e/tm-mh-e.el +++ b/mh-e/tm-mh-e.el @@ -7,13 +7,26 @@ ;;; Author: MORIOKA Tomohiko ;;; OKABE Yasuo ;;; modified by YAMAOKA Katsumi +;;; Maintainer: MORIOKA Tomohiko +;;; Created: 1993/11/21 (obsolete mh-e-mime.el) +;;; Version: $Revision: 7.26 $ ;;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual ;;; ;;; This file is part of tm (Tools for MIME). ;;; - -;;; @ require modules +;;; This program is free software; you can redistribute it and/or +;;; modify it under the terms of the GNU General Public License as +;;; published by the Free Software Foundation; either version 2, or +;;; (at your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; General Public License for more details. ;;; +;;; 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. (require 'tl-str) (require 'tl-misc) @@ -28,7 +41,7 @@ ;;; (defconst tm-mh-e/RCS-ID - "$Id: tm-mh-e.el,v 7.25 1995/11/19 06:44:32 morioka Exp $") + "$Id: tm-mh-e.el,v 7.26 1995/11/21 08:55:01 morioka Exp $") (defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID)) @@ -42,7 +55,6 @@ (defvar tm-mh-e/decode-encoded-word t "If non-nil, decode encoded-word when it is not MIME preview mode.") -(defvar tm-mh-e/use-forwcomps nil) (defvar tm-mh-e/forwcomps "forwcomps") @@ -364,15 +376,10 @@ then prompt for the message sequence. See also documentation for (draft-name (expand-file-name "draft" mh-user-path)) (draft (cond ((or (not (file-exists-p draft-name)) (y-or-n-p "The file `draft' exists. Discard it? ")) - (if tm-mh-e/use-forwcomps - (mh-exec-cmd "comp" - "-noedit" "-nowhatnowproc" - "-form" tm-mh-e/forwcomps - "-nodraftfolder") - (mh-exec-cmd "comp" - "-noedit" "-nowhatnowproc" - "-nodraftfolder") - ) + (mh-exec-cmd "comp" + "-noedit" "-nowhatnowproc" + "-form" tm-mh-e/forwcomps + "-nodraftfolder") (prog1 (mh-read-draft "" draft-name t) (mh-insert-fields "To:" to "Cc:" cc) diff --git a/mime-setup.el b/mime-setup.el index 56e63a1..68b58b7 100644 --- a/mime-setup.el +++ b/mime-setup.el @@ -1,21 +1,36 @@ ;;; -;;; mime-setup.el --- setup file to use tm and mime.el. +;;; mime-setup.el --- setup file for tm viewer and composer. ;;; ;;; Copyright (C) 1995 Free Software Foundation, Inc. ;;; Copyright (C) 1994,1995 MORIOKA Tomohiko ;;; ;;; Author: MORIOKA Tomohiko ;;; Version: -;;; $Id: mime-setup.el,v 7.10 1995/11/19 13:47:54 morioka Exp $ +;;; $Id: mime-setup.el,v 7.11 1995/11/23 10:01:09 morioka Exp $ ;;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word ;;; ;;; This file is part of tm (Tools for MIME). ;;; +;;; This program is free software; you can redistribute it and/or +;;; modify it under the terms of the GNU General Public License as +;;; published by the Free Software Foundation; either version 2, or +;;; (at your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; General Public License for more details. +;;; +;;; 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. (require 'tm-setup) (autoload 'mime/editor-mode "tm-edit" "Minor mode for editing MIME message." t) +(autoload 'mime/decode-message-header "tm-ew-d" + "Decode MIME encoded-words in message header." t) (add-hook 'mime/editor-mode-hook (function @@ -77,7 +92,6 @@ ;;; @ for RMAIL and VM ;;; -;;(add-hook 'mail-mode-hook 'mime/editor-mode) (add-hook 'mail-setup-hook 'mime/decode-message-header) (add-hook 'mail-setup-hook 'mime/editor-mode 'append) (add-hook 'mail-send-hook 'mime-editor/maybe-translate) diff --git a/richtext.el b/richtext.el index 2cf6e4d..62da059 100644 --- a/richtext.el +++ b/richtext.el @@ -1,8 +1,30 @@ ;;; ;;; richtext.el -- read and save files in text/richtext format ;;; -;;; $Id: richtext.el,v 2.1 1995/07/17 22:59:10 morioka Exp $ +;;; Copyright (C) 1995 Free Software Foundation, Inc. +;;; Copyright (C) 1995 MORIOKA Tomohiko ;;; +;;; Author: MORIOKA Tomohiko +;;; Created: 1995/7/15 +;;; Version: +;;; $Id: richtext.el,v 3.0 1995/11/22 11:36:06 morioka Exp $ +;;; Keywords: wp, faces, MIME, multimedia +;;; +;;; This file is part of GNU Emacs. +;;; +;;; GNU Emacs is free software; you can redistribute it and/or modify +;;; it under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 2, or (at your option) +;;; any later version. +;;; +;;; GNU Emacs is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Emacs; see the file COPYING. If not, write to +;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. (require 'enriched) diff --git a/tm-view.el b/tm-view.el index 0d88b18..9b38df3 100644 --- a/tm-view.el +++ b/tm-view.el @@ -4,11 +4,27 @@ ;;; Copyright (C) 1995 Free Software Foundation, Inc. ;;; Copyright (C) 1994,1995 MORIOKA Tomohiko ;;; -;;; Author: MORIOKA Tomohiko +;;; Author: MORIOKA Tomohiko +;;; Maintainer: MORIOKA Tomohiko +;;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el) +;;; Version: $Revision: 7.27 $ ;;; Keywords: mail, news, MIME, multimedia ;;; ;;; This file is part of tm (Tools for MIME). ;;; +;;; This program is free software; you can redistribute it and/or +;;; modify it under the terms of the GNU General Public License as +;;; published by the Free Software Foundation; either version 2, or +;;; (at your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; General Public License for more details. +;;; +;;; 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. (require 'tl-str) (require 'tl-list) @@ -25,7 +41,7 @@ ;;; (defconst mime-viewer/RCS-ID - "$Id: tm-view.el,v 7.25 1995/11/15 13:57:33 morioka Exp $") + "$Id: tm-view.el,v 7.27 1995/11/23 10:21:05 morioka Exp $") (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID)) (defconst mime/viewer-version mime-viewer/version) @@ -95,7 +111,7 @@ (defvar mime-viewer/uuencode-encoding-name-list '("x-uue" "x-uuencode")) (defvar mime-viewer/ignored-field-list - '("Received" "Return-Path" "Replied" "Errors-To" + '(".*Received" "Return-Path" "Replied" "Errors-To" "Lines" "Sender" "Path" "Nntp-Posting-Host" "Content-Type" "Precedence" "X-Face" "Status" "X-VM-.*") diff --git a/tm-vm.el b/tm-vm.el index 10eba2e..7e3757c 100644 --- a/tm-vm.el +++ b/tm-vm.el @@ -9,19 +9,34 @@ ;;; Shuhei KOBAYASHI ;;; Oscar Figueiredo ;;; modified by SHIONO Jun'ichi -;;; +;;; Maintainer: MORIOKA Tomohiko +;;; Created: 1994/10/29 +;;; Version: $Revision: 7.20 $ ;;; Keywords: news, MIME, multimedia, multilingual, encoded-word ;;; ;;; This file is part of tm (Tools for MIME). ;;; ;;; Plese insert (require 'tm-vm) in your ~/.vm or ~/.emacs file. ;;; +;;; This program is free software; you can redistribute it and/or +;;; modify it under the terms of the GNU General Public License as +;;; published by the Free Software Foundation; either version 2, or +;;; (at your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; General Public License for more details. +;;; +;;; 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. (require 'tm-view) (require 'vm) (defconst tm-vm/RCS-ID - "$Id: tm-vm.el,v 7.18 1995/11/20 02:48:34 morioka Exp $") + "$Id: tm-vm.el,v 7.20 1995/11/21 09:43:00 morioka Exp $") (defconst tm-vm/version (get-version-string tm-vm/RCS-ID)) (define-key vm-mode-map "Z" 'tm-vm/view-message) @@ -152,23 +167,19 @@ all marked messages are affected, other messages are ignored." (if pwin (delete-window pwin) )) + (vm-display nil nil + '(vm-next-message + vm-delete-message + vm-undelete-message + vm-scroll-forward vm-scroll-backward) + (list this-command 'reading-message)) (vm-select-folder-buffer) (vm-display (current-buffer) t - '(tm-vm/preview-current-message - vm-preview-current-message) + '(vm-scroll-forward vm-scroll-backward) (list this-command 'reading-message)) (mime/viewer-mode) (run-hooks 'tm-vm/vm-select-message-hook) - (vm-display (current-buffer) t - '(tm-vm/preview-current-message - vm-preview-current-message) - (list this-command 'reading-message)) - (select-window win) - (vm-display-buffer (current-buffer)) - ;; (vm-display (current-buffer) t - ;; '(tm-vm/preview-current-message - ;; vm-preview-current-message) - ;; '(vm-summarize reading-message)) + (select-window win) ) ;; fixed by Oscar Figueiredo ;; 1995/11/17 @@ -315,7 +326,7 @@ all marked messages are affected, other messages are ignored." (defun tm-vm/quit () (interactive) (save-excursion - (set-buffer vm-mail-buffer) + (vm-select-folder-buffer) (if (and mime::article/preview-buffer (get-buffer mime::article/preview-buffer)) (kill-buffer mime::article/preview-buffer))) -- 1.7.10.4