[sgnus 0.79] nn* patch for tm and Mule

[morioka@jaist.ac.jp (守岡 知彦 / MORIOKA Tomohiko)]

[-- 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! ---