X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tm-def.el;h=d8688aad56d3de6def7c4e122690fd872a92fa00;hb=29e661110079bf0d047d34fa64f7a963d06b7522;hp=d672cbec97625017fd19d9240e7fb47b8af67531;hpb=b32afecb7e1e90d59062b878a2ebd4591a756bce;p=elisp%2Ftm.git

diff --git a/tm-def.el b/tm-def.el
index d672cbe..d8688aa 100644
--- a/tm-def.el
+++ b/tm-def.el
@@ -2,15 +2,30 @@
 ;;; tm-def.el --- definition module for tm
 ;;;
 ;;; 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>
 ;;; Version:
-;;;	$Id: tm-def.el,v 7.7 1995/12/21 18:17:03 morioka Exp $
+;;;	$Id: tm-def.el,v 7.62 1996/07/18 06:04:28 morioka Exp $
 ;;; Keywords: mail, news, MIME, multimedia, definition
 ;;;
 ;;; 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.
+;;;
+;;; Code:
 
 (require 'emu)
 (require 'tl-822)
@@ -30,6 +45,9 @@
     (function find-file)
     ))
 
+(defvar mime/output-buffer-window-is-shared-with-bbdb t
+  "*If t, mime/output-buffer window is shared with BBDB window.")
+
 
 ;;; @ constants
 ;;;
@@ -38,13 +56,46 @@
 (defconst mime/temp-buffer-name " *MIME-temp*")
 
 
-;;; @ for various Emacs variants
+;;; @ charset and encoding
 ;;;
 
-(cond ((boundp 'MULE)  (require 'tm-mule))
-      ((boundp 'NEMACS)(require 'tm-nemacs))
-      (t               (require 'tm-orig))
-      )
+(defvar mime-charset-type-list
+  '((us-ascii		7 nil)
+    (iso-8859-1		8 "quoted-printable")
+    (iso-8859-2		8 "quoted-printable")
+    (iso-8859-3		8 "quoted-printable")
+    (iso-8859-4		8 "quoted-printable")
+    (iso-8859-5		8 "quoted-printable")
+    (koi8-r		8 "quoted-printable")
+    (iso-8859-7		8 "quoted-printable")
+    (iso-8859-8		8 "quoted-printable")
+    (iso-8859-9		8 "quoted-printable")
+    (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")
+    ))
+
+(defun mime/encoding-name (transfer-level &optional not-omit)
+  (cond ((> transfer-level 8) "binary")
+	((= transfer-level 8) "8bit")
+	(not-omit "7bit")
+	))
+
+(defun mime/make-charset-default-encoding-alist (transfer-level)
+  (mapcar (function
+	   (lambda (charset-type)
+	     (let ((charset  (upcase (symbol-name (car charset-type))))
+		   (type     (nth 1 charset-type))
+		   (encoding (nth 2 charset-type))
+		   )
+	       (if (<= type transfer-level)
+		   (cons charset (mime/encoding-name type))
+		 (cons charset encoding)
+		 ))))
+	  mime-charset-type-list))
 
 
 ;;; @ button
@@ -75,16 +126,24 @@
 (defun tm:button-dispatcher (event)
   "Select the button under point."
   (interactive "e")
-  (mouse-set-point event)
-  (let ((func (get-text-property (point) 'tm-callback))
-	(data (get-text-property (point) 'tm-data))
-	)
-    (if func
-	(apply func data)
-      (if (fboundp tm:mother-button-dispatcher)
-	  (funcall tm:mother-button-dispatcher event)
-	)
-      )))
+  (let (buf point func data)
+    (save-window-excursion
+      (mouse-set-point event)
+      (setq buf (current-buffer)
+	    point (point)
+	    func (get-text-property (point) 'tm-callback)
+	    data (get-text-property (point) 'tm-data)
+	    )
+      )
+    (save-excursion
+      (set-buffer buf)
+      (goto-char point)
+      (if func
+	  (apply func data)
+	(if (fboundp tm:mother-button-dispatcher)
+	    (funcall tm:mother-button-dispatcher event)
+	  )
+	))))
 
 
 ;;; @ for URL
@@ -95,9 +154,11 @@
 
 (defvar browse-url-browser-function nil)
 
-(defun tm:browse-url ()
+(defun tm:browse-url (&optional url)
   (if (fboundp browse-url-browser-function)
-      (call-interactively browse-url-browser-function)
+      (if url 
+        (funcall browse-url-browser-function url)
+      (call-interactively browse-url-browser-function))
     (if (fboundp tm:mother-button-dispatcher)
 	(call-interactively tm:mother-button-dispatcher)
       )
@@ -277,3 +338,5 @@ ROT47 will be performed for Japanese text in any case."
 ;;;
 
 (provide 'tm-def)
+
+;;; tm-def.el ends here