From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/24536
Path: main.gmane.org!not-for-mail
From: Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai =?iso-8859-1?q?Gro=DFjohann?=)
Newsgroups: gmane.emacs.gnus.general
Subject: Re: Bug? pgnus 0.95
Date: 28 Jul 1999 17:39:21 +0200
Sender: owner-ding@hpc.uh.edu
Message-ID: <vafd7xclr6e.fsf@petty.cs.uni-dortmund.de>
References: <lz7lnlgefc.fsf@landlord.gbdirect.co.uk> <m1bemhsud5r.fsf@blackbird.mitre.org> <lzaesggaz4.fsf@landlord.gbdirect.co.uk>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035162086 9279 80.91.224.250 (21 Oct 2002 01:01:26 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 01:01:26 +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 LAA02950
	for <jason@mailhost.sclp.com>; Wed, 28 Jul 1999 11:41:36 -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.3/8.9.3) with ESMTP id KAB09389;
	Wed, 28 Jul 1999 10:40:55 -0500 (CDT)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 28 Jul 1999 10:41:23 -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 KAA05309
	for <ding@hpc.uh.edu>; Wed, 28 Jul 1999 10:41:12 -0500 (CDT)
Original-Received: from waldorf.cs.uni-dortmund.de (waldorf.cs.uni-dortmund.de [129.217.4.42])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id LAA02915
	for <ding@gnus.org>; Wed, 28 Jul 1999 11:39:59 -0400 (EDT)
Original-Received: from petty.cs.uni-dortmund.de (petty.cs.uni-dortmund.de [129.217.20.161]) by waldorf.cs.uni-dortmund.de  with ESMTP id RAA16973 for <ding@gnus.org>; Wed, 28 Jul 1999 17:39:23 +0200 (MES)
Original-Received: (grossjoh@localhost)
	by petty.cs.uni-dortmund.de id RAA05825; Wed, 28 Jul 1999 17:39:22 +0200 (MET DST)
Original-To: ding@gnus.org
In-Reply-To: Lee Willis's message of "28 Jul 1999 14:28:15 +0100"
Original-Lines: 53
User-Agent: Gnus/5.070095 (Pterodactyl Gnus v0.95) Emacs/20.4
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:24536
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:24536

Lee Willis <lee@gbdirect.co.uk> writes:

> I tootle around and read my mail, then say for example I want to compose
> a new mail. I'm in the Group buffer with point over some indeterminate
> group (At this point I don't care and shouldn't have to care which!) and
> hit 'm' to compose a new message.

FWIW, I have the following instead of the gcc-self mechanism.  It
pretty much does the same thing but provides a default.  Maybe you
would like to avoid your problem altogether and use something like
this?

(defun kai-gnus-outgoing-message-group ()
  (cond ((and gnus-newsgroup-name
              (stringp gnus-newsgroup-name)
              (not (string= "" gnus-newsgroup-name))
              (string-match "^\\(nnml\\|nnimap\\):" gnus-newsgroup-name))
         gnus-newsgroup-name)
        ((and gnus-newsgroup-name
              (stringp gnus-newsgroup-name)
              (string-match "^nntodo:" gnus-newsgroup-name))
         nil)
        (t "nnimap:INBOX")))

(setq gnus-outgoing-message-group 'kai-gnus-outgoing-message-group)

(defun message-toggle-gcc ()
  (interactive)
  (save-excursion
    (save-restriction
      (let ((pmin (progn (beginning-of-buffer) (point)))
            (pmax (progn
                    (beginning-of-buffer)
                    (re-search-forward (concat "^" mail-header-separator
                                               "$"))
                    (beginning-of-line)
                    (point))))
        (beginning-of-buffer)
        (narrow-to-region pmin pmax)
        (if (re-search-forward "^gcc: .*" nil t)
            (progn
              (beginning-of-line)
              (kill-line 1))
          (goto-char pmax)
          (insert (concat "Gcc: "
                          (kai-gnus-outgoing-message-group)
                          "\n")))))))

The last function is useful in the message buffer.

kai
-- 
I like BOTH kinds of music.