Re: Feature wish Red Gnus

[Jens Lautenbacher <jens@lemming0.lem.uni-karlsruhe.de>]

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

Mark Eichin <eichin@cygnus.com> writes:

> On problem: I set gnus-message-archive-group to (lambda(x) (list
> "misc-mail" x)) which does the right thing when my mail is in nnml:*
> and news is just in news.group.whatever, but when I've got nnml as
> the gnus-select-method, and the groups are actually named mail.*, it
> ends up building a gcc line pointing to nnfolder+archive:mail.*
> instead.  I haven't dug around to find out how to deal, but it's
> pretty clear that "this isn't how lars does it" or it would be
> easier :-)

I made a small patch to gnus-msg.el that provides a new group
parameter "gcc-self". If this is set to t in a groups's parameter
list, the gcc line is always build according to the right group name
if you send from inside of this this group. I process all my article
saving with this, except for a standart archive server line for misc
mail or misc news like:

    (setq gnus-message-archive-group
	     '((if (message-news-p)
		   "misc-news"
		 "misc-mail")))

If gcc-self is set to none, no gcc line at all appears in this group. I
use this for articles gong to mailing lists I,m subscribed to, as my
article will come back anyway.

A typical group parameter list would be (for ding.ifi.uio.no):

;; Type `C-c C-c' after editing the group parameters.

((gcc-self . none)
 (to-address . "ding@ifi.uio.no"))


And another for some private email:

;; Type `C-c C-c' after editing the group parameters.

((gcc-self . t)
 (to-address . "LITZLER@KHE.SCN.DE"))


I append my patch below, I already sent it to Lars but it will not be
integrated (if at all) before Red Gnus.


[-- Attachment #2: gnuspatch --]
[-- Type: application/octet-stream, Size: 1598 bytes --]

*** /usr/users/jens/daten/elisp/gnus-5.2.19/lisp/gnus-msg.el	Sat Jun 15 11:06:23 1996
--- gnus-msg.el	Sat Jun 15 15:42:33 1996
***************
*** 854,859 ****
--- 854,860 ----
    (let* ((var gnus-message-archive-group)
  	 (group (or group gnus-newsgroup-name ""))
  	 result
+ 	 gcc-self-val
  	 (groups
  	  (cond 
  	   ((null gnus-message-archive-method)
***************
*** 897,909 ****
  	  (gnus-inews-narrow-to-headers)
  	  (goto-char (point-max))
  	  (insert "Gcc: ")
! 	  (while (setq name (pop groups))
! 	    (insert (if (string-match ":" name)
! 			name
! 		      (gnus-group-prefixed-name 
! 		       name gnus-message-archive-method)))
! 	    (if groups (insert " ")))
! 	  (insert "\n"))))))
  
  (defun gnus-summary-send-draft ()
    "Enter a mail/post buffer to edit and send the draft."
--- 898,924 ----
  	  (gnus-inews-narrow-to-headers)
  	  (goto-char (point-max))
  	  (insert "Gcc: ")
! 	  (if (and gnus-newsgroup-name
! 		   (setq gcc-self-val
! 			 (gnus-group-get-parameter
! 			  gnus-newsgroup-name 'gcc-self)))
! 	      (progn 
! 		(insert
! 		 (if (stringp gcc-self-val)
! 		     gcc-self-val
! 		   group))
! 		(if (not (eq gcc-self-val 'none))
! 		    (insert "\n")
! 		  (progn
! 		    (beginning-of-line)
! 		    (kill-line))))
! 	    (while (setq name (pop groups))
! 	      (insert (if (string-match ":" name)
! 			  name
! 			(gnus-group-prefixed-name 
! 			 name gnus-message-archive-method)))
! 	      (if groups (insert " ")))
! 	    (insert "\n")))))))
  
  (defun gnus-summary-send-draft ()
    "Enter a mail/post buffer to edit and send the draft."