From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/31742
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: Help needed for a rmail-Gnus Mule problem
Date: 10 Jul 2000 14:19:37 -0400
Sender: owner-ding@hpc.uh.edu
Message-ID: <oqu2dxg85i.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 1035168118 15818 80.91.224.250 (21 Oct 2002 02:41:58 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 02:41:58 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from fisher.math.uh.edu (fisher.math.uh.edu [129.7.128.35])
	by mailhost.sclp.com (Postfix) with ESMTP id 2D963D051E
	for <jason@mailhost.sclp.com>; Tue, 11 Jul 2000 10:52:10 -0400 (EDT)
Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5])
	by fisher.math.uh.edu (8.9.1/8.9.1) with ESMTP id JAC01678;
	Tue, 11 Jul 2000 09:48:35 -0500 (CDT)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Tue, 11 Jul 2000 09:47:39 -0500 (CDT)
Original-Received: from epithumia.math.uh.edu (IDENT:root@epithumia.math.uh.edu [129.7.128.2])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id JAA22114
	for <ding@hpc.uh.edu>; Tue, 11 Jul 2000 09:47:32 -0500 (CDT)
Original-Received: (from tibbs@localhost)
	by epithumia.math.uh.edu (8.9.3/8.9.3) id JAA16054
	for ding@hpc.uh.edu; Tue, 11 Jul 2000 09:48:08 -0500
Original-Received: from mailhost.sclp.com (postfix@sclp3.sclp.com [204.252.123.139])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id NAA08812
	for <ding@hpc.uh.edu>; Mon, 10 Jul 2000 13:19:49 -0500 (CDT)
Original-Received: from titan.progiciels-bpi.ca (unknown [199.84.132.86])
	by mailhost.sclp.com (Postfix) with ESMTP id B9B32D051E
	for <ding@gnus.org>; Mon, 10 Jul 2000 14:20:17 -0400 (EDT)
Original-Received: by titan.progiciels-bpi.ca (Postfix, from userid 405)
	id 097DC15B86; Mon, 10 Jul 2000 14:19:37 -0400 (EDT)
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: 141
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:31742
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:31742

Hi, people.

I've been using the piece of code below for a good while, and despite
very, very useful for me, that code is irritating because of those (usual)
pesky \201's in all over in Latin-1 messages.  Even worse, these \201's
multiply like rabbits when I successively migrate a message between folders.

My feeling is that both RMAIL mode and Gnus are converting the file to
Mule, probably one message at a time in each case.  I wonder if someone
knowledgeable in Mule matters could not give me a hand with this: I'm lost!

By the way, the code might be useful to people handling Babyl (or RMAIL
mode) files.  For one, I keep a lot of archives in Babyl format.  The code
automatically triggers Gnus to read such files, and deletions from the
Gnus summary are later reflected in the Babyl files when exiting the summary.

I hope I include all pieces.  The code is a bit hairy, so please, be gentle
and don't laugh too loud! :-) Constructive criticisms always welcome!




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

