[patch] 0.37 gnus-group-mail/new arg composes mail to group

[patch] 0.37 gnus-group-mail/new arg composes mail to group

[Jari Aalto]

[-- Attachment #1: Type: text/plain, Size: 407 bytes --]



    I tried to find a command from the group buffer to post directly
    to the group without entering it; but I couldn't find one.
    In case it exists, please ignore this patch.

    It adds optional argument to group "H" command to start
    composing message directly to that group. This is convenient,
    when you want to send questions but not actually read the group
    at that time.

    jari


[-- Attachment #2: gnus-msg.el.diff --]
[-- Type: application/octet-stream, Size: 785 bytes --]

Prereq: 1.37

===================================================================
RCS file: RCS/gnus-msg.el,v
retrieving revision 1.37
retrieving revision 1.38
diff -ubw -r1.37 -r1.38
--- 1.37	1998/03/19 15:47:31
+++ 1.38	1998/03/19 15:49:24
@@ -199,11 +199,12 @@
 
 ;;; 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 group)
+  "Start composing a mail. Optionally compose mail to  GROUP."
+  (interactive "P")
+  (if group
+       (gnus-post-news 'post (gnus-group-group-name))
+    (gnus-setup-message 'message (message-mail))))
 
 (defun gnus-group-post-news (&optional arg)
   "Start composing a news message.

Re: [patch] 0.37 gnus-group-mail/new arg composes mail to group

[Kai Grossjohann]

>>>>> On 19 Mar 1998, Jari Aalto said:

  Jari>     I tried to find a command from the group buffer to post directly
  Jari>     to the group without entering it; but I couldn't find one.
  Jari>     In case it exists, please ignore this patch.

C-u a

kai
-- 
Really cancel?   [OK]  [Cancel]