From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/6734
Path: main.gmane.org!not-for-mail
From: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: Soups again
Date: 17 Jun 1996 04:28:15 +0200
Message-ID: <x6ohmj2mgw.fsf@eyesore.no>
References: <vafn323ab82.fsf@ls6.informatik.uni-dortmund.de>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035147148 4579 80.91.224.250 (20 Oct 2002 20:52:28 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 20:52:28 +0000 (UTC)
Return-Path: ding-request@ifi.uio.no
Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.7.5/8.6.9) with SMTP id UAA15556 for <steve@miranova.com>; Sun, 16 Jun 1996 20:25:21 -0700
Original-Received: from eistla.ifi.uio.no (4867@eistla.ifi.uio.no [129.240.94.29]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) 
	id <FAA07511@ifi.uio.no> for <ding@ifi.uio.no> ; Mon, 17 Jun 1996 05:01:59 +0200
Original-Received: (from larsi@localhost) by eistla.ifi.uio.no ; Mon, 17 Jun 1996 05:01:57 +0200
Original-To: ding@ifi.uio.no
In-Reply-To: Kai Grossjohann's message of 16 Jun 1996 19:51:41 +0200
Original-Lines: 50
X-Mailer: Gnus v5.2.20/Emacs 19.29
Xref: main.gmane.org gmane.emacs.gnus.general:6734
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:6734

Kai Grossjohann <grossjoh@ls6.informatik.uni-dortmund.de> writes:

> This way, I could brew a soup, take it home, look at the mails, decide
> that one of my personal mails actually belongs to the foo project,
> `B m' it to mail.projects.foo at home, then pack a reply packet, take
> it back to work, and automagically, the mail would be `B m'ed to
> mail.projects.foo at work, too.

Having mail both on the home machine and a different machine can be
somewhat confusing.  I soup most of my mail, take it home, and then
discover that I can't deal with it there, so I have to take it back
again.  I haven't found a proper solution to this problem yet, but I
use the following two functions:

(defun unread-to-file (n)
  (interactive "P") 
  (let (ids)
    (goto-char (point-min))
    (while (not (eobp))
      (push (mail-header-id (gnus-summary-article-header))
	    ids)
      (forward-line 1))
    (nnheader-temp-write (format "~/sgnus/out/%s-unreads.list" 
				 (gnus-group-real-name gnus-newsgroup-name))
      (insert "(setq unread-list '")
      (prin1 ids (current-buffer))
      (insert ")"))))

(defun file-to-unread ()
  (interactive)
  (let (unread-list)
    (load (format "~/sgnus/out/%s-unreads.list"
		  (gnus-group-real-name gnus-newsgroup-name)))
    (let (id)
      (while (setq id (pop unread-list))
	(if (gnus-summary-refer-article id)
	    (gnus-summary-clear-mark-forward 1)
	  (message "Couldn't fetch article %s" id)
	  (ding))))))

On my home (souped) machine, I use `unread-to-file' to create a file
that has Message-IDs.  On the other machine I use `file-to-unread' to
have the articles reappear again.

This is *highly* cludgy, and I should probably write something that
works like you suggest.

-- 
  "Yes.  The journey through the human heart 
     would have to wait until some other time."