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: Re: [Q] GNUS + tiny-mime
In-Reply-To: kawakami@lssl.rcast.u-tokyo.ac.jp's message of 4 Dec 1993
 19:28:01 GMT
Content-Type: text/plain; charset=ISO-2022-JP
Message-ID: <MORIOKA.93Dec6180200@is15e0s03.jaist.ac.jp>
Sender: news@jaist.ac.jp (News System Administrator)
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>
Mime-Version: 1.0
Distribution: fj
Date: Mon, 6 Dec 1993 09:02:00 GMT
Lines: 120
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:4234
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=4234&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.

>>>>> <KAWAKAMI.93Dec5042743@femto.lssl.rcast.u-tokyo.ac.jp> $B$K$F!"(B
kawakami@lssl.rcast.u-tokyo.ac.jp (KAWAKAMI Hiroki) $B;a[)$/!"(B

$B@n>e(B> $B$3$A$i$G$O(B GNUS4.1 + tiny-mime patch $B$r;H$C$F$$$?$N$G$9$,(B, $B$3$l$r5!$K(B
$B@n>e(B> GNUS4.1 (original) + tiny-mime + tm-gnus $B$K0\9T$7$^$7$?!#(B

$B@n>e(B> $B$H$3$m$,(B, $B$I$&$$$&$o$1$+K\J8$,J8;z2=$1$7$F$7$^$C$FF|K\8lItJ,$,$^$C$?$/(B
$B@n>e(B> $BFI$a$J$/$J$C$F$7$^$$$^$7$?!#0JA0$N(B GNUS4.1 + tiny-mime patch $B$N$H$-$O(B
$B@n>e(B> $BLdBj$J$/FI$a$?$N$G$9$,(B, $B2?$+@_Dj$,0-$$$N$G$7$g$&$+!)(B

  $BJ8;z2=$1$O$I$s$J46$8$N$G$7$g$&$+!)4A;z%3!<%I$N@_Dj$,$*$+$7$$$H$$$C$?(B
$B46$8$G$7$g$&$+!)(B


  $BD>@\E*$JLdBj$G$O$J$$$H;W$$$^$9$,!"(B

$B@n>e(B> --------($B$3$3$+$i(B)--------($B$3$3$+$i(B)--------($B$3$3$+$i(B)--------($B$3$3$+$i(B)--
$B@n>e(B> ;;; GNUS
$B@n>e(B> (autoload 'gnus "gnus" "read network news." t)
$B@n>e(B> (autoload 'gnus-post-news "gnus" "post a news." t)
$B@n>e(B> (setq gnus-use-generic-path t)
$B@n>e(B> (setq gnus-use-generic-from t)

$B@n>e(B> (setq gnus-local-timezone "JST")
$B@n>e(B> (setq gnus-article-prepare-hook
$B@n>e(B>       '(lambda ()
$B@n>e(B>  (gnus-gmt-to-local)
$B@n>e(B>  (mime/decode-message-header)))

  $B$^$:!"(Btm-gnus $B$rMxMQ$9$k$N$G$"$l$P!"$3$3$N(B
(mime/decode-message-header) $B$OI,MW$"$j$^$;$s!#(B

  $B$=$l$+$i!"$3$3$NItJ,$,!"(BUmerin $B$5$s$N(B mime.el $B$N@_Dj$H(B tiny-mime.el 
$B$N$_$GMxMQ$9$k@_Dj$,$4$C$A$c$K$J$C$F$$$^$9!#(B

$B@n>e(B> (setq gnus-inews-article-hook
$B@n>e(B>       '(lambda () (save-excursion
$B@n>e(B>     (beginning-of-buffer)
$B@n>e(B>     (insert-string
$B@n>e(B>      (format "%s\n%s\n" "Mime-Version: 1.0"
$B@n>e(B>      "Content-Type: text/plain; charset=ISO-2022-JP"))
$B@n>e(B>     (let ((mail-header-separator ""))
$B@n>e(B>       (mime/encode-message-header)))))

  $B$3$l$O(B tiny-mime.el $B$N$_$G(B encode $B$9$k>l9g$N@_Dj$G$9!#(B

$B@n>e(B> (setq gnus-mail-forward-method 'mime-forward-from-gnus-using-mail)
$B@n>e(B> (setq gnus-summary-mode-hook
$B@n>e(B>       '(lambda () (require 'mime))); Forward article using MIME.

$B@n>e(B> (setq news-reply-mode-hook
$B@n>e(B>       '(lambda ()
$B@n>e(B>  (mime-mode)))

  $B$3$l$O!"(BUmerin $B$5$s$N(B mime.el $B$N@_Dj$G$9!#(B

$B@n>e(B> (if (boundp 'MULE)
$B@n>e(B>     (progn
$B@n>e(B>       (defun mime-header-charset-chooser-for-mule-no-encode-ISO-2022-JP
$B@n>e(B> (begin end)
$B@n>e(B>         (let ((lclist (find-charset-region begin end)))
$B@n>e(B>           (cond ((null lclist) nil); US-ASCII requres no encoding.
$B@n>e(B>                 ((memq lc-ltn1 lclist)
$B@n>e(B>                  '("ISO-8859-1" . "Q"))
$B@n>e(B>                 ((memq lc-ltn2 lclist)
$B@n>e(B>                  '("ISO-8859-2" . "Q"))
$B@n>e(B>                 ((memq lc-ltn3 lclist)
$B@n>e(B>                  '("ISO-8859-3" . "Q"))
$B@n>e(B>                 ((memq lc-ltn4 lclist)
$B@n>e(B>                  '("ISO-8859-4" . "Q"))
$B@n>e(B>                 ((memq lc-crl lclist)
$B@n>e(B>                  '("ISO-8859-5" . "Q"))
$B@n>e(B>                 ;;((memq lc-arb lclist)
$B@n>e(B>                 ;; '("ISO-8859-6" . "Q"))
$B@n>e(B>                 ((memq lc-grk lclist)
$B@n>e(B>                  '("ISO-8859-7" . "Q"))
$B@n>e(B>                 ((memq lc-hbw lclist)
$B@n>e(B>                  '("ISO-8859-8" . "Q"))
$B@n>e(B>                 ((memq lc-ltn5 lclist)
$B@n>e(B>                  '("ISO-8859-9" . "Q"))
$B@n>e(B>                 ((memq lc-jp lclist) nil)
$B@n>e(B>                 (t; Unknown charset.  It must be Mule!
$B@n>e(B>                  '("X-ISO-2022-JP-2" . "B"))
$B@n>e(B>                 )))
$B@n>e(B>       (setq mime-header-charset-chooser
$B@n>e(B>             'mime-header-charset-chooser-for-mule-no-encode-ISO-2022-JP))
$B@n>e(B>   (progn
$B@n>e(B>     (defun mime-header-charset-chooser-for-nemacs-no-encode-ISO-2022-JP
$B@n>e(B>       (begin end))
$B@n>e(B>     (setq mime-header-charset-chooser
$B@n>e(B>           'mime-header-charset-chooser-for-nemacs-no-encode-ISO-2022-JP)))

  $B$3$l$O(B mime.el $B$H(B tiny-mime.el $B$rJ;MQ$9$k>l9g$N@_Dj$G$9!#(B

$B@n>e(B> (if (boundp 'MULE)
$B@n>e(B>     (progn
$B@n>e(B>       (setq gnus-group-mode-hook 'gnusutil-initialize)
$B@n>e(B>       (autoload 'gnusutil-initialize "gnusutil")
$B@n>e(B>       (autoload 'gnusutil-add-group "gnusutil")))
$B@n>e(B> (cond ((boundp 'NEMACS) (define-service-kanji-code "nntp" nil 2))
$B@n>e(B>       ((boundp 'MULE) (define-service-coding-system "nntp" nil *junet*)))

$B@n>e(B> (autoload 'nsort "nsort" "News Group Sorting." t)
$B@n>e(B> (setq gnus-startup-hook
$B@n>e(B>    '((lambda () (define-key gnus-group-mode-map "S" 'nsort))))

$B@n>e(B> (load-library "tm-gnus")

  $B$3$N@_Dj$r8+$?$H$3$m!"$*$=$i$/(B gnusutil.el $B$,860x$N$h$&$K;W$o$l$^$9!#(B
tm-gnus.el $B$H(B gnusutil.el $B$,$V$D$+$C$F$$$k$_$?$$$G$9!#$A$g$C$H8+$?$H$3(B
$B$m!"(Btm-gnus.el $B$H(B gnusutil.el $B$r6&B8$5$;$k$N$OFq$7$$$_$?$$$G$9!#(B

  $B2r7hK!$H$7$F$O!"(Btm-gnus.el $B$r$"$-$i$a$k(B(^_^; $B$+!"$&$^$/9T$/$+$I$&$+(B
$B$O$o$+$j$^$;$s$,!"(Btm-gnus.el $B$r(B gnusutil-initialize-hook $B$G(B load $B$9$k(B
$B$h$&$K$9$k$HNI$$$+$bCN$l$^$;$s!#(B

$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
