Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!jaist-news!morioka
From: morioka@jaist.ac.jp (=?ISO-2022-JP?B?GyRCPGkyLBsoQiAbJEJDTkknGyhC?= /
 MORIOKA Tomohiko)
Subject: tm-misc.el version 1.6 (Re: [Q] GNUS + tiny-mime)
In-Reply-To: yamaoka@ga.sony.co.jp's message of 8 Dec 93 03:09:39 GMT
Content-Type: multipart/mixed; boundary="Multipart Wed Dec  8 16:56:41 1993"
Message-ID: <MORIOKA.93Dec8165641@is15e0s03.jaist.ac.jp>
Sender: news@jaist.ac.jp (News System Administrator)
Content-Transfer-Encoding: 7bit
Organization: JAIST, Hokuriku / =?ISO-2022-JP?B?GyRCS0xOJkBoQzwySjNYGyhC?=
 =?ISO-2022-JP?B?GyRCNTs9UUJnM1gxIUJnM1gbKEI=?=
References: <MORIOKA.93Dec3211034@is15e0s03.jaist.ac.jp>
 <KAWAKAMI.93Dec5042743@femto.lssl.rcast.u-tokyo.ac.jp>
 <MORIOKA.93Dec6180200@is15e0s03.jaist.ac.jp>
 <KAWAKAMI.93Dec7201502@zepto.lssl.rcast.u-tokyo.ac.jp>
 <JUN.93Dec8082428@n078.saskg.semicon.sony.co.jp>
 <YAMAOKA.93Dec8120940@gin.ga.sony.co.jp>
Mime-Version: 1.0
Date: Wed, 8 Dec 1993 07:56:41 GMT
Lines: 97
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:4258
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=4258&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 Wed Dec  8 16:56:41 1993
Content-Type: text/plain; charset=ISO-2022-JP

  gnusutil.el $B$H(B tm-gnus.el $B$NJ;MQ;~$NLdBj$O!"$I$&$b!"(Bhook $B$N(B append 
$B$KLdBj$,$"$C$?$h$&$G!"$3$l$rD>$7$?(B tm-misc.el $B$rEj9F$7$^$9!#(B

  $B$=$7$F!"(Bgnusutil.el $B$H(B tm-gnus.el $B$rJ;MQ$9$k>l9g$O!"(B

----------------------------------------------------------------------
(if (boundp 'MULE)
    (progn
      (setq gnus-group-mode-hook 'gnusutil-initialize)
      (autoload 'gnusutil-initialize "gnusutil")
      (autoload 'gnusutil-add-group "gnusutil")
      (setq gnusutil-initialize-hook
    '(lambda ()
       (load "tm-gnus")
       ))
      )
  (load "tm-gnus")
  )
----------------------------------------------------------------------

$B$N$h$&$J46$8$K$7$F2<$5$$!#(B

  $BB>$K$b!"LdBjE@$,$"$k$_$?$$$G$9$,!"$H$j$"$($:!":#F|$N$H$3$m$O$3$3$^$G(B
$B$H$$$&$3$H$G!#(B

--Multipart Wed Dec  8 16:56:41 1993
Content-Type: application/octet-stream; name="tm-misc.el"; type=elisp
Content-Transfer-Encoding: 7bit

;;;
;;; $Id: tm-misc.el,v 1.6 1993/12/08 07:51:01 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)
      (if (>= (length l) 2)
  (cdr (cdr l))
(list 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 Wed Dec  8 16:56:41 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 Wed Dec  8 16:56:41 1993--
