tm 7.22.

diff --git a/Changes-7.22.en b/Changes-7.22.en
new file mode 100644 (file)
index 0000000..d3d1499
--- /dev/null
+++ b/Changes-7.22.en
@@ -0,0 +1,136 @@
+* tl
+
+  Attached version 7.01.3.
+
+
+* mel
+
+  Attached version 3.2.
+
+
+* tm
+
+tm/tm-edit.el
+----------------------------
+revision 7.15
+date: 1995/11/03 08:32:03;  author: morioka;  state: Exp;  lines: +77 -9
+Addition for image/tiff and text/x-rot13-47.
+----------------------------
+
+tm/tm-file.el
+----------------------------
+revision 2.0
+date: 1995/11/06 16:05:29;  author: morioka;  state: Exp;  lines: +17 -5
+(1) Function `mime/extract-file' was renamed to
+    `mime-article/extract-file'.
+(2) took measure for jam-zcat and jka-compr.
+----------------------------
+revision 1.1
+date: 1995/11/03 08:32:58;  author: morioka;  state: Exp;
+It was created as a tm-view internal method module for file
+extraction.
+----------------------------
+
+tm/tm-mail.el
+----------------------------
+revision 1.1
+date: 1995/11/04 08:22:24;  author: morioka;  state: Exp;
+It was created as a tm-view internal method module for message/rfc822
+and text/x-rot13-47.
+----------------------------
+
+tm/tm-play.el
+----------------------------
+revision 4.0
+date: 1995/11/04 07:51:22;  author: morioka;  state: Exp;  lines: +4 -2
+Don't code convert when reading partial part files.
+----------------------------
+revision 3.0
+date: 1995/11/03 08:53:58;  author: morioka;  state: Exp;  lines: +6 -2
+Function `mime-article/decode-message/partial' was modified not to
+code convert when reading FULL file.
+----------------------------
+
+tm/tm-view.el
+----------------------------
+revision 7.22
+date: 1995/11/03 09:05:23;  author: morioka;  state: Exp;  lines: +21 -15
+(1) New function `mime-preview/decode-text-region'.
+(2) use function `mime/code-convert-region-to-emacs' as code converter 
+    for mime/show-message-mode.
+(3) Buffer local variable `mime/mother-buffer' was renamed to
+    `mime::preview/mother-buffer'.
+----------------------------
+
+tm/tm-rmail.el
+----------------------------
+revision 7.12
+date: 1995/11/02 12:20:51;  author: morioka;  state: Exp;  lines: +2 -2
+In function `tm-rmail/view-message', fixed renaming mistake of
+`tm-rmail/preview-message'.
+----------------------------
+revision 7.11
+date: 1995/11/02 07:03:01;  author: morioka;  state: Exp;  lines: +3 -2
+Function `tm-rmail/preview-message' was modified to use function
+`rfc822/get-field-body' instead of function
+`mail-fetch-field'. (because of text property problem in Emacs 19.29)
+----------------------------
+revision 7.10
+date: 1995/11/02 06:04:48;  author: morioka;  state: Exp;  lines: +2 -2
+In function `tm-rmail/forward', fixed renaming mistake of
+`tm-edit/insert-tag' -> `mime-editor/insert-tag'.
+----------------------------
+revision 7.9
+date: 1995/10/31 14:20:25;  author: morioka;  state: Exp;  lines: +2 -2
+Function `tm-rmail/forward-from-gnus' was renamed to
+`gnus-mail-forward-using-mail-mime'.
+----------------------------
+
+tm/mh-e
+
+  Attached version 7.12.
+
+tm/mh-e/tm-mh-e.el
+----------------------------
+revision 7.12
+date: 1995/10/31 15:27:51;  author: morioka;  state: Exp;  lines: +1 -46
+Function `gnus-mail-forward-using-mhe-mime' was moved to tm-gnus5.el
+again.
+----------------------------
+revision 7.11
+date: 1995/10/31 14:17:09;  author: morioka;  state: Exp;  lines: +47 -1
+Insert (require 'mh-comp) in function
+`gnus-mail-forward-using-mhe-mime'.
+----------------------------
+
+tm/mh-e/tm-mh-e3.el
+----------------------------
+revision 6.0
+date: 1995/10/31 14:24:41;  author: morioka;  state: Exp;  lines: +5 -1
+Insert (provide 'mh-comp).
+----------------------------
+
+
+tm/gnus
+
+  Attached version 7.13.
+
+tm/gnus/tm-gnus5.el
+----------------------------
+revision 7.7
+date: 1995/10/31 15:24:49;  author: morioka;  state: Exp;  lines: +58 -1
+Function `gnus-mail-forward-using-mhe-mime' was defined in this module 
+again.
+----------------------------
+revision 7.6
+date: 1995/10/31 13:52:48;  author: morioka;  state: Exp;  lines: +1 -47
+Function `gnus-mail-forward-using-mhe-mime' was moved to tm-mh-e.el.
+----------------------------
+revision 7.5
+date: 1995/10/31 13:45:21;  author: morioka;  state: Exp;  lines: +108 -136
+(1) automatic MIME preview support for original Gnus 5.0.x.
+    (``with tm patch'' is regarded as original Gnus 5.0.x)
+(2) tm-gnus/decode-all was abolished and changed like tm-sgnus way.
+(3) setting for BBDB.
+(4) Function `gnus-mail-forward-using-mhe-mime' was modified.
+----------------------------

diff --git a/Changes-7.22.ja b/Changes-7.22.ja
new file mode 100644 (file)
index 0000000..da2428a
--- /dev/null
+++ b/Changes-7.22.ja
@@ -0,0 +1,134 @@
+* tl
+
+  Version 7.01.3 \e$B$rE:IU$7$?!#\e(B
+
+
+* mel
+
+  Version 3.2 \e$B$rE:IU$7$?!#\e(B
+
+
+* tm
+
+tm/tm-edit.el
+----------------------------
+revision 7.15
+date: 1995/11/03 08:32:03;  author: morioka;  state: Exp;  lines: +77 -9
+image/tiff \e$B$H\e(B text/x-rot13-47 \e$B$rDI2C$7$?!#\e(B
+----------------------------
+
+tm/tm-file.el
+----------------------------
+revision 2.0
+date: 1995/11/06 16:05:29;  author: morioka;  state: Exp;  lines: +17 -5
+(1) \e$B4X?t\e(B mime/extract-file \e$B$r\e(B mime-article/extract-file \e$B$K2~L>$7$?!#\e(B
+(2) jam-zcat \e$B$H\e(B jka-compr \e$B$KBP$9$kBP:v$r9T$C$?!#\e(B
+----------------------------
+revision 1.1
+date: 1995/11/03 08:32:58;  author: morioka;  state: Exp;
+file extraction \e$BMQ$N\e(B internal method module \e$B$H$7$F?7@_$7$?!#\e(B
+----------------------------
+
+tm/tm-mail.el
+----------------------------
+revision 1.1
+date: 1995/11/04 08:22:24;  author: morioka;  state: Exp;
+message/rfc822 \e$B$H\e(B text/x-rot13-47 \e$BMQ$N\e(B internal method module \e$B$H$7$F?7\e(B
+\e$B@_$7$?!#\e(B
+----------------------------
+
+tm/tm-play.el
+----------------------------
+revision 4.0
+date: 1995/11/04 07:51:22;  author: morioka;  state: Exp;  lines: +4 -2
+\e$B=q$-=P$7$?3F\e(B part \e$B$rFI$_9~$`;~$K\e(B code \e$BJQ49$r9T$o$J$$$h$&$K$7$?!#\e(B
+----------------------------
+revision 3.0
+date: 1995/11/03 08:53:58;  author: morioka;  state: Exp;  lines: +6 -2
+\e$B4X?t\e(B mime-article/decode-message/partial \e$B$G\e(B FULL file \e$B$r\e(B code \e$BJQ49$;$:\e(B
+\e$B$KFI$_9~$`$h$&$K$7$?!#\e(B
+----------------------------
+
+tm/tm-view.el
+----------------------------
+revision 7.22
+date: 1995/11/03 09:05:23;  author: morioka;  state: Exp;  lines: +21 -15
+(1) \e$B4X?t\e(B mime-preview/decode-text-region \e$B$r@_$1$?!#\e(B
+(2) mime/show-message-mode \e$BMQ$N\e(B code converter \e$B$H$7$F!"4X?t\e(B
+    mime/code-convert-region-to-emacs \e$B$rMQ$$$k$h$&$K$7$?!#\e(B
+(3) buffer local \e$BJQ?t\e(B `mime/mother-buffer' \e$B$r\e(B
+    `mime::preview/mother-buffer' \e$B$K2~L>$7$?!#\e(B
+----------------------------
+
+tm/tm-rmail.el
+----------------------------
+revision 7.12
+date: 1995/11/02 12:20:51;  author: morioka;  state: Exp;  lines: +2 -2
+\e$B4X?t\e(B tm-rmail/view-message \e$B$r\e(B `tm-rmail/preview-message' \e$B$K\e(B rename \e$B$9\e(B
+\e$B$k$N$rK:$l$F$$$?$N$r=$@5$7$?!#\e(B
+----------------------------
+revision 7.11
+date: 1995/11/02 07:03:01;  author: morioka;  state: Exp;  lines: +3 -2
+\e$B4X?t\e(B tm-rmail/preview-message \e$B$G!"4X?t\e(B mail-fetch-field \e$B$r;H$&$N$r$d$a\e(B
+\e$B$F!"4X?t\e(B rfc822/get-field-body \e$B$r;H$&$h$&$K$7$?!#\e(B
+----------------------------
+revision 7.10
+date: 1995/11/02 06:04:48;  author: morioka;  state: Exp;  lines: +2 -2
+\e$B4X?t\e(B tm-rmail/forward \e$B$G\e(B `tm-edit/insert-tag' \e$B$r\e(B
+`mime-editor/insert-tag' \e$B$K\e(B rename \e$B$7K:$l$F$$$?ItJ,$r=$@5$7$?!#\e(B
+----------------------------
+revision 7.9
+date: 1995/10/31 14:20:25;  author: morioka;  state: Exp;  lines: +2 -2
+\e$B4X?t\e(B tm-rmail/forward-from-gnus \e$B$r\e(B `gnus-mail-forward-using-mail-mime'
+\e$B$K2~L>$7$?!#\e(B
+----------------------------
+
+tm/mh-e
+
+  Version 7.12 \e$B$rE:IU$7$?!#\e(B
+
+tm/mh-e/tm-mh-e.el
+----------------------------
+revision 7.12
+date: 1995/10/31 15:27:51;  author: morioka;  state: Exp;  lines: +1 -46
+\e$B$d$C$Q$j!"4X?t\e(B gnus-mail-forward-using-mhe-mime \e$B$O\e(B tm-gnus5.el \e$B$NCf$G\e(B
+\e$BDj5A$9$k$3$H$K$7$?!#\e(B
+----------------------------
+revision 7.11
+date: 1995/10/31 14:17:09;  author: morioka;  state: Exp;  lines: +47 -1
+\e$B4X?t\e(B gnus-mail-forward-using-mhe-mime \e$B$NCf$K\e(B (require 'mh-comp) \e$B$rF~$l\e(B
+\e$B$?!#\e(B
+----------------------------
+
+tm/mh-e/tm-mh-e3.el
+----------------------------
+revision 6.0
+date: 1995/10/31 14:24:41;  author: morioka;  state: Exp;  lines: +5 -1
+(provide 'mh-comp) \e$B$rF~$l$?!#\e(B
+----------------------------
+
+
+tm/gnus
+
+  Version 7.13 \e$B$rE:IU$7$?!#\e(B
+
+tm/gnus/tm-gnus5.el
+----------------------------
+revision 7.7
+date: 1995/10/31 15:24:49;  author: morioka;  state: Exp;  lines: +58 -1
+\e$B$d$C$Q$j!"4X?t\e(B gnus-mail-forward-using-mhe-mime \e$B$O$3$NCf$GDj5A$9$k$3$H\e(B
+\e$B$K$7$?!#\e(B
+----------------------------
+revision 7.6
+date: 1995/10/31 13:52:48;  author: morioka;  state: Exp;  lines: +1 -47
+\e$B4X?t\e(B gnus-mail-forward-using-mhe-mime \e$B$r\e(B tm-mh-e.el \e$B$K0\$7$?!#\e(B
+----------------------------
+revision 7.5
+date: 1995/10/31 13:45:21;  author: morioka;  state: Exp;  lines: +108 -136
+(1) original \e$B$N\e(B Gnus 5.0.x \e$B$N>l9g$G$b\e(B automatic MIME preview support
+    \e$B$,9T$($k$h$&$K$7$?!#!J\e(B``with tm patch'' \e$B$N>l9g$b\e(B original \e$B$H$7$F07\e(B
+    \e$B$o$l$k!K\e(B
+(2) tm-gnus/decode-all \e$B$rGQ;_$7$F!"\e(Btm-sgnus \e$B$HF1MM$NJ}<0$KJQ$($?!#\e(B
+(3) BBDB \e$BMQ$N@_Dj$r9T$C$?!#\e(B
+(4) \e$B4X?t\e(B gnus-mail-forward-using-mhe-mime \e$B$r=$@5$7$?!#\e(B
+----------------------------

diff --git a/Makefile b/Makefile
index 91dc3cc..8ce3c65 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -12,7 +12,8 @@ TM_FILES = tm/README.eng tm/rel-*.ol tm/Changes* \
                tm/tm-mule.el tm/tm-nemacs.el tm/tm-orig.el tm/tm-def.el \
                tm/tm-eword.el tm/tm-ew-d.el tm/tm-ew-e.el \
                tm/tm-view.el tm/tm-parse.el tm/tm-play.el \
                tm/tm-mule.el tm/tm-nemacs.el tm/tm-orig.el tm/tm-def.el \
                tm/tm-eword.el tm/tm-ew-d.el tm/tm-ew-e.el \
                tm/tm-view.el tm/tm-parse.el tm/tm-play.el \

-               tm/tm-ftp.el tm/tm-latex.el tm/tm-w3.el tm/tm-partial.el \
+               tm/tm-partial.el tm/tm-mail.el \
+               tm/tm-ftp.el tm/tm-latex.el tm/tm-w3.el tm/tm-file.el \

                tm/tm-tar.el \
                tm/tm-rich.el tm/richtext.el tm/tinyrich.el \
                tm/tm-edit.el tm/signature.el \
                tm/tm-tar.el \
                tm/tm-rich.el tm/richtext.el tm/tinyrich.el \
                tm/tm-edit.el tm/signature.el \

@@ -28,13 +29,14 @@ TM_MUA_FILES =      tm/tm-rmail.el tm/tm-vm.el \
                tm/mh-e/Makefile tm/mh-e/mk-tmh tm/mh-e/code-jp.ol \
                tm/mh-e/*.el
 
                tm/mh-e/Makefile tm/mh-e/mk-tmh tm/mh-e/code-jp.ol \
                tm/mh-e/*.el
 

-MEL_FILES = mel/*.el mel/Makefile mel/mk-mel
+MEL_FILES = mel/*.el mel/Makefile mel/mk-mel mel/Changes*

 
 

-TL_FILES = tl/README.eng tl/Makefile tl/mk-tl tl/*.el tl/doc/*.texi
+TL_FILES = tl/README.eng tl/Makefile tl/mk-tl tl/*.el tl/doc/*.texi \
+               tl/Changes*

 
 FILES  = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
 
 
 FILES  = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
 

-TARFILE = tm7.21.tar
+TARFILE = tm7.22.tar

 
 
 nemacs:
 
 
 nemacs:

diff --git a/gnus/Makefile b/gnus/Makefile
index 94915f4..4574af6 100644 (file)
--- a/gnus/Makefile
+++ b/gnus/Makefile
@@ -17,7 +17,7 @@ TMDIR19 = $(HOME)/lib/emacs19/lisp
 
 FILES  = tm/gnus/*.el tm/doc/tm-gnus*.texi
 
 
 FILES  = tm/gnus/*.el tm/doc/tm-gnus*.texi
 

-TARFILE = tm-gnus7.12.tar
+TARFILE = tm-gnus7.12.1.tar

 
 
 gnus3:
 
 
 gnus3:

diff --git a/gnus/g5-path b/gnus/g5-path
index 1fba7f4..d2567ac 100644 (file)
--- a/gnus/g5-path
+++ b/gnus/g5-path
@@ -12,6 +12,6 @@
        ;;
        ;; please edit this
        ;;
        ;;
        ;; please edit this
        ;;

-       '("/usr/local/lib/emacs/site-lisp/gnus-5.0.8/lisp")
+       '("/usr/local/lib/emacs/site-lisp/gnus-5.0.10/lisp")

        ;;
        load-path))
        ;;
        load-path))

diff --git a/gnus/s-path b/gnus/s-path
index f4d0ad7..eb04849 100644 (file)
--- a/gnus/s-path
+++ b/gnus/s-path
@@ -12,6 +12,6 @@
        ;;
        ;; please edit this
        ;;
        ;;
        ;; please edit this
        ;;

-       '("/usr/local/lib/emacs/site-lisp/sgnus-0.11/lisp")
+       '("/usr/local/lib/emacs/site-lisp/sgnus-0.12/lisp")

        ;;
        load-path))
        ;;
        load-path))

diff --git a/gnus/tm-gnus5.el b/gnus/tm-gnus5.el
index b4cc192..2065e8b 100644 (file)
--- a/gnus/tm-gnus5.el
+++ b/gnus/tm-gnus5.el
@@ -15,47 +15,29 @@
 (require 'tl-misc)
 (require 'tl-822)
 (require 'gnus)
 (require 'tl-misc)
 (require 'tl-822)
 (require 'gnus)

-
-(autoload 'mime/viewer-mode "tm-view" "View MIME message." t)
-(autoload 'mime/decode-message-header
-  "tm-ew-d" "Decode MIME encoded-words in message header." t)
-(autoload 'mime-eword/decode-string
-  "tm-ew-d" "Decode MIME encoded-words in string." t)
+(require 'tm-view)

 
 
 ;;; @ version
 ;;;
 
 (defconst tm-gnus/RCS-ID
 
 
 ;;; @ version
 ;;;
 
 (defconst tm-gnus/RCS-ID

-  "$Id: tm-gnus5.el,v 7.4 1995/10/22 12:13:50 morioka Exp $")
+  "$Id: tm-gnus5.el,v 7.7 1995/10/31 15:24:49 morioka Exp $")

 
 (defconst tm-gnus/version
 
 (defconst tm-gnus/version

-  (concat (get-version-string tm-gnus/RCS-ID) " for GNUS 5"))
-
-(defconst tm-gnus/automatic-MIME-preview-support
-  (cond ((boundp 'gnus-clean-article-buffer)
-        (defconst gnus-version (concat gnus-version " with tm patch"))
-        t)
-       (t
-        (defvar gnus-clean-article-buffer gnus-article-buffer)
-        nil)
-       ))
-
-(defvar tm-gnus/preview-buffer
-  (if tm-gnus/automatic-MIME-preview-support
-      (concat "*Preview-" gnus-clean-article-buffer "*"))
-  )
+  (concat (get-version-string tm-gnus/RCS-ID) " for GNUS 5.0.x"))

 
 
 ;;; @ variables
 ;;;
 
 
 
 ;;; @ variables
 ;;;
 

-(defvar tm-gnus/original-article-display-hook gnus-article-display-hook)
+(defvar tm-gnus/original-article-buffer " *Original Article*")

 
 

-(defvar tm-gnus/decode-all tm-gnus/automatic-MIME-preview-support
-  "If it is non-nil and
-tm-gnus/automatic-MIME-preview-support is non-nil,
-article is automatic MIME decoded.")
+(defvar tm-gnus/automatic-mime-preview t
+  "*If non-nil, show MIME processed article.
+This variable is set to `gnus-show-mime'.")
+
+(setq gnus-show-mime tm-gnus/automatic-mime-preview)

 
 
 ;;; @ command functions
 
 
 ;;; @ command functions

@@ -64,16 +46,25 @@ article is automatic MIME decoded.")
 (defun tm-gnus/view-message (arg)
   "MIME decode and play this message."
   (interactive "P")
 (defun tm-gnus/view-message (arg)
   "MIME decode and play this message."
   (interactive "P")

-  (let ((gnus-break-pages nil))
-    (gnus-summary-select-article t t)
-    )
-  (pop-to-buffer gnus-clean-article-buffer t)
-  (let (buffer-read-only)
-    (if (text-property-any (point-min) (point-max) 'invisible t)
-       (remove-text-properties (point-min) (point-max)
-                               gnus-hidden-properties)
+  (if (save-excursion
+       (set-buffer gnus-article-buffer)
+       (eq major-mode 'mime/viewer-mode)
+       )
+      (pop-to-buffer gnus-article-buffer t)
+    (let ((gnus-break-pages nil))
+      (gnus-summary-select-article t t)
+      )
+    (pop-to-buffer gnus-article-buffer t)
+    (let (buffer-read-only)
+      (remove-text-properties (point-min) (point-max) '(face nil))
+      (if (get-buffer tm-gnus/original-article-buffer)
+           (kill-buffer tm-gnus/original-article-buffer)
+         )
+      (rename-buffer tm-gnus/original-article-buffer)
+      (mime/viewer-mode nil nil nil
+                       tm-gnus/original-article-buffer
+                       gnus-article-buffer)

       ))
       ))

-  (mime/viewer-mode)

   )
 
 (defun tm-gnus/summary-scroll-down ()
   )
 
 (defun tm-gnus/summary-scroll-down ()

@@ -82,7 +73,25 @@ article is automatic MIME decoded.")
   (gnus-summary-scroll-up -1)
   )
 
   (gnus-summary-scroll-up -1)
   )
 

+(defun tm-gnus/summary-toggle-header (&optional arg)
+  (interactive "P")
+  (if gnus-show-mime
+      (let ((mime-viewer/ignored-field-list
+            (if (save-excursion
+                  (set-buffer gnus-article-buffer)
+                  (some-element
+                   (lambda (field)
+                     (rfc822/get-field-body field)
+                     )
+                   mime-viewer/ignored-field-list))
+                mime-viewer/ignored-field-list)))
+       (gnus-summary-select-article t t)
+       )
+    (gnus-summary-toggle-header arg)
+    ))
+

 (define-key gnus-summary-mode-map "v" (function tm-gnus/view-message))
 (define-key gnus-summary-mode-map "v" (function tm-gnus/view-message))

+(define-key gnus-summary-mode-map "t" (function tm-gnus/summary-toggle-header))

 (define-key gnus-summary-mode-map
   "\e\r" (function tm-gnus/summary-scroll-down))
 
 (define-key gnus-summary-mode-map
   "\e\r" (function tm-gnus/summary-scroll-down))
 

@@ -132,145 +141,102 @@ article is automatic MIME decoded.")
 ;;; @ summary filter
 ;;;
 
 ;;; @ summary filter
 ;;;
 

-(defun tm-gnus/decode-summary-from-and-subjects ()
-  (mapcar (lambda (header)
-           (let ((from (mail-header-from header))
-                 (subj (mail-header-subject header))
-                 )
-             (mail-header-set-from
-              header
-              (if from
-                  (mime-eword/decode-string from)
-                ""))
-             (mail-header-set-subject
-              header
-              (if subj
-                  (mime-eword/decode-string subj)
-                ""))
-             ))
-         gnus-newsgroup-headers)
-  )
-
-(add-hook 'gnus-select-group-hook
-         (function tm-gnus/decode-summary-from-and-subjects))
+(cond ((not (boundp 'nnheader-encoded-words-decoding))
+       (defun tm-gnus/decode-summary-from-and-subjects ()
+        (mapcar (lambda (header)
+                  (let ((from (mail-header-from header))
+                        (subj (mail-header-subject header))
+                        )
+                    (mail-header-set-from
+                     header
+                     (if from
+                         (mime-eword/decode-string from)
+                       ""))
+                    (mail-header-set-subject
+                     header
+                     (if subj
+                         (mime-eword/decode-string subj)
+                       ""))
+                    ))
+                gnus-newsgroup-headers)
+        )
+       (add-hook 'gnus-select-group-hook
+                (function tm-gnus/decode-summary-from-and-subjects))
+       ))

 
 
 ;;; @ article filter
 ;;;
 
 
 
 ;;; @ article filter
 ;;;
 

-(setq gnus-show-mime-method (function mime/decode-message-header))
-
+(defun tm-gnus/preview-article ()
+  (if (get-buffer tm-gnus/original-article-buffer)
+      (kill-buffer tm-gnus/original-article-buffer)
+    )
+  (rename-buffer tm-gnus/original-article-buffer)
+  (set-buffer (get-buffer-create gnus-article-buffer))
+  (make-local-variable 'tm:mother-button-dispatcher)
+  (setq tm:mother-button-dispatcher
+       (function gnus-article-push-button))
+  (mime/viewer-mode
+   nil nil nil tm-gnus/original-article-buffer gnus-article-buffer)
+  (run-hooks 'tm-gnus/article-prepare-hook)
+  )

 
 

-;;; @ automatic MIME preview support
-;;;
+(setq gnus-show-mime-method (function tm-gnus/preview-article))

 
 

-(defun tm-gnus/summary-toggle-header (&optional arg)
-  (interactive "P")
-  (if tm-gnus/decode-all
-      (let ((mime-viewer/ignored-field-list
-            (if (save-window-excursion
-                  (switch-to-buffer tm-gnus/preview-buffer)
-                  (some-element
-                   (lambda (field)
-                     (rfc822/get-field-body field)
-                     )
-                   mime-viewer/ignored-field-list))
-                mime-viewer/ignored-field-list)))
-       (gnus-summary-select-article t t)
-       )
-    (gnus-summary-toggle-header arg)
-    ))
+(or (fboundp 'tm::gnus-article-hide-headers-if-wanted)
+    (fset 'tm::gnus-article-hide-headers-if-wanted
+         (symbol-function 'gnus-article-hide-headers-if-wanted))
+    )

 
 

-(defun tm-gnus/set-mime-method (mode)
-  (if mode
-      (progn
-       (setq gnus-show-mime nil)
-       (setq gnus-article-display-hook
-             (list (function (lambda ()
-                               (mime/viewer-mode)
-                               (gnus-set-mode-line 'article)
-                               ))))
-       (set-alist 'gnus-window-to-buffer 'article tm-gnus/preview-buffer)
-       (setq gnus-article-buffer tm-gnus/preview-buffer)
-       )
-    (setq gnus-show-mime t)
-    (setq gnus-article-display-hook tm-gnus/original-article-display-hook)
-    (set-alist 'gnus-window-to-buffer 'article gnus-clean-article-buffer)
-    (setq gnus-article-buffer gnus-clean-article-buffer)
+(defun gnus-article-hide-headers-if-wanted ()
+  (if (not gnus-show-mime)
+      (tm::gnus-article-hide-headers-if-wanted)

     ))
 
     ))
 

-(defun tm-gnus/toggle-mime (arg)
-  "Toggle MIME processing mode.
-With arg, turn MIME processing on if arg is positive."
-  (interactive "P")
-  (setq tm-gnus/decode-all
-       (if (null arg)
-           (not tm-gnus/decode-all)
-         arg))
-  (gnus-set-global-variables)
-  (tm-gnus/set-mime-method tm-gnus/decode-all)
-  (gnus-summary-select-article gnus-show-all-headers 'force)
-  )

 
 

-(if tm-gnus/automatic-MIME-preview-support
-    (progn
-      (define-key gnus-summary-mode-map
-       "t" (function tm-gnus/summary-toggle-header))
-      (define-key gnus-summary-mode-map "\et" (function tm-gnus/toggle-mime))
-      
-      (tm-gnus/set-mime-method tm-gnus/decode-all)
-      
-      (add-hook 'gnus-exit-gnus-hook
-               (lambda ()
-                 (let ((buf (get-buffer tm-gnus/preview-buffer)))
-                   (if buf
-                       (kill-buffer buf)
-                     ))))
-      )
-  (setq gnus-article-display-hook tm-gnus/original-article-display-hook)
-  (setq gnus-show-mime t)
-  )
-
-
-;;; @ for tm-comp
+;;; @ for mh-e

 ;;;
 
 (call-after-loaded
 ;;;
 
 (call-after-loaded

- 'tm-comp
+ 'tm-mh-e

  (function
   (lambda ()
  (function
   (lambda ()

-    (set-alist 'mime/message-sender-alist
-              'news-reply-mode
-              (function gnus-inews-news))
-    )))
-
-
-;;; @ for mime.el
-;;;

 
 ;;; by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
 ;;;
 
 ;;; by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
 ;;;

-;;; Please use following setting:
-;;;    (setq gnus-mail-forward-method
-;;;          (function gnus-mail-forward-using-mhe-mime))
-
+;; Please use following setting:
+;;
+;;     (autoload 'gnus-mail-forward-using-mhe-mime "tm-mh-e"
+;;               "Forward using mh-e with tm-edit." t)
+;;     (setq gnus-mail-forward-method
+;;           (function gnus-mail-forward-using-mhe-mime))
+;;

 (defun gnus-mail-forward-using-mhe-mime (&optional buffer)
   "Forward the current message to another user using mh-e with mime-mode."
   ;; First of all, prepare mhe mail buffer.
 (defun gnus-mail-forward-using-mhe-mime (&optional buffer)
   "Forward the current message to another user using mh-e with mime-mode."
   ;; First of all, prepare mhe mail buffer.

+  (require 'mh-comp)
+  (require 'tm-edit)

   (let* ((to (read-string "To: "))
         (cc (read-string "Cc: "))
   (let* ((to (read-string "To: "))
         (cc (read-string "Cc: "))

-        (buffer (or buffer gnus-clean-article-buffer))
-        (config (current-window-configuration));; need to add this - erik
+        (buffer (save-excursion
+                  (set-buffer gnus-article-buffer)
+                  (if (eq major-mode 'mime/viewer-mode)
+                      mime::preview/article-buffer
+                    (current-buffer)
+                    )))
+        (config (current-window-configuration)) ; need to add this - erik

         (subject (gnus-forward-make-subject buffer)))
     (setq mh-show-buffer buffer)
     (mh-find-path)
         (subject (gnus-forward-make-subject buffer)))
     (setq mh-show-buffer buffer)
     (mh-find-path)

-    (mh-send-sub to (or cc "") (or subject "(None)") config);; Erik Selberg 1/23/94
+    (mh-send-sub to (or cc "")
+                (or subject "(None)") config) ; Erik Selberg 1/23/94

     (let ((draft (current-buffer))
          (gnus-mail-buffer (current-buffer))
          mail-buf)
       (gnus-configure-windows 'reply-yank)
       (setq mail-buf (eval (cdr (assq 'mail gnus-window-to-buffer))))
     (let ((draft (current-buffer))
          (gnus-mail-buffer (current-buffer))
          mail-buf)
       (gnus-configure-windows 'reply-yank)
       (setq mail-buf (eval (cdr (assq 'mail gnus-window-to-buffer))))

-      (pop-to-buffer mail-buf);; always in the display, so won't have window probs
+      (pop-to-buffer mail-buf) ; always in the display, so won't have window probs

       (switch-to-buffer draft)
       )
     (save-excursion
       (switch-to-buffer draft)
       )
     (save-excursion

@@ -283,6 +249,23 @@ With arg, turn MIME processing on if arg is positive."
       (run-hooks 'gnus-mail-hook)
       )))
 
       (run-hooks 'gnus-mail-hook)
       )))
 

+)))
+
+
+;;; @ for BBDB
+;;;
+
+(defun tm-gnus/bbdb-setup ()
+  (if (memq 'bbdb/gnus-update-record gnus-article-prepare-hook)
+      (progn
+       (remove-hook 'gnus-article-prepare-hook 'bbdb/gnus-update-record)
+       (add-hook 'tm-gnus/article-prepare-hook 'bbdb/gnus-update-record)
+       )))
+
+(add-hook 'gnus-startup-hook 'tm-gnus/bbdb-setup t)
+
+(tm-gnus/bbdb-setup)
+

 
 ;;; @ end
 ;;;
 
 ;;; @ end
 ;;;

diff --git a/gnus/tm-sgnus.el b/gnus/tm-sgnus.el
index 3ce2136..13f182e 100644 (file)
--- a/gnus/tm-sgnus.el
+++ b/gnus/tm-sgnus.el
@@ -14,19 +14,14 @@
 (require 'tl-list)
 (require 'tl-misc)
 (require 'gnus)
 (require 'tl-list)
 (require 'tl-misc)
 (require 'gnus)

-
-(autoload 'mime/viewer-mode "tm-view" "View MIME message." t)
-(autoload 'mime/decode-message-header
-  "tm-ew-d" "Decode MIME encoded-words in message header." t)
-(autoload 'mime-eword/decode-string
-  "tm-ew-d" "Decode MIME encoded-words in string." t)
+(require 'tm-view)

 
 
 ;;; @ version
 ;;;
 
 (defconst tm-gnus/RCS-ID
 
 
 ;;; @ version
 ;;;
 
 (defconst tm-gnus/RCS-ID

-  "$Id: tm-sgnus.el,v 7.12 1995/10/29 14:13:08 morioka Exp $")
+  "$Id: tm-sgnus.el,v 7.13 1995/10/31 08:53:36 morioka Exp $")

 
 (defconst tm-gnus/version
   (concat (get-version-string tm-gnus/RCS-ID) " for September"))
 
 (defconst tm-gnus/version
   (concat (get-version-string tm-gnus/RCS-ID) " for September"))

diff --git a/mh-e/Makefile b/mh-e/Makefile
index 489a3c5..7ab2b2d 100644 (file)
--- 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
 
 
 FILES  = tm/mh-e/*.el tm/mh-e/Makefile tm/mh-e/mk-tmh tm/mh-e/*.ol

-TARFILE = tm-mh-e7.10.tar
+TARFILE = tm-mh-e7.12.tar

 
 
 elc:
 
 
 elc:

diff --git a/mh-e/tm-mh-e.el b/mh-e/tm-mh-e.el
index 4aa2977..74c51f4 100644 (file)
--- a/mh-e/tm-mh-e.el
+++ b/mh-e/tm-mh-e.el
@@ -26,7 +26,7 @@
 ;;;
 
 (defconst tm-mh-e/RCS-ID
 ;;;
 
 (defconst tm-mh-e/RCS-ID

-  "$Id: tm-mh-e.el,v 7.10 1995/10/30 03:19:18 morioka Exp $")
+  "$Id: tm-mh-e.el,v 7.12 1995/10/31 15:27:51 morioka Exp $")

 
 (defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
 
 
 (defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
 

@@ -330,6 +330,7 @@ With arg, turn MIME processing on if arg is positive."
     )))
 
 
     )))
 
 

+

 ;;; @ set up
 ;;;
 
 ;;; @ set up
 ;;;
 

diff --git a/mh-e/tm-mh-e3.el b/mh-e/tm-mh-e3.el
index f534cb7..b3dea2f 100644 (file)
--- a/mh-e/tm-mh-e3.el
+++ b/mh-e/tm-mh-e3.el
@@ -1,5 +1,5 @@
 ;;;
 ;;;

-;;; $Id: tm-mh-e3.el,v 5.0 1995/06/22 03:36:07 morioka Exp $
+;;; $Id: tm-mh-e3.el,v 6.0 1995/10/31 14:24:41 morioka Exp $

 ;;;
 ;;; This is a part of tm-mh-e.el which is a module for old mh-e
 ;;; to emulate mh-e 4.*.
 ;;;
 ;;; This is a part of tm-mh-e.el which is a module for old mh-e
 ;;; to emulate mh-e 4.*.

@@ -38,4 +38,8 @@ The value of mh-show-mode-hook is called when a new message is displayed."
 
 (fset 'mh-show-msg (symbol-function 'mh-show))
 
 
 (fset 'mh-show-msg (symbol-function 'mh-show))
 

+
+(provide 'mh-comp)
+
+

 (provide 'tm-mh-e3)
 (provide 'tm-mh-e3)

diff --git a/mk-tm b/mk-tm
index 117e3b2..68431f9 100644 (file)
--- a/mk-tm
+++ b/mk-tm
@@ -32,8 +32,8 @@
        '("signature"
          "tm-def"
          "tm-ew-d" "tm-ew-e" "tm-eword"
        '("signature"
          "tm-def"
          "tm-ew-d" "tm-ew-e" "tm-eword"

-         "tm-parse" "tm-view" "tm-play"
-         "tm-latex" "tm-w3" "tm-tar" "tm-partial"
+         "tm-parse" "tm-view" "tm-play" "tm-partial"
+         "tm-latex" "tm-w3" "tm-tar" "tm-file" "tm-mail"

          "tm-rmail" "tm-edit"
          "tm-setup" "mime-setup"
          ))
          "tm-rmail" "tm-edit"
          "tm-setup" "mime-setup"
          ))

diff --git a/tm-edit.el b/tm-edit.el
index 8533700..56afc1d 100644 (file)
--- a/tm-edit.el
+++ b/tm-edit.el
@@ -107,7 +107,7 @@
 ;; LCD Archive Entry:
 ;; mime|Masanobu UMEDA|umerin@mse.kyutech.ac.jp|
 ;; Simple MIME Composer|
 ;; LCD Archive Entry:
 ;; mime|Masanobu UMEDA|umerin@mse.kyutech.ac.jp|
 ;; Simple MIME Composer|

-;; $Date: 1995/10/29 06:15:49 $|$Revision: 7.14 $|~/misc/mime.el.Z|
+;; $Date: 1995/11/03 08:32:03 $|$Revision: 7.15 $|~/misc/mime.el.Z|

 
 ;;; Code:
 
 
 ;;; Code:
 

@@ -125,7 +125,7 @@
 ;;;
 
 (defconst mime-editor/RCS-ID
 ;;;
 
 (defconst mime-editor/RCS-ID

-  "$Id: tm-edit.el,v 7.14 1995/10/29 06:15:49 morioka Exp $")
+  "$Id: tm-edit.el,v 7.15 1995/11/03 08:32:03 morioka Exp morioka $")

 
 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
 
 
 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
 

@@ -211,7 +211,9 @@ To insert a signature file specified by mime-signature-file
       )
      ("html"
       ;;("charset" "" "ISO-2022-JP" "US-ASCII" "ISO-8859-1" "ISO-8859-8")
       )
      ("html"
       ;;("charset" "" "ISO-2022-JP" "US-ASCII" "ISO-8859-1" "ISO-8859-8")

-      ))
+      )
+     ("x-rot13-47")
+     )

     ("message"
      ("external-body"
       ("access-type"
     ("message"
      ("external-body"
       ("access-type"

@@ -238,6 +240,7 @@ To insert a signature file specified by mime-signature-file
     ("image"
      ("gif")
      ("jpeg")
     ("image"
      ("gif")
      ("jpeg")

+     ("tiff")

      ("x-pic")
      ("x-xwd")
      ("x-xbm")
      ("x-pic")
      ("x-xwd")
      ("x-xbm")

@@ -277,6 +280,9 @@ To insert a signature file specified by mime-signature-file
     ("\\.el$"
      "application" "octet-stream" (("name" . file)
                                   ("type" . "emacs-lisp")) "7bit")
     ("\\.el$"
      "application" "octet-stream" (("name" . file)
                                   ("type" . "emacs-lisp")) "7bit")

+    ("\\.lsp$"
+     "application" "octet-stream" (("name" . file)
+                                  ("type" . "common-lisp")) "7bit")

     ("\\.tar.gz$"
      "application" "octet-stream" (("name" . file)
                                   ("type" . "tar")
     ("\\.tar.gz$"
      "application" "octet-stream" (("name" . file)
                                   ("type" . "tar")

@@ -1407,6 +1413,13 @@ while if FLAG is `\\^M' (control-M) the text is hidden."
             ;; Define charset for text if necessary.
             (setq charset (or charset (mime-editor/choose-charset)))
             (mime-editor/define-charset charset)
             ;; Define charset for text if necessary.
             (setq charset (or charset (mime-editor/choose-charset)))
             (mime-editor/define-charset charset)

+            (if (string-equal contype "text/x-rot13-47")
+                (save-excursion
+                  (forward-line)
+                  (set-mark (point))
+                  (goto-char (mime-editor/content-end))
+                  (mime-editor/caesar-region)
+                  ))

             ;; Point is now on current tag.
             ;; Define encoding and encode text if necessary.
             (if (null encoding)        ;Encoding is not specified.
             ;; Point is now on current tag.
             ;; Define encoding and encode text if necessary.
             (if (null encoding)        ;Encoding is not specified.

@@ -1708,7 +1721,8 @@ a recording host instead of local host."
        (cond ((and (<= nparts 1)(not multipart))
               ;; It's a singular message.
               (goto-char (point-min))
        (cond ((and (<= nparts 1)(not multipart))
               ;; It's a singular message.
               (goto-char (point-min))

-              (while (re-search-forward mime-editor/single-part-tag-regexp nil t)
+              (while (re-search-forward
+                      mime-editor/single-part-tag-regexp nil t)

                 (setq tag
                       (buffer-substring (match-beginning 0) (match-end 0)))
                 (delete-region (match-beginning 0) (1+ (match-end 0)))
                 (setq tag
                       (buffer-substring (match-beginning 0) (match-end 0)))
                 (delete-region (match-beginning 0) (1+ (match-end 0)))

@@ -1718,7 +1732,8 @@ a recording host instead of local host."
              (t
               ;; It's a multipart message.
               (goto-char (point-min))
              (t
               ;; It's a multipart message.
               (goto-char (point-min))

-              (while (re-search-forward mime-editor/single-part-tag-regexp nil t)
+              (while (re-search-forward
+                      mime-editor/single-part-tag-regexp nil t)

                 (setq tag
                       (buffer-substring (match-beginning 0) (match-end 0)))
                 (delete-region (match-beginning 0) (match-end 0))
                 (setq tag
                       (buffer-substring (match-beginning 0) (match-end 0)))
                 (delete-region (match-beginning 0) (match-end 0))

@@ -1794,16 +1809,72 @@ a recording host instead of local host."
                    (end (match-end 0))
                    )
                (delete-region beg end)
                    (end (match-end 0))
                    )
                (delete-region beg end)

-               (if (not (looking-at mime-editor/single-part-tag-regexp))
+               (if (and (not (looking-at mime-editor/single-part-tag-regexp))
+                        (not (eobp)))

                    (insert (concat (mime-make-text-tag) "\n"))
                  )))
                    (insert (concat (mime-make-text-tag) "\n"))
                  )))

-         (setq boundary (nth 2 (mime-editor/translate-region bb eb boundary t)))
+         (setq boundary
+               (nth 2 (mime-editor/translate-region bb eb
+                                                    boundary t)))

          (goto-char bb)
          (insert
           (format "--[[multipart/%s; boundary=\"%s\"][7bit]]\n"
                   type boundary))
          (goto-char bb)
          (insert
           (format "--[[multipart/%s; boundary=\"%s\"][7bit]]\n"
                   type boundary))

-         boundary)
-      )))
+         boundary))))
+
+
+;;; caesar-region written by phr@prep.ai.mit.edu  Nov 86
+;;; modified by tower@prep Nov 86
+;;; gnus-caesar-region
+;;; Modified by umerin@flab.flab.Fujitsu.JUNET for ROT47.
+
+(defun mime-editor/caesar-region (&optional n)
+  "Caesar rotation of region by N, default 13, for decrypting netnews.
+ROT47 will be performed for Japanese text in any case."
+  (interactive (if current-prefix-arg  ; Was there a prefix arg?
+                  (list (prefix-numeric-value current-prefix-arg))
+                (list nil)))
+  (cond ((not (numberp n)) (setq n 13))
+       (t (setq n (mod n 26))))        ;canonicalize N
+  (if (not (zerop n))          ; no action needed for a rot of 0
+      (progn
+       (if (or (not (boundp 'caesar-translate-table))
+               (/= (aref caesar-translate-table ?a) (+ ?a n)))
+           (let ((i 0) (lower "abcdefghijklmnopqrstuvwxyz") upper)
+             (message "Building caesar-translate-table...")
+             (setq caesar-translate-table (make-vector 256 0))
+             (while (< i 256)
+               (aset caesar-translate-table i i)
+               (setq i (1+ i)))
+             (setq lower (concat lower lower) upper (upcase lower) i 0)
+             (while (< i 26)
+               (aset caesar-translate-table (+ ?a i) (aref lower (+ i n)))
+               (aset caesar-translate-table (+ ?A i) (aref upper (+ i n)))
+               (setq i (1+ i)))
+             ;; ROT47 for Japanese text.
+             ;; Thanks to ichikawa@flab.fujitsu.junet.
+             (setq i 161)
+             (let ((t1 (logior ?O 128))
+                   (t2 (logior ?! 128))
+                   (t3 (logior ?~ 128)))
+               (while (< i 256)
+                 (aset caesar-translate-table i
+                       (let ((v (aref caesar-translate-table i)))
+                         (if (<= v t1) (if (< v t2) v (+ v 47))
+                           (if (<= v t3) (- v 47) v))))
+                 (setq i (1+ i))))
+             (message "Building caesar-translate-table...done")))
+       (let ((from (region-beginning))
+             (to (region-end))
+             (i 0) str len)
+         (setq str (buffer-substring from to))
+         (setq len (length str))
+         (while (< i len)
+           (aset str i (aref caesar-translate-table (aref str i)))
+           (setq i (1+ i)))
+         (goto-char from)
+         (delete-region from to)
+         (insert str)))))

 
 
 ;;; @ multipart enclosure
 
 
 ;;; @ multipart enclosure

diff --git a/tm-file.el b/tm-file.el
new file mode 100644 (file)
index 0000000..6eae652
--- /dev/null
+++ b/tm-file.el
@@ -0,0 +1,64 @@
+;;;
+;;; tm-file.el --- tm-view internal method for file extraction
+;;;
+;;; Copyright (C) 1995 Free Software Foundation, Inc.
+;;; Copyright (C) 1995 MORIOKA Tomohiko
+;;;
+;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Version:
+;;;    $Id: tm-file.el,v 2.0 1995/11/06 16:05:29 morioka Exp $
+;;; Keywords: mail, news, MIME, multimedia
+;;;
+;;; This file is part of tm (Tools for MIME).
+;;;
+
+(require 'tm-view)
+
+(defun mime-article/extract-file (beg end cal)
+  (let* ((name (or (cdr (assoc "name" cal))
+                  (cdr (assoc "x-name" cal))
+                  (make-temp-name "tm")))
+        (encoding (cdr (assq 'encoding cal)))
+        (dir (call-interactively
+              (function
+               (lambda (dir)
+                 (interactive "Ddirictory: ")
+                 dir))))
+        (file-coding-system *noconv*)
+        (filename (expand-file-name name dir))
+        (the-buf (current-buffer))
+        (tmp-buf (generate-new-buffer name))
+        )
+    (goto-char beg)
+    (re-search-forward "\n\n")
+    (append-to-buffer tmp-buf (match-end 0) end)
+    (save-excursion
+      (set-buffer tmp-buf)
+      (mime/decode-region encoding (point-min)(point-max))
+      (let ((file-coding-system *noconv*)
+           jka-compr-compression-info-list
+           jam-zcat-filename-list)
+       (write-file filename)
+       )
+      (kill-buffer tmp-buf)
+      )))
+
+
+;;; @ setup
+;;;
+
+(set-atype 'mime/content-decoding-condition
+          '((mode . "extract")
+            (method . mime-article/extract-file)
+            ))
+
+(set-atype 'mime/content-decoding-condition
+          '((type . "application/octet-stream")
+            (method . mime-article/extract-file)
+            ))
+
+
+;;; @ end
+;;;
+
+(provide 'tm-file)

diff --git a/tm-mail.el b/tm-mail.el
new file mode 100644 (file)
index 0000000..e37229c
--- /dev/null
+++ b/tm-mail.el
@@ -0,0 +1,78 @@
+;;;
+;;; $Id: tm-mail.el,v 1.1 1995/11/04 08:22:24 morioka Exp $
+;;;
+
+(require 'tm-view)
+
+(autoload 'mime-editor/caesar-region "tm-edit" nil t)
+
+(defun mime-viewer/quitting-method-for-mime/show-message-mode ()
+  (set-window-configuration mime/show-mode-old-window-configuration)
+  (let ((mother mime::preview/mother-buffer))
+    (kill-buffer
+     (mime::preview-content-info/buffer (car mime::preview/content-list)))
+    (mime-viewer/kill-buffer)
+    (pop-to-buffer mother)
+    ;;(goto-char (point-min))
+    ;;(mime-viewer/up-content)
+    ))
+
+(defun mime-article/view-message/rfc822 (beg end cal)
+  (let* ((cnum (mime-article/point-content-number beg))
+        (cur-buf (current-buffer))
+        (new-name (format "%s-%s" (buffer-name) cnum))
+        (mother mime::article/preview-buffer)
+        str)
+    (setq str (buffer-substring beg end))
+    (switch-to-buffer new-name)
+    (erase-buffer)
+    (insert str)
+    (goto-char (point-min))
+    (if (re-search-forward "^\n" nil t)
+       (delete-region (point-min) (match-end 0))
+      )
+    (setq major-mode 'mime/show-message-mode)
+    (mime/viewer-mode mother)
+    ))
+
+(defun mime-article/decode-caesar (beg end cal)
+  (let* ((cnum (mime-article/point-content-number beg))
+        (cur-buf (current-buffer))
+        (new-name (format "%s-%s" (buffer-name) cnum))
+        (mother mime::article/preview-buffer)
+        (charset (cdr (assoc "charset" params)))
+        (mode major-mode)
+        str)
+    (setq str (buffer-substring beg end))
+    (switch-to-buffer new-name)
+    (erase-buffer)
+    (insert str)
+    (goto-char (point-min))
+    (if (re-search-forward "^\n" nil t)
+       (delete-region (point-min) (match-end 0))
+      )
+    (let ((m (assq mode mime-viewer/code-converter-alist)))
+      (if (and m (fboundp (setq m (cdr m))))
+         (funcall m (point-min) (point-max) charset encoding)
+       (mime-viewer/default-code-convert-region (point-min) (point-max)
+                                                charset encoding)
+       ))
+    (save-excursion
+      (set-mark (point-min))
+      (goto-char (point-max))
+      (mime-editor/caesar-region)
+      )
+    (view-mode)
+    ))
+
+(set-atype 'mime/content-decoding-condition
+          '((type . "message/rfc822")
+            (method . mime-article/view-message/rfc822)
+            ))
+
+(set-atype 'mime/content-decoding-condition
+          '((type . "text/x-rot13-47")
+            (method . mime-article/decode-caesar)
+            ))
+
+(provide 'tm-mail)

diff --git a/tm-play.el b/tm-play.el
index 4956b4f..ef3cc3f 100644 (file)
--- a/tm-play.el
+++ b/tm-play.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:

-;;;    $Id: tm-play.el,v 2.0 1995/10/23 09:26:41 morioka Exp $
+;;;    $Id: tm-play.el,v 4.0 1995/11/04 07:51:22 morioka Exp $

 ;;; Keywords: mail, news, MIME, multimedia
 ;;;
 ;;; This file is part of tm (Tools for MIME).
 ;;; Keywords: mail, news, MIME, multimedia
 ;;;
 ;;; This file is part of tm (Tools for MIME).

@@ -207,7 +207,9 @@
          (switch-to-buffer "*MIME-temp*")
          (let ((i 1)
                (max (string-to-int total))
          (switch-to-buffer "*MIME-temp*")
          (let ((i 1)
                (max (string-to-int total))

-               )
+               (file-coding-system-for-read (if (boundp 'MULE)
+                                                *noconv*))
+               kanji-fileio-code)

            (catch 'tag
              (while (<= i max)
                (setq file (concat root-dir "/" (int-to-string i)))
            (catch 'tag
              (while (<= i max)
                (setq file (concat root-dir "/" (int-to-string i)))

@@ -229,7 +231,11 @@
          )
       (progn
        (delete-other-windows)
          )
       (progn
        (delete-other-windows)

-       (find-file file)
+       (let ((file-coding-system-for-read
+              (if (boundp 'MULE) *noconv*))
+             kanji-fileio-code)
+         (find-file file)
+         )

        (setq major-mode 'mime/show-message-mode)
        (mime/viewer-mode mother)
        (pop-to-buffer (current-buffer))
        (setq major-mode 'mime/show-message-mode)
        (mime/viewer-mode mother)
        (pop-to-buffer (current-buffer))

diff --git a/tm-rmail.el b/tm-rmail.el
index 9fef7ea..dc001cd 100644 (file)
--- a/tm-rmail.el
+++ b/tm-rmail.el
@@ -4,7 +4,7 @@
 ;;;
 ;;; Author:   MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
 ;;;
 ;;; Author:   MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:

-;;;    $Id: tm-rmail.el,v 7.8 1995/10/30 05:52:36 morioka Exp $
+;;;    $Id: tm-rmail.el,v 7.12 1995/11/02 12:20:51 morioka Exp $

 ;;; Keywords: mail, MIME, multimedia, multilingual, encoded-word
 ;;;
 ;;; This file is part of tm (Tools for MIME).
 ;;; Keywords: mail, MIME, multimedia, multilingual, encoded-word
 ;;;
 ;;; This file is part of tm (Tools for MIME).

@@ -57,7 +57,8 @@
              (function
               (lambda ()
                 (cons (mime/Content-Type)
              (function
               (lambda ()
                 (cons (mime/Content-Type)

-                      (mail-fetch-field "Content-Transfer-Encoding"))
+                      (rfc822/get-field-body "Content-Transfer-Encoding")
+                      )

                 )))))
     (mime/viewer-mode nil (car ret)(cdr ret) nil
                      (format "*Preview-%s [%d/%d]*"
                 )))))
     (mime/viewer-mode nil (car ret)(cdr ret) nil
                      (format "*Preview-%s [%d/%d]*"

@@ -162,7 +163,7 @@
                (lambda ()
                  (rmail-summary-goto-msg (count-lines 1 (point)))
                  (pop-to-buffer rmail-buffer)
                (lambda ()
                  (rmail-summary-goto-msg (count-lines 1 (point)))
                  (pop-to-buffer rmail-buffer)

-                 (tm-rmail/view-message)
+                 (tm-rmail/preview-message)

                  )))
     )))
 
                  )))
     )))
 

@@ -201,7 +202,7 @@ from rmail. The message will be appended if being composed."
       (goto-char (point-max))
       (forward-line 1)
       (setq beginning (point))
       (goto-char (point-max))
       (forward-line 1)
       (setq beginning (point))

-      (tm-edit/insert-tag "message" "rfc822")
+      (mime-editor/insert-tag "message" "rfc822")

       (insert-buffer forwarding-buffer))
     (if (not initialized)
        (goto-char beginning))
       (insert-buffer forwarding-buffer))
     (if (not initialized)
        (goto-char beginning))

@@ -211,7 +212,7 @@ from rmail. The message will be appended if being composed."
                           'tm-rmail/forward
                           rmail-mode-map)
 
                           'tm-rmail/forward
                           rmail-mode-map)
 

-(defun tm-rmail/forward-from-gnus ()
+(defun gnus-mail-forward-using-mail-mime ()

   "\
 Forward current article in message/rfc822 content-type message from
 GNUS. The message will be appended if being composed."
   "\
 Forward current article in message/rfc822 content-type message from
 GNUS. The message will be appended if being composed."

diff --git a/tm-view.el b/tm-view.el
index 7c88bd7..823a268 100644 (file)
--- a/tm-view.el
+++ b/tm-view.el
@@ -25,7 +25,7 @@
 ;;;
 
 (defconst mime-viewer/RCS-ID
 ;;;
 
 (defconst mime-viewer/RCS-ID

-  "$Id: tm-view.el,v 7.21 1995/10/30 05:57:27 morioka Exp $")
+  "$Id: tm-view.el,v 7.22 1995/11/03 09:05:23 morioka Exp $")

 
 (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
 (defconst mime/viewer-version mime-viewer/version)
 
 (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
 (defconst mime/viewer-version mime-viewer/version)

@@ -238,7 +238,7 @@
 ;;;
 
 (defvar mime/show-mode-old-window-configuration nil)
 ;;;
 
 (defvar mime/show-mode-old-window-configuration nil)

-(defvar mime/mother-buffer nil)
+(defvar mime::preview/mother-buffer nil)

 
 (defvar mime::article/content-info nil)
 (defvar mime::article/preview-buffer nil)
 
 (defvar mime::article/content-info nil)
 (defvar mime::article/preview-buffer nil)

@@ -253,7 +253,7 @@
 
 (defun mime-viewer/quitting-method-for-mime/show-message-mode ()
   (set-window-configuration mime/show-mode-old-window-configuration)
 
 (defun mime-viewer/quitting-method-for-mime/show-message-mode ()
   (set-window-configuration mime/show-mode-old-window-configuration)

-  (let ((mother mime/mother-buffer))
+  (let ((mother mime::preview/mother-buffer))

     (kill-buffer
      (mime::preview-content-info/buffer (car mime::preview/content-list)))
     (mime-viewer/kill-buffer)
     (kill-buffer
      (mime::preview-content-info/buffer (car mime::preview/content-list)))
     (mime-viewer/kill-buffer)

@@ -587,7 +587,9 @@ The compressed face will be piped to this command.")
 ;;; @ content filter
 ;;;
 
 ;;; @ content filter
 ;;;
 

-(defvar mime-viewer/code-converter-alist nil)
+(defvar mime-viewer/code-converter-alist
+  '((mime/show-message-mode . mime/code-convert-region-to-emacs))
+  )

 
 (defun mime-viewer/default-code-convert-region
   (beg end charset &optional encoding)
 
 (defun mime-viewer/default-code-convert-region
   (beg end charset &optional encoding)

@@ -595,19 +597,23 @@ The compressed face will be piped to this command.")
       (mime/code-convert-region-to-emacs beg (point-max) charset)
     ))
 
       (mime/code-convert-region-to-emacs beg (point-max) charset)
     ))
 

+(defun mime-preview/decode-text-region (beg end charset encoding)
+  (mime/decode-region encoding beg end)
+  (let* ((mode mime::preview/original-major-mode)
+        (m (assq mode mime-viewer/code-converter-alist))
+        )
+    (if (and m (fboundp (setq m (cdr m))))
+       (funcall m beg (point-max) charset encoding)
+      (mime-viewer/default-code-convert-region
+       beg (point-max) charset encoding)
+      )))
+

 (defun mime-viewer/filter-text/plain (ctype params encoding)
   (let ((charset (cdr (assoc "charset" params)))
        (beg (point-min)) (end (point-max))
        )
 (defun mime-viewer/filter-text/plain (ctype params encoding)
   (let ((charset (cdr (assoc "charset" params)))
        (beg (point-min)) (end (point-max))
        )

-    (mime/decode-region encoding beg end)
-    (let* ((mode mime::preview/original-major-mode)
-          (m (assq mode mime-viewer/code-converter-alist))
-          )
-      (if (and m (fboundp (setq m (cdr m))))
-         (funcall m beg (point-max) charset encoding)
-       (mime-viewer/default-code-convert-region beg (point-max)
-                                                charset encoding)
-       )))
+    (mime-preview/decode-text-region beg end charset encoding)
+    )

   (goto-char (point-max))
   (if (not (eq (char-after (1- (point))) ?\n))
       (insert "\n")
   (goto-char (point-max))
   (if (not (eq (char-after (1- (point))) ?\n))
       (insert "\n")

@@ -716,8 +722,8 @@ listed in key order:
             'mime/show-mode-old-window-configuration)
            (setq mime/show-mode-old-window-configuration
                  (current-window-configuration))
             'mime/show-mode-old-window-configuration)
            (setq mime/show-mode-old-window-configuration
                  (current-window-configuration))

-           (make-variable-buffer-local 'mime/mother-buffer)
-           (setq mime/mother-buffer mother)
+           (make-variable-buffer-local 'mime::preview/mother-buffer)
+           (setq mime::preview/mother-buffer mother)

            ))
       (use-local-map mime/viewer-mode-map)
       (make-variable-buffer-local 'mime::preview/content-list)
            ))
       (use-local-map mime/viewer-mode-map)
       (make-variable-buffer-local 'mime::preview/content-list)