From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/24202
Path: main.gmane.org!not-for-mail
From: pahe@daimi.au.dk (Peter von der =?iso-8859-1?q?Ah=E9?=)
Newsgroups: gmane.emacs.gnus.general
Subject: Re: Suggestion: add a gnus-user-agent.
Date: 13 Jul 1999 03:27:48 +0200
Sender: owner-ding@hpc.uh.edu
Message-ID: <yc0n1x1ibjf.fsf@ufleku.daimi.au.dk>
References: <87emidqt68.fsf@raven.localnet>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035161808 7411 80.91.224.250 (21 Oct 2002 00:56:48 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 00:56:48 +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 VAA18419
	for <jason@mailhost.sclp.com>; Mon, 12 Jul 1999 21:28:33 -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 UAB19607;
	Mon, 12 Jul 1999 20:28:10 -0500 (CDT)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 12 Jul 1999 20:29:02 -0500 (CDT)
Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id UAA26778
	for <ding@hpc.uh.edu>; Mon, 12 Jul 1999 20:28:52 -0500 (CDT)
Original-Received: from ufleku.daimi.au.dk (root@ufleku.daimi.au.dk [130.225.19.182])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id VAA18397
	for <ding@gnus.org>; Mon, 12 Jul 1999 21:27:50 -0400 (EDT)
Original-Received: (from pahe@localhost)
          by ufleku.daimi.au.dk (8.9.3/8.8.4)
	  id DAA25682; Tue, 13 Jul 1999 03:27:48 +0200
Original-To: ding@gnus.org
X-Attribution: Ahe
In-Reply-To: Rob Browning's message of "12 Jul 1999 19:39:43 -0500"
Original-Lines: 27
User-Agent: Gnus/5.070095 (Pterodactyl Gnus v0.95) Emacs/20.3
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:24202
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:24202

This is a great idea!

Just what I have been looking for.

I normally I have two Emacsen running, one for Gnus and one for
everything else (not much :-).  Therefore I had to make a few
adjustments:

(defun gnus-mail (&rest args)
  "Start editing a mail message to be sent gnus style.
Use message mode as the underlying agent."
  (unless (and (fboundp 'gnus-alive-p) (gnus-alive-p))
    (let
	((gnus-inhibit-startup-message t)
	 (nnml-get-new-mail nil)
	 (nnmail-spool-file nil)
	 (mail-sources nil))
      (gnus-no-server 0 t)
      (gnus-group-suspend)))
  (gnus-setup-message 'message (apply 'message-mail args)))

Then the function seems to work even if Gnus is running in another
Emacs (if I don't define nnml-get-new-mail, nnmail-spool-file, or
mail-sources in .gnus.el).

Cheers,
Peter