;; FIXME: Something breaks when more than one Babyl in Gnus.  So use a lock.
(defvar fp-rmail-babyl-file-with-gnus-lock nil
  "Gnus summary buffer visiting a Babyl file, or nil if none.
To make sure only one Babyl file is visited in Gnus at a time.")

(defun fp-rmail-display-babyl-file-with-gnus (&optional article)
  "Display the whole Babyl file with Gnus, using a nndoc ephemeral server."
  (when (and fp-rmail-babyl-file-with-gnus-lock
	     (buffer-file-name fp-rmail-babyl-file-with-gnus-lock))
    (error "Gnus already displaying a Babyl file."))
  (let ((config (current-window-configuration))
	(rmail-buffer (current-buffer)))
    (fp-maybe-start-gnus)
    (let ((group (format "nndoc:%s-%d"
			 (file-name-nondirectory buffer-file-name)
			 (incf fp-rmail-display-with-gnus-counter))))
      (if (save-restriction
	    (widen)
	    (gnus-group-read-ephemeral-group
	     group `(nndoc ,group (nndoc-address ,rmail-buffer)
			   (nndoc-article-type babyl))
	     t (cons rmail-buffer config)))
	  (progn
	    (setq fp-rmail-babyl-file-with-gnus-lock (current-buffer))
	    (make-local-variable 'gnus-summary-prepare-exit-hook)
	    (add-hook 'gnus-summary-prepare-exit-hook
		      'fp-gnus-exit-babyl-file-group-routine)
	    (when article
	      (gnus-summary-goto-article article)))
	(set-buffer rmail-buffer)
	(gnus-error 3 "Babyl group couldn't be entered")))))

(defun fp-gnus-exit-babyl-file-group-routine ()
  "Reposition the Babyl file according to the current article in Gnus.
If not `Q', delete in the Babyl file what has not been kept on the Gnus side."
  (let ((current gnus-current-article)
	(unreads gnus-newsgroup-unreads)
	(ticked gnus-newsgroup-marked)
	message counter total)
    (save-excursion
      (set-buffer nndoc-address)
      (setq message 0
	    counter 0
	    total rmail-total-messages)
      (if (eq last-command-char ?Q)
	  (progn
	    (rmail-show-message current)
	    (save-buffer))
	(while (< message total)
	  (setq message (1+ message))
	  (unless (or (memq message unreads) (memq message ticked))
	    (message "Deleting message %d" message)
	    (rmail-show-message message t)
	    (rmail-delete-message)
	    (setq counter (1+ counter))))
	(rmail-show-message current)
	(cond ((zerop counter)
	       (save-buffer)
	       (message "All %d messages kept" total))
	      (t (rmail-expunge)
		 (setq total rmail-total-messages)
		 (save-buffer)
		 (if (> total 0)
		     (message "Deleted %d messages, keeping %d" counter total)
		   (delete-file buffer-file-name)
		   (message "Deleted file `%s'" buffer-file-name))
		 ;; Messages have been renumbered through expunging, article
		 ;; numbers from the summary are not dependable anymore.
		 ;; Dead summaries could become deadly if ever revived.
		 ;; To play safe, merely kill the Babyl buffer if expunged.
		 (kill-buffer (current-buffer))))
	(setq fp-rmail-babyl-file-with-gnus-lock nil)))))




(defvar fp-rmail-currently-visited-list nil)

(defun fp-rmail-mode-routine ()
  ;; [...]
  (local-set-key "!" 'fp-rmail-display-with-gnus)
  ;; [...]
  ;;; Immediately switch to Gnus, yet on initial visit only.
  (unless (member buffer-file-name fp-rmail-currently-visited-list)
    (push buffer-file-name fp-rmail-currently-visited-list)
    (let ((modified (buffer-modified-p)))
      (fp-rmail-display-babyl-file-with-gnus)
      ;; FIXME: I wonder what modified the buffer unconditionally.
      (set-buffer-modified-p modified))))
(add-hook 'rmail-mode-hook 'fp-rmail-mode-routine)

(defun fp-rmail-display-with-gnus (&optional flag)
  "Display the whole Babyl file with Gnus, using a nndoc ephemeral server.
With a flag argument, display only the current message instead, using nnone."
  (interactive "P")
  (if flag
      (fp-rmail-display-babyl-message-with-gnus)
    (fp-rmail-display-babyl-file-with-gnus rmail-current-message)))

(defun fp-rmail-display-babyl-message-with-gnus ()
  "Display current message with Gnus, using a nnone ephemeral server."
  ; [... not provided, not required, and probably not much useful...]
  nil)



(defun fp-maybe-start-gnus ()
  "Have Gnus started, if not already."
  (save-window-excursion
    (unless (gnus-alive-p)
      (gnus))))
(autoload 'gnus-alive-p "gnus-util")

-- 
François Pinard   http://www.iro.umontreal.ca/~pinard