tm 7.105.1.

[elisp/tm.git] / tm-misc.el

diff --git a/tm-misc.el b/tm-misc.el
index 1be7b4b..635e017 100644 (file)
--- a/tm-misc.el
+++ b/tm-misc.el
@@ -1,19 +1,31 @@
 ;;;
-;;; $Id: tm-misc.el,v 3.0 1994/08/31 07:15:08 morioka Exp $
+;;; $Id: tm-misc.el,v 5.2 1995/08/26 18:41:39 morioka Exp $
 ;;;
 ;;;   MIME utility for tm-*.el MIME user agent packages
 ;;;
 ;;; by Morioka Tomohiko, 1993/11/21
+;;;
 
-(provide 'tm-misc)
-
-(if (< (string-to-int emacs-version) 19)
-    (require 'tl-18)
-  )
+(require 'emu)
 (require 'tiny-mime)
 
+
+;;; @ variables
+;;;
+
+(defvar mime/tmp-dir (or (getenv "TM_TMPDIR") "/tmp/"))
+
 (defvar mime/header-decoding-mode t "*Decode MIME header if non-nil.")
 
+
+;;; @ functions
+;;;
+
+(defun mime/decode-message-header-if-you-need ()
+  (if mime/header-decoding-mode
+      (mime/decode-message-header)
+    ))
+
 (defun mime/add-header-decoding-mode-to-mode-line ()
   (or (assq 'mime/header-decoding-mode minor-mode-alist)
       (setq minor-mode-alist
@@ -22,25 +34,7 @@
       ))
 
 
-;;; @ about rightful dividing for multi-octet string
-;;;
-;; by mol. 1993/9/26
-(defun rightful-boundary-short-string (str width)
-  (substring str 0 
-            (let ((i 0) (w 0) chr (len (length str)))
-              (catch 'label
-                (while (< i len)
-                  (setq chr (elt str i))
-                  (setq w (+ w (char-width chr)))
-                  (if (> w width)
-                      (throw 'label i))
-                  (setq i (+ i (char-bytes chr)))
-                  )
-                i))
-            ))
-
-
-;;; @ functions to check field
+;;; @@ functions to check field
 ;;;
 (defun mime/exist-encoded-word-in-subject ()
   (string-match
@@ -52,3 +46,9 @@
           (buffer-substring (match-beginning 0) (match-end 0))
         )
        ))))
+
+
+;;; @ end
+;;;
+
+(provide 'tm-misc)