* [sgnus 0.79] nn* patch for tm and Mule
@ 1996-04-25 13:35 守岡 知彦 / MORIOKA Tomohiko
1996-04-26 4:36 ` 守岡 知彦 / MORIOKA Tomohiko
0 siblings, 1 reply; 2+ messages in thread
From: 守岡 知彦 / MORIOKA Tomohiko @ 1996-04-25 13:35 UTC (permalink / raw)
Cc: tm-ja, tm-en
[-- Attachment #1: Type: text/plain, Size: 1225 bytes --]
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,
[-- Attachment #2: sgnus-0.79-nn.patch --]
[-- Type: application/octet-stream, Size: 3072 bytes --]
*** 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)
[-- Attachment #3: Type: text/plain, Size: 322 bytes --]
----------------------------------------------------------------------
MORIOKA Tomohiko <morioka@jaist.ac.jp>
Japan advanced Institute of Science and Technology, Hokuriku
Asahi-dai, Tatsu-no-kuchi chô, Nomi, Ishikawa, Japan
----------------------------------------- Frisch, Frei, Freöhlich! ---
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: [sgnus 0.79] nn* patch for tm and Mule
1996-04-25 13:35 [sgnus 0.79] nn* patch for tm and Mule 守岡 知彦 / MORIOKA Tomohiko
@ 1996-04-26 4:36 ` 守岡 知彦 / MORIOKA Tomohiko
0 siblings, 0 replies; 2+ messages in thread
From: 守岡 知彦 / MORIOKA Tomohiko @ 1996-04-26 4:36 UTC (permalink / raw)
[-- Attachment #1: Type: text/plain, Size: 155 bytes --]
Previous nn* patch for tm and Mule has a bug. It must read incoming
mail as *noconv*. So please apply following patch after previous patch
is applied.
[-- Attachment #2: nnmail.el.diff.diff --]
[-- Type: application/octet-stream, Size: 740 bytes --]
*** nnmail.el~ Thu Apr 25 03:40:03 1996
--- nnmail.el Fri Apr 26 12:41:23 1996
***************
*** 692,698 ****
(set-buffer (get-buffer-create " *nnmail incoming*"))
(buffer-disable-undo (current-buffer))
(erase-buffer)
! (insert-file-contents incoming)
(unless (zerop (buffer-size))
(goto-char (point-min))
(save-excursion (run-hooks 'nnmail-prepare-incoming-hook))
--- 692,698 ----
(set-buffer (get-buffer-create " *nnmail incoming*"))
(buffer-disable-undo (current-buffer))
(erase-buffer)
! (nnheader-insert-raw-file-contents incoming)
(unless (zerop (buffer-size))
(goto-char (point-min))
(save-excursion (run-hooks 'nnmail-prepare-incoming-hook))
[-- Attachment #3: Type: text/plain, Size: 334 bytes --]
Regards,
----------------------------------------------------------------------
MORIOKA Tomohiko <morioka@jaist.ac.jp>
Japan advanced Institute of Science and Technology, Hokuriku
Asahi-dai, Tatsu-no-kuchi chô, Nomi, Ishikawa, Japan
----------------------------------------- Frisch, Frei, Freöhlich! ---
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~1996-04-26 4:36 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1996-04-25 13:35 [sgnus 0.79] nn* patch for tm and Mule 守岡 知彦 / MORIOKA Tomohiko
1996-04-26 4:36 ` 守岡 知彦 / MORIOKA Tomohiko
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).