From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/16501
Path: main.gmane.org!not-for-mail
From: Didier Verna <verna@inf.enst.fr>
Newsgroups: gmane.emacs.gnus.general
Subject: [PATCH] allow message-mail to use posting styles
Date: 31 Aug 1998 12:46:20 +0200
Sender: owner-ding@hpc.uh.edu
Message-ID: <qyjk93pwhs3.fsf@metheny.enst.fr>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
X-Trace: main.gmane.org 1035155362 28187 80.91.224.250 (20 Oct 2002 23:09:22 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 23:09:22 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from gizmo.hpc.uh.edu (gizmo.hpc.uh.edu [129.7.102.31])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id GAA25931
	for <jason@mailhost.sclp.com>; Mon, 31 Aug 1998 06:48:25 -0400 (EDT)
Original-Received: from sina.hpc.uh.edu (sina.hpc.uh.edu [129.7.3.5]) by gizmo.hpc.uh.edu (8.7.6/8.7.3) with ESMTP id FAF22557; Mon, 31 Aug 1998 05:19:29 -0500
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 31 Aug 1998 05:46:54 -0500 (CDT)
Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [209.195.19.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id FAA05044 for <ding@hpc.uh.edu>; Mon, 31 Aug 1998 05:46:44 -0500 (CDT)
Original-Received: from ulysse.enst.fr (qBPLG3zb1HJckCFs4juLv23olefGwhXU@inf.enst.fr [137.194.2.81])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id GAA25916
	for <ding@gnus.org>; Mon, 31 Aug 1998 06:46:34 -0400 (EDT)
Original-Received: from metheny.enst.fr (metheny.enst.fr [137.194.204.4])
	by ulysse.enst.fr (8.9.1a/8.9.1) with ESMTP id MAA26101
	for <ding@gnus.org>; Mon, 31 Aug 1998 12:46:26 +0200 (MET DST)
Original-Received: (from verna@localhost)
	by metheny.enst.fr (8.8.8/8.8.8) id MAA05289;
	Mon, 31 Aug 1998 12:46:20 +0200 (MET DST)
Original-To: ding@gnus.org
Mail-Copies-To: never
X-Attribution: dv
X-Url: http://www-inf.enst.fr/~verna/
X-Face: |j}\)O|k##MrRz#VK$Jy=0r=3Qc,,a/Tr6*JQbE73dy17]<u3$*$]4O\1|h\|O\EDT9d$n+
 MTB{U&>2YcmW$9Z&H21e}#~#pgc>dn(is5Bv1l!{1re+Q9suKIOUmOqZs2>QMxHlR;;}kaGYA@HR3D
 C6
X-Face: 6o|eiKqaHN.ANh8HXDzntcWUOCg\]RsOd.ctvm~*y}Y^R&*a+Co,\s#=HWsw3x$b_n2kJ#g
 (7u?J^@^xP)f,jUF|0Z'J:|G/bMA5O12*b,7`-Q`=pKsCRIpso07.Y>YB2H{7`?u&yh;C_ZtLHfj<!
 $J=.i&Al'?,ax]MZd4tcm)_wF3$n*:f/lgS.;?Jr3T;Fl^q<qP**'tw
Original-Lines: 46
X-Mailer: Gnus v5.6.24/XEmacs 21.2(beta2) - "Aether-pre3"
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:16501
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:16501



	Sometimes, I want to send a personnal mail while using a particular
posting style. This patch allows you to do this from the group buffer. It
basically let gnus-group-mail behave like gnus-group-post-news.

- `C-u' uses the newsgroup under the point
- `C-u 1' prompts for a newsgroup whose style to use.



1998-08-31  Didier Verna  <verna@inf.enst.fr>

	* gnus-msg.el (gnus-group-mail): make it behave like
	gnus-group-post-news with regards to the prefix (this enables the
	use of posting styles).


--- gnus-msg.el.orig	Fri Aug 28 11:51:17 1998
+++ gnus-msg.el	Mon Aug 31 12:41:02 1998
@@ -223,11 +223,20 @@
 
 ;;; Post news commands of Gnus group mode and summary mode
 
-(defun gnus-group-mail ()
-  "Start composing a mail."
-  (interactive)
-  (gnus-setup-message 'message
-    (message-mail)))
+(defun gnus-group-mail (&optional arg)
+  "Start composing a mail.
+If ARG, use the group under the point to find a posting style.
+If ARG is 1, prompt for a group name to find the posting style."
+  (interactive "P")
+  (let ((gnus-newsgroup-name
+	 (if arg
+	     (if (= 1 (prefix-numeric-value arg))
+		 (completing-read "Use style of group: " gnus-active-hashtb nil
+				  (gnus-read-active-file-p))
+	       (gnus-group-group-name))
+	   "")))
+    (gnus-setup-message 'message (message-mail))
+    ))
 
 (defun gnus-group-post-news (&optional arg)
   "Start composing a news message.