From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/22578
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: Inter-operating between Gnus and RMAIL
Date: 18 Apr 1999 15:04:45 -0400
Sender: owner-ding@hpc.uh.edu
Message-ID: <oqu2udg376.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 1035160472 30077 80.91.224.250 (21 Oct 2002 00:34:32 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 00:34:32 +0000 (UTC)
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 PAA02535
	for <jason@mailhost.sclp.com>; Sun, 18 Apr 1999 15:11:16 -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 OAB26705;
	Sun, 18 Apr 1999 14:06:44 -0500 (CDT)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sun, 18 Apr 1999 14:07:00 -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 OAA26592 for <ding@hpc.uh.edu>; Sun, 18 Apr 1999 14:06:50 -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 PAA02450
	for <ding@gnus.org>; Sun, 18 Apr 1999 15:06:43 -0400 (EDT)
Original-Received: from ariel.progiciels-bpi.ca by jupiter.rtsq.qc.ca (8.8.8/8.8.8) with SMTP id PAA27164 for <@jupiter.rtsq.qc.ca:ding@gnus.org>; Sun, 18 Apr 1999 15:05:37 -0400
Original-Received: from iro.umontreal.ca (uucp@localhost) by ariel.progiciels-bpi.ca (950413.SGI.8.6.12/950213.SGI) via UUCP id PAA18683 for ding@gnus.org; Sun, 18 Apr 1999 15:08:03 -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 PAA02214; Sun, 18 Apr 1999 15:04:51 -0400
Original-To: Forum of ding/Gnus users <ding@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: 87
Precedence: list
X-Majordomo: 1.94.jlt7
X-MIME-Autoconverted: from quoted-printable to 8bit by sclp3.sclp.com id PAA02535
Xref: main.gmane.org gmane.emacs.gnus.general:22578
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:22578

Hello, people.  (Hi, Lars!)

Having thousands of Babyl files, and being an addict of Gnus as well, I often
go between both systems, and am trying to increase the inter-operability,
until I'm fully read to fully switch to Gnus.  Following advice from Lars,
which he might not even remember, I just wrote these lines.  I'm sharing
them here, as they might be useful to others, who knows, and because you
might want to improve on them.


(defun fp-rmail-mode-routine ()
; ...
  (local-set-key "G" 'fp-rmail-gnus-fetch-group)
  (local-set-key "O" 'fp-rmail-nnml-request-accept-article)
; ...
  )
(add-hook 'rmail-mode-hook 'fp-rmail-mode-routine)


(defun fp-rmail-gnus-fetch-group (group)
  (interactive
   (list (completing-read
	  "Group: " gnus-active-hashtb nil
	  (gnus-read-active-file-p)
	  nil
	  'gnus-group-history)))
  (gnus-fetch-group group))

(defun fp-rmail-nnml-request-accept-article (group)
  (interactive
   (list (completing-read
	  "Group: " gnus-active-hashtb nil
	  (gnus-read-active-file-p)
	  nil
	  'gnus-group-history)))
  (let ((message (buffer-substring (point-min) (point-max))))
    (with-temp-buffer
      (insert message)
      (nnml-request-accept-article group))))


>>From RMAIL, `G' directly switch to a given Gnus group, and `O' sends a copy
of the current message into some Gnus mailgroup.  Both seem to work well,
except for those pesky \201's which pop up in copied messages: I'm cursed!

My last need in that precise area would be to find a way to (fastly)
use Gnus for displaying an article directly from RMAIL mode (modifiable
if possible), would it be merely to take advantage of MIME presentation.
I'm not sure how to that, but will try a bit.  I'm not really expecting
that anybody has a ready-made working recipe yet, but, gosh, who knows :-).


P.S. - Quite a while ago, I tried some code for Gnus to better save
Babyl messages, as it was not always doing it correctly (I forgot what
the misbehavior was).  It should do it correctly, yet a bit slowly.
Since then, the code lies there, and I forgot about it, but stumbled on
it today.  I should comment out that code to see if Gnus does it better now.
In the meantime, here is that code:


(setq gnus-default-article-saver 'fp-gnus-summary-save-in-rmail)

(defun fp-gnus-summary-save-in-rmail (&optional filename)
  "Append this article to Rmail file.
Optional argument FILENAME specifies file name.
Directory to save to is default to `gnus-article-save-directory'."
  (setq filename (gnus-read-save-file-name
		  "Save %s in rmail file:" filename
		  gnus-rmail-save-name gnus-newsgroup-name
		  gnus-current-headers 'gnus-newsgroup-last-rmail))
  (gnus-eval-in-buffer-window gnus-save-article-buffer
    (when (and (boundp 'rmail-message-vector) (vectorp rmail-message-vector))
      (rmail-forget-messages))
    (save-excursion
      (save-restriction
	(widen)
	(goto-char (point-min))
	(insert "From Gnus " (current-time-string) "\n")
	(rmail-convert-file)
	(let ((rmail-delete-after-output nil))
	  (rmail-output-to-rmail-file filename))
	(rmail-forget-messages))))
  filename)

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