From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/22626
Path: main.gmane.org!not-for-mail
From: =?ISO-8859-1?Q?Fran=E7ois_Pinard?= <pinard@iro.umontreal.ca>
Newsgroups: gmane.emacs.gnus.general
Subject: pgnus 0.83 - Modifying gnus-win.el for me ?
Date: 19 Apr 1999 17:26:23 -0400
Sender: owner-ding@hpc.uh.edu
Message-ID: <oqso9wpaio.fsf@titan.progiciels-bpi.ca>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: main.gmane.org 1035160512 30333 80.91.224.250 (21 Oct 2002 00:35:12 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 00:35:12 +0000 (UTC)
Cc: Forum of ding/Gnus users <ding@gnus.org>
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from farabi.math.uh.edu (farabi.math.uh.edu [129.7.128.57])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id RAA08647
	for <jason@mailhost.sclp.com>; Mon, 19 Apr 1999 17:33:22 -0400 (EDT)
Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5])
	by farabi.math.uh.edu (8.9.1/8.9.1) with ESMTP id QAB13158;
	Mon, 19 Apr 1999 16:29:03 -0500 (CDT)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 19 Apr 1999 16:29:05 -0500 (CDT)
Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id QAA15592 for <ding@hpc.uh.edu>; Mon, 19 Apr 1999 16:28:22 -0500 (CDT)
Original-Received: from jupiter.rtsq.qc.ca (rtsq.grics.qc.ca [199.84.132.81])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id RAA08385;
	Mon, 19 Apr 1999 17:28:12 -0400 (EDT)
Original-Received: from ariel.progiciels-bpi.ca by jupiter.rtsq.qc.ca (8.8.8/8.8.8) with SMTP id RAA23314; Mon, 19 Apr 1999 17:27:04 -0400
Original-Received: from iro.umontreal.ca (uucp@localhost) by ariel.progiciels-bpi.ca (950413.SGI.8.6.12/950213.SGI) via UUCP id RAA21781; Mon, 19 Apr 1999 17:29:31 -0700
Original-Received: from titan.progiciels-bpi.ca.progiciels-bpi.ca by icule.progiciels-bpi.ca (8.8.8/8.8.8) with ESMTP id RAA02677; Mon, 19 Apr 1999 17:26:32 -0400
Original-To: Lars Magne Ingebrigtsen <larsi@gnus.org>
X-Face: "b_m|CE6#'Q8fliQrwHl9K,]PA_o'*S~Dva{~b1n*)K*A(BIwQW.:LY?t4~xhYka_.LV?Qq
 `}X|71X0ea&H]9Dsk!`kxBXlG;q$mLfv_vtaHK_rHFKu]4'<*LWCyUe@ZcI6"*wB5M@[m<Ok5/cC^=
 CxDhg=TJi^o[E
Original-Lines: 170
Precedence: list
X-Majordomo: 1.94.jlt7
X-MIME-Autoconverted: from quoted-printable to 8bit by sclp3.sclp.com id RAA08647
Xref: main.gmane.org gmane.emacs.gnus.general:22626
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:22626

Hi, Lars.

I hope you will accept the following diff for the standard distribution.
It might ease later easy installation in my case, regarding my attempts
for calling Gnus for displaying articles from within RMAIL (and maybe
other applications).  I do not think it should break Gnus in any other
way, and the added overhead is quite insignificant.  If you do accept this
little patch, you have to refill the whole function after having applied it.

Let me follow the diffs with the little tricks I made to myself, this
afternoon, to achieve this.  I'm sharing them with the `ding' liste, in case
other friends find it useful, or if they have ideas for improving on them!


--- gnus-win.el	1999/04/19 21:02:59	1.1
+++ gnus-win.el	1999/04/19 21:03:23
@@ -408,6 +408,8 @@
 (defvar gnus-frame-split-p nil)
 
 (defun gnus-configure-windows (setting &optional force)
+  (if (window-configuration-p setting)
+      (set-window-configuration setting)
   (setq gnus-current-window-configuration setting)
   (setq force (or force gnus-always-force-window-configuration))
   (setq setting (gnus-windows-old-to-new setting))
@@ -449,7 +451,7 @@
       (let (gnus-window-frame-focus)
 	(gnus-configure-frame split (get-buffer-window (current-buffer)))
 	(when gnus-window-frame-focus
-	  (select-frame (window-frame gnus-window-frame-focus)))))))
+	    (select-frame (window-frame gnus-window-frame-focus))))))))
 
 (defun gnus-delete-windows-in-gnusey-frames ()
   "Do a `delete-other-windows' in all frames that have Gnus windows."


Once the above diffs applied, I manage to have what follows, in my `.emacs'
file.  I picked "!" as a key-binding to call for Gnus display, because it
is traditionally how Masanobu was linking his MIME display things to RMAIL.
I vaguely remember that other packages used the same key.  And since one
of the reason Gnus display might be useful to RMAIL is its nice MIME support.


(defun fp-rmail-mode-routine ()
; ...
  (local-set-key "!" 'fp-rmail-display-with-gnus)
; ...
  )

;; FIXME: Rather depend on uniquification of names.
(defvar fp-rmail-display-with-gnus-counter 0
  "To make sure no two nnone are simultaneously opened with the same name.")

(defun fp-rmail-display-with-gnus ()
  "Display current message with Gnus, using a nnone ephemeral server."
  (interactive)
  (let ((rmail-buffer (current-buffer))
	(nnone-buffer (save-excursion
			(nnheader-set-temp-buffer " *copy article*")))
	(pruned (rmail-msg-is-pruned))
	(group (format "nnone:%s-%d[%d]"
		       (file-name-nondirectory buffer-file-name)
		       (incf fp-rmail-display-with-gnus-counter)
		       rmail-current-message)))
    (when pruned
      (rmail-toggle-header))
    (append-to-buffer nnone-buffer (point-min) (point-max))
    (when pruned
      (rmail-toggle-header))
    (if (gnus-group-read-ephemeral-group
	 group `(nnone ,group (nnone-article-buffer ,nnone-buffer))
	 nil (cons rmail-buffer (current-window-configuration)))
	(gnus-summary-beginning-of-article)
      (kill-buffer nnone-buffer)
      (set-buffer rmail-buffer)
      (gnus-error 3 "Article couldn't be entered"))))


