[PATCH] allow message-mail to use posting styles

[PATCH] allow message-mail to use posting styles

[Didier Verna]

	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.