From: "守岡 知彦 / MORIOKA Tomohiko" <morioka@jaist.ac.jp>
Subject: article savers of September Gnus
Date: Mon, 13 Nov 1995 00:35:47 JST [thread overview]
Message-ID: <199511121535.AAA14703@melon.jaist.ac.jp> (raw)
[-- 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.---
reply other threads:[~1995-11-12 15:35 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=199511121535.AAA14703@melon.jaist.ac.jp \
--to=morioka@jaist.ac.jp \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).