Newsgroups: fj.editor.emacs,fj.sources
Path: galaxy.trc.rwcp.or.jp!jaist-news!morioka
From: morioka@jaist.ac.jp ($B<i2,(B $BCNI'(B / MORIOKA Tomohiko)
Subject: $BB?8@8l(B MIME header encoder/decoder tiny-mime.el ver 3.2
Message-ID: <MORIOKA.94Mar3184546@hare.jaist.ac.jp>
Followup-To: fj.editor.emacs
Sender: news@jaist.ac.jp (News System Administrator)
Organization: JAIST, Hokuriku / $BKLN&@hC<2J3X5;=QBg3X1!Bg3X(B
References: <SEKIMIZU.94Mar1112027@jaga.niigata.fukuda.snet.or.jp>
	<MORIOKA.94Mar2160603@is15e0s03.jaist.ac.jp>
	<SEKIMIZU.94Mar3125247@jaga.niigata.fukuda.snet.or.jp>
Distribution: fj
Date: Thu, 3 Mar 1994 09:45:46 GMT
Dnas-Posting-Host: hare
Lines: 108
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:4496 fj.sources:2926
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=4496&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.

  tiny-mime.el v 3.1 $B$+$i(B v 3.2 $B$X$N(B patch $B$G$9!#(B

  Mule $B$G(B body $B$,6u$N(B field $B$r(B encode $B$9$k;~!"Mn$A$F$7$^$&%P%0$r=$@5$7(B
$B$^$7$?!#(B

--[[application/octet-stream; name="tiny-mime.el-3.1-3.2.patch"; type=patch][7bit]]
*** /tmp/tiny-mime.elThu Mar  3 18:41:35 1994
--- tiny-mime.elThu Mar  3 17:07:41 1994
***************
*** 1,5 ****
  ;;
! ;; $Id: tiny-mime.el,v 3.1 1994/02/25 05:06:11 morioka Exp morioka $
  ;;
  ;;     A multilingual MIME message header encoder/decoder.
  ;;         by Morioka Tomohiko (morioka@jaist.ac.jp)
--- 1,5 ----
  ;;
! ;; $Id: tiny-mime.el,v 3.2 1994/03/03 08:08:33 morioka Exp morioka $
  ;;
  ;;     A multilingual MIME message header encoder/decoder.
  ;;         by Morioka Tomohiko (morioka@jaist.ac.jp)
***************
*** 369,407 ****
  field-name field-body)
      (setq field-name (car ret))
      (setq field-body (nth 1 ret))
!     (concat field-name " "
!     (if (or (string-match "^Reply-To:$" field-name)
!     (string-match "^From:$" field-name)
!     (string-match "^Sender:$" field-name)
!     (string-match "^Resent-Reply-To:$" field-name)
!     (string-match "^Resent-From:$" field-name)
!     (string-match "^Resent-Sender:$" field-name)
!     (string-match "^To:$" field-name)
!     (string-match "^Resent-To:$" field-name)
!     (string-match "^cc:$" field-name)
!     (string-match "^Resent-cc:$" field-name)
!     (string-match "^bcc:$" field-name)
!     (string-match "^Resent-bcc:$" field-name)
!     )
! (mime/encode-address-list (+ (length field-name) 1)
!   field-body)
!       (catch 'label
! (let ((i 0)
!       (n (length mime/no-encoding-header-fields))
!       fn)
!   (while (< i n)
!     (setq fn (nth i mime/no-encoding-header-fields))
!     (if (string-match (concat "^" fn ":$") field-name)
! (progn
!   (throw 'label field-body)
!   ))
!     (setq i (+ i 1))
!     )
!   (nth 1 (mime/encode-header-string (+ (length field-name) 1)
!     field-body))
!   ))
!       ))
!     ))
  
  (defun mime/encode-message-header ()
    (interactive "*")
--- 369,409 ----
  field-name field-body)
      (setq field-name (car ret))
      (setq field-body (nth 1 ret))
!     (if (string= field-body "")
! field-name
!       (concat field-name " "
!       (if (or (string-match "^Reply-To:$" field-name)
!       (string-match "^From:$" field-name)
!       (string-match "^Sender:$" field-name)
!       (string-match "^Resent-Reply-To:$" field-name)
!       (string-match "^Resent-From:$" field-name)
!       (string-match "^Resent-Sender:$" field-name)
!       (string-match "^To:$" field-name)
!       (string-match "^Resent-To:$" field-name)
!       (string-match "^cc:$" field-name)
!       (string-match "^Resent-cc:$" field-name)
!       (string-match "^bcc:$" field-name)
!       (string-match "^Resent-bcc:$" field-name)
!       )
!   (mime/encode-address-list (+ (length field-name) 1)
!     field-body)
! (catch 'label
!   (let ((i 0)
! (n (length mime/no-encoding-header-fields))
! fn)
!     (while (< i n)
!       (setq fn (nth i mime/no-encoding-header-fields))
!       (if (string-match (concat "^" fn ":$") field-name)
!   (progn
!     (throw 'label field-body)
!     ))
!       (setq i (+ i 1))
!       )
!     (nth 1 (mime/encode-header-string (+ (length field-name) 1)
!       field-body))
!     ))
! ))
!       )))
  
  (defun mime/encode-message-header ()
    (interactive "*")
--[[text/plain]]
======$B!X?M$K$O$=$l$>$l0[$J$kL4$H$=$NJ}K!$,$"$C$FA3$k$Y$-$G$"$k!Y(B======
                     $B<i2,(B $BCNI'(B (MORIOKA Tomohiko)
                     Email: <morioka@jaist.ac.jp>
