article savers of September Gnus

article savers of September Gnus

[守岡 知彦 / MORIOKA Tomohiko]

[-- Attachment #1: Type: text/plain, Size: 694 bytes --]

  September Gnus provides separation of gnus-original-article-buffer
and gnus-article-buffer, and tm-sgnus supports automatic MIME preview
feature to use these separated article buffers. For MIME article,
gnus-article-buffer indicates MIME processed preview buffer, and
gnus-original-article-buffer indicates raw message.

  gnus-summary-save-in-* save gnus-article-buffer. I think is is not
good. Because I want to MIME navigate again for saved article. So I
think gnus-summary-save-in-* should save gnus-original-article-buffer
instead of gnus-article-buffer. (However for
gnus-summary-save-in-file, gnus-article-buffer may be better)

  So I made a following patch. What do you think about?

[-- Attachment #2: sgnus-0.12-save.diff --]
[-- Type: application/octet-stream, Size: 2902 bytes --]

*** gnus-mh.el.orig	Mon Oct 30 03:54:29 1995
--- gnus-mh.el	Mon Oct 30 19:54:35 1995
***************
*** 64,70 ****
  		   t))))
  	(errbuf (get-buffer-create " *Gnus rcvstore*")))
      (gnus-eval-in-buffer-window 
!      gnus-article-buffer
       (save-restriction
         (widen)
         (unwind-protect
--- 64,70 ----
  		   t))))
  	(errbuf (get-buffer-create " *Gnus rcvstore*")))
      (gnus-eval-in-buffer-window 
!      gnus-original-article-buffer
       (save-restriction
         (widen)
         (unwind-protect
*** gnus-vm.el-original	Mon Oct 30 03:54:32 1995
--- gnus-vm.el	Sun Nov 12 23:29:56 1995
***************
*** 102,108 ****
  			    (and default-name
  				 (file-name-directory default-name))))
      (gnus-make-directory (file-name-directory folder))
!     (set-buffer gnus-article-buffer)
      (save-excursion
        (save-restriction
  	(widen)
--- 102,108 ----
  			    (and default-name
  				 (file-name-directory default-name))))
      (gnus-make-directory (file-name-directory folder))
!     (set-buffer gnus-original-article-buffer)
      (save-excursion
        (save-restriction
  	(widen)
***************
*** 111,117 ****
  	  (kill-buffer vm-folder))))
      ;; Remember the directory name to save articles.
      (setq gnus-newsgroup-last-mail folder)))
!   
  (defun gnus-vm-mail-setup (to subject in-reply-to cc replybuffer actions)
    (gnus-sendmail-mail-setup to subject in-reply-to cc replybuffer actions)
    )
--- 111,117 ----
  	  (kill-buffer vm-folder))))
      ;; Remember the directory name to save articles.
      (setq gnus-newsgroup-last-mail folder)))
! 
  (defun gnus-vm-mail-setup (to subject in-reply-to cc replybuffer actions)
    (gnus-sendmail-mail-setup to subject in-reply-to cc replybuffer actions)
    )
*** gnus.el.orig	Mon Oct 30 03:54:33 1995
--- gnus.el	Mon Oct 30 19:54:42 1995
***************
*** 11306,11312 ****
  		    "Save in rmail file:" default-name))))
      (gnus-make-directory (file-name-directory filename))
      (gnus-eval-in-buffer-window 
!      gnus-article-buffer
       (save-excursion
         (save-restriction
  	 (widen)
--- 11306,11312 ----
  		    "Save in rmail file:" default-name))))
      (gnus-make-directory (file-name-directory filename))
      (gnus-eval-in-buffer-window 
!      gnus-original-article-buffer
       (save-excursion
         (save-restriction
  	 (widen)
***************
*** 11336,11342 ****
  				 (file-name-directory default-name))))
      (gnus-make-directory (file-name-directory filename))
      (gnus-eval-in-buffer-window 
!      gnus-article-buffer
       (save-excursion
         (save-restriction
  	 (widen)
--- 11336,11342 ----
  				 (file-name-directory default-name))))
      (gnus-make-directory (file-name-directory filename))
      (gnus-eval-in-buffer-window 
!      gnus-original-article-buffer
       (save-excursion
         (save-restriction
  	 (widen)

[-- Attachment #3: Type: text/plain, Size: 243 bytes --]

----------------------------------------------------------------------
Morioka Tomohiko <morioka@jaist.ac.jp>
(`Morioka' is my family name, `Tomohiko' is my personal name.)
------- I protest resumption of French and Chinese nuclear testing.---