And finally, to complete the code, I took some backend and deleted most
lines (I guess I could delete even more lines :-) to get the following file,
which I called `nnone.el', that is, `nn' for _one_ article at a time.


;;; nnone.el --- Gnus for a single article

;;; Code:

(require 'rmail)

(require 'nnheader)
(require 'nnmail)
(require 'nnoo)
(eval-when-compile (require 'cl))

(nnoo-declare nnone)

(defvoo nnone-article-buffer nil)

(defconst nnone-version "nnone 1.0"
  "nnone version.")



;;; Interface functions

(nnoo-define-basics nnone)

(deffoo nnone-retrieve-headers (articles &optional group server fetch-old)
  (save-excursion
    (set-buffer nntp-server-buffer)
    (erase-buffer)
    (unless (stringp (car articles))
      (insert "221 1 Article retrieved.\n")
      (insert-buffer nnone-article-buffer)
      (goto-char (point-max))
      (insert ".\n")
      (nnheader-fold-continuation-lines)))
  'headers)

(deffoo nnone-request-article (article &optional newsgroup server buffer)
  (save-excursion
    (set-buffer (or buffer nntp-server-buffer))
    (erase-buffer)
    (if (stringp article)
	nil
      (insert-buffer nnone-article-buffer)
      (goto-char (point-max))
      (insert "\n")
      t)))

(deffoo nnone-request-group (group &optional server dont-check)
  (save-excursion
    (set-buffer nntp-server-buffer)
    (erase-buffer)
    (insert "211 1 1 1 " group "\n"))
  t)

(deffoo nnone-close-group (group &optional server)
  (and nnone-article-buffer
       (buffer-name nnone-article-buffer)
       (kill-buffer nnone-article-buffer))
  (setq nnone-article-buffer nil)
  (nnoo-close-server 'nnone server)
  t)

(deffoo nnone-request-list (&optional server)
  nil)

(deffoo nnone-request-newgroups (date &optional server)
  nil)

(deffoo nnone-request-list-newsgroups (&optional server)
  nil)

(deffoo nnone-request-move-article ()
  nil)

(deffoo nnone-request-accept-article (group &optional server last)
  nil)

(deffoo nnone-request-replace-article (article group buffer)
  nil)

(provide 'nnone)

;;; nnone.el ends here

-- 
François Pinard                            mailto:pinard@iro.umontreal.ca
Join the free Translation Project!    http://www.iro.umontreal.ca/~pinard