Newsgroups: fj.editor.emacs,fj.mail,fj.sources
Path: galaxy.trc.rwcp.or.jp!jaist-news!morioka
From: morioka@jaist.ac.jp (=?ISO-2022-JP?B?GyRCPGkyLBsoQiAbJEJDTkknGyhC?= /
 MORIOKA Tomohiko)
Subject: =?ISO-2022-JP?B?GyRCNEowVxsoQg==?= MIME header encoder/decoder:
 tiny-mime.el version 2.6 [3/5]
Content-Type: multipart/mixed; boundary="Multipart Fri Dec  3 21:20:52 1993"
Message-ID: <MORIOKA.93Dec3212052@is15e0s03.jaist.ac.jp>
Sender: news@jaist.ac.jp (News System Administrator)
X-Nsubject: $B4J0W(B MIME header encoder/decoder: tiny-mime.el version 2.6 [3/5]
Content-Transfer-Encoding: 7bit
Organization: JAIST, Hokuriku; Tatsunokuchi, Ishikawa, Japan /
 =?ISO-2022-JP?B?GyRCS0xOJkBoQzwySjNYNTs9UUJnM1gxIUJnM1gbKEIgGyRCQFAbKEI=?=
 =?ISO-2022-JP?B?GyRCQG44KUc9SH43NEMkOH1ELhsoQg==?=
Mime-Version: 1.0
Date: Fri, 3 Dec 1993 12:20:52 GMT
Lines: 85
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:4226 fj.mail:1453 fj.sources:2917
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.mail&nb=1453&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

--Multipart Fri Dec  3 21:20:52 1993
Content-Type: text/plain; charset=ISO-2022-JP

  tm modules $B$r$*FO$1$7$^$9!#(B

  tm modules $B$O(B tiny-mime patch $B$N8e7Q$G$9!#(B

  GNUS $BMQ$N(B tm-gnus.el, mh-e $BMQ$N(B tm-mh-e.el $B$rMQ0U$7$F$$$^$9!#(B

  $B!JA0$K!"(Bgnue-mime.el $B$H$$$&L>A0$GEj9F$7$^$7$?$,!"$9$G$K(B gnus-mime.el
$B$H$$$&L>A0$N(B package $B$,B8:_$9$k$i$7$$$N$G!"(Btm-gnus.el $B$KL>A0$rJQ$($^$7(B
$B$?!#!K(B

  tm modules $B$O(B tm-misc.el $B$H(B tiny-mime.el $B$,I,MW$G$9!#$^$?!"(Bmetamail 
$B$H(B metamail.el $B$rMQ0U$9$l$P(B MIME body $BBP1~$K$J$j$^$9!#(B

 $B!J$3$N(B message $B$O(B MIME $B$G=hM}$9$k$3$H$K$h$C$F!"<+F0E*$K(B file $B$r<h$j=P(B
$B$;$^$9!#HsBP1~$NJ}$O!"%(%G%#%?!<Ey$G!"@Z$j=P$7$F2<$5$$!K(B

--Multipart Fri Dec  3 21:20:52 1993
Content-Type: application/octet-stream; name="tm-misc.el"; type=elisp
Content-Transfer-Encoding: 7bit

;;;
;;; $Id: tm-misc.el,v 1.5 1993/12/03 11:51:37 morioka Exp morioka $
;;;
;;;   MIME utility for tm-*.el MIME user agent packages
;;;
;;; by Morioka Tomohiko, 1993/11/21

(provide 'tm-misc)

(autoload 'mime/decode-message-header "tiny-mime" "decode MIME header." t)
(autoload 'mime/decode-string "tiny-mime"
  "decode MIME encoded-words in this string." t)
(autoload 'metamail-buffer "metamail" "full-decode MIME message." t)

(defvar mime/header-decoding-mode t "*Decode MIME header if non-nil.")

(defun mime/add-header-decoding-mode-to-mode-line ()
  (or (assq 'mime/header-decoding-mode minor-mode-alist)
      (setq minor-mode-alist
    (cons (list 'mime/header-decoding-mode " MIME")
  minor-mode-alist))
      ))

;;; @ about functions
;;;

(defun get-lambda-body (l)
  (if (listp l)
      (cdr (cdr l))
    (list (list l))
    ))

(defun append-hooks (a b)
  (append (list 'lambda ())
  (get-lambda-body a)
  (get-lambda-body b)
  ))

;;; @ 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))
     ))
--Multipart Fri Dec  3 21:20:52 1993
Content-Type: text/plain; charset=ISO-2022-JP

$B(.!X$o$+$i$s$+$M!)!D$`$m$s!"%8%g!<%/$@$h!Y(,(,(,(,(,(,(,(,(,(,(,(,(,(/(B
$B(-(B                  $B<i2,(B $BCNI'(B (MORIOKA Tomohiko)                    $B(-(B
$B(-!!(B                                    Email: <morioka@jaist.ac.jp>$B(-(B
$B(1(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(0(B
--Multipart Fri Dec  3 21:20:52 1993--
