From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/6044 Path: main.gmane.org!not-for-mail From: morioka@jaist.ac.jp (=?ISO-2022-JP?B?GyRCPGkyLBsoQiAbJEJDTkknGyhC?= / MORIOKA Tomohiko) Newsgroups: gmane.emacs.gnus.general Subject: [sgnus 0.79] nn* patch for tm and Mule Date: 25 Apr 1996 22:35:41 +0900 Organization: JAIST, Hokuriku / =?ISO-2022-JP?B?GyRCS0xOJkBoQzwySjNYGyhC?= =?ISO-2022-JP?B?GyRCPVFCZzNYMSFCZzNYGyhC?= Sender: morioka@is28e1s91.jaist.ac.jp Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.52) Content-Type: multipart/mixed; boundary="Multipart_Thu_Apr_25_22:35:41_1996-1" Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1035146559 2349 80.91.224.250 (20 Oct 2002 20:42:39 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 20:42:39 +0000 (UTC) Cc: tm-ja@chamonix.jaist.ac.jp, tm-en@chamonix.jaist.ac.jp Return-Path: ding-request@ifi.uio.no Original-Received: from spork.callamer.com (root@spork.callamer.com [199.74.141.2]) by deanna.miranova.com (8.7.5/8.6.9) with ESMTP id KAA01176 for ; Thu, 25 Apr 1996 10:38:57 -0700 Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by spork.callamer.com (8.7.5/8.7.3) with SMTP id HAA00081 for ; Thu, 25 Apr 1996 07:33:29 -0700 (PDT) Original-Received: from maud.ifi.uio.no (0@maud.ifi.uio.no [129.240.74.2]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id for ; Thu, 25 Apr 1996 15:37:26 +0200 Original-Received: from mikan.jaist.ac.jp (mikan.jaist.ac.jp [150.65.8.6]) by maud.ifi.uio.no ; Thu, 25 Apr 1996 15:37:22 +0200 Original-Received: from is28e1s91.jaist.ac.jp (MORIOKA Tomohiko ) by mikan.jaist.ac.jp (8.7.5); id WAA07630; Thu, 25 Apr 1996 22:35:44 +0900 (JST) Original-Received: by is28e1s91.jaist.ac.jp (4.1/JE-C); Thu, 25 Apr 96 22:35:42 JST Original-To: ding@ifi.uio.no X-Emacs: Mule 2.3 =?ISO-2022-JP?B?KBskQkt2RSYyVhsoQik=?= based on 19.30 Dcc: morioka X-Mua: tm-mh-e 7.58, tm-view 7.52 In-Reply-To: Arne Elofsson's message of 25 Apr 1996 10:08:54 +0200 Original-Lines: 149 X-Mailer: September Gnus v0.79/Emacs 19.30 Xref: main.gmane.org gmane.emacs.gnus.general:6044 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:6044 --Multipart_Thu_Apr_25_22:35:41_1996-1 Content-Type: text/plain; charset=US-ASCII tm supports MIME charset for September Gnus running on Mule. Mule already code-converts when reading and writing file, however it requires to read/write with no code-conversion and code-conversion must be done when a content is displayed after MIME parsing is done. Because MIME charset is specified for content, not for message. So a message can have different charset contents. For only nntp, it is easy. But now September Gnus has various kinds of nn* back ends. So it is difficult to support only tm-sgnus.el. Anyway, I made a patch for nn*. It adds an alias and two hooks. Alias `nnheader-insert-raw-file-contents' is to read with no code conversion. It is used for read mailbox file or separated article file. `nnheader-load-hook' is for tm-sgnus.el. It is used to redefine `nnheader-insert-raw-file-contents'. (XEmacs 19.13 does not have function `eval-after-load') `nnmail-prepare-save-mail-hook' is to set coding-system is *noconv*. There are various `nn*-prepare-save-mail-hook', old tm-sgnus added to every hooks, however if new nn* is created, tm-sgnus must be fixed. It is not good way, I think. So please add one hook before mail saving. In addition, tm 7.52.2 supports this patch. Thanks, --Multipart_Thu_Apr_25_22:35:41_1996-1 Content-Type: application/octet-stream Content-Disposition: attachment; filename="sgnus-0.79-nn.patch" Content-Transfer-Encoding: 7bit *** nnfolder.el.orig Wed Apr 24 13:43:00 1996 --- nnfolder.el Thu Apr 25 03:40:02 1996 *************** *** 534,539 **** --- 534,540 ---- (setq save-list group-art-list) (nnmail-insert-lines) (nnmail-insert-xref group-art-list) + (run-hooks 'nnmail-prepare-save-mail-hook) (run-hooks 'nnfolder-prepare-save-mail-hook) ;; Insert the mail into each of the destination groups. *** nnheader.el.orig Wed Apr 24 13:43:00 1996 --- nnheader.el Thu Apr 25 03:41:23 1996 *************** *** 529,535 **** --- 529,538 ---- (and (listp form) (eq (car form) 'lambda)))) (fset 'nnheader-find-file-noselect 'find-file-noselect) + (fset 'nnheader-insert-raw-file-contents 'insert-file-contents) (provide 'nnheader) + + (run-hooks 'nnheader-load-hook) ;;; nnheader.el ends here *** nnmail.el.orig Wed Apr 24 13:43:00 1996 --- nnmail.el Thu Apr 25 03:40:03 1996 *************** *** 280,286 **** (set-buffer nntp-server-buffer) (erase-buffer) (condition-case () ! (progn (insert-file-contents file) t) (file-error nil))) (defun nnmail-group-pathname (group dir &optional file) --- 280,286 ---- (set-buffer nntp-server-buffer) (erase-buffer) (condition-case () ! (progn (nnheader-insert-raw-file-contents file) t) (file-error nil))) (defun nnmail-group-pathname (group dir &optional file) *** nnmbox.el.orig Wed Apr 24 13:43:00 1996 --- nnmbox.el Thu Apr 25 03:40:03 1996 *************** *** 446,451 **** --- 446,452 ---- (nnmail-insert-lines) (nnmail-insert-xref group-art) (nnmbox-insert-newsgroup-line group-art) + (run-hooks 'nnmail-prepare-save-mail-hook) (run-hooks 'nnmbox-prepare-save-mail-hook) group-art)) *** nnmh.el.orig Wed Apr 24 13:43:00 1996 --- nnmh.el Thu Apr 25 03:40:05 1996 *************** *** 394,399 **** --- 394,400 ---- (unless noinsert (nnmail-insert-lines) (nnmail-insert-xref group-art)) + (run-hooks 'nnmail-prepare-save-mail-hook) (run-hooks 'nnmh-prepare-save-mail-hook) (goto-char (point-min)) (while (looking-at "From ") *** nnml.el.orig Wed Apr 24 13:43:00 1996 --- nnml.el Thu Apr 25 03:40:07 1996 *************** *** 544,549 **** --- 544,550 ---- chars nov-line) (setq chars (nnmail-insert-lines)) (nnmail-insert-xref group-art) + (run-hooks 'nnmail-prepare-save-mail-hook) (run-hooks 'nnml-prepare-save-mail-hook) (goto-char (point-min)) (while (looking-at "From ") *** nnspool.el.orig Wed Apr 24 13:43:01 1996 --- nnspool.el Thu Apr 25 03:40:07 1996 *************** *** 466,472 **** (set-buffer nntp-server-buffer) (erase-buffer) (condition-case () ! (progn (insert-file-contents file) t) (file-error nil))) (defun nnspool-possibly-change-directory (group) --- 466,472 ---- (set-buffer nntp-server-buffer) (erase-buffer) (condition-case () ! (progn (nnheader-insert-raw-file-contents file) t) (file-error nil))) (defun nnspool-possibly-change-directory (group) --Multipart_Thu_Apr_25_22:35:41_1996-1 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable ---------------------------------------------------------------------- MORIOKA Tomohiko Japan advanced Institute of Science and Technology, Hokuriku Asahi-dai, Tatsu-no-kuchi ch=F4, Nomi, Ishikawa, Japan ----------------------------------------- Frisch, Frei, Fre=F6hlich! ---= --Multipart_Thu_Apr_25_22:35:41_1996-1--