From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/54759 Path: main.gmane.org!not-for-mail From: Sam Steingold Newsgroups: gmane.emacs.gnus.general Subject: Re: follow-up & CC Date: Mon, 10 Nov 2003 09:47:32 -0500 Organization: disorganization Sender: ding-owner@lists.math.uh.edu Message-ID: References: Reply-To: sds@gnu.org NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1068475692 15074 80.91.224.253 (10 Nov 2003 14:48:12 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 10 Nov 2003 14:48:12 +0000 (UTC) Original-X-From: ding-owner+M3300@lists.math.uh.edu Mon Nov 10 15:48:06 2003 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1AJDKo-00074O-00 for ; Mon, 10 Nov 2003 15:48:06 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1AJDKQ-0000yO-00; Mon, 10 Nov 2003 08:47:42 -0600 Original-Received: from justine.libertine.org ([66.139.78.221]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1AJDKM-0000yJ-00 for ding@lists.math.uh.edu; Mon, 10 Nov 2003 08:47:38 -0600 Original-Received: from main.gmane.org (main.gmane.org [80.91.224.249]) by justine.libertine.org (Postfix) with ESMTP id 4FE363A0068 for ; Mon, 10 Nov 2003 08:47:37 -0600 (CST) Original-Received: from list by main.gmane.org with local (Exim 3.35 #1 (Debian)) id 1AJDKK-0004Ej-00 for ; Mon, 10 Nov 2003 15:47:36 +0100 X-Injected-Via-Gmane: http://gmane.org/ Original-To: ding@gnus.org Original-Received: from sea.gmane.org ([80.91.224.252]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1AJDKI-0004Eb-00 for ; Mon, 10 Nov 2003 15:47:34 +0100 Original-Received: from news by sea.gmane.org with local (Exim 3.35 #1 (Debian)) id 1AJDKI-0003rg-00 for ; Mon, 10 Nov 2003 15:47:34 +0100 Original-Lines: 64 Original-X-Complaints-To: usenet@sea.gmane.org X-Attribution: Sam X-Disclaimer: You should not expect anyone to agree with me. User-Agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/21.3.50 (windows-nt) Cancel-Lock: sha1:YQKFbH8BLXrT84ufeodbsSqvzrw= Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:54759 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:54759 > * Reiner Steib <4.hpr.03.e.f@aheshrefcnz.qr> [2003-11-10 13:30:04 +0100]: > > On Mon, Nov 10 2003, Sam Steingold wrote: > >> When I do "F" in a gmane newsgroup for which I set a to-address >> parameter, I get a message buffer addressed to the mailing list address >> (to-address). If I want to CC to the author of the article to which I >> am following up, I have to manually copy his address and do C-c c. >> Is there a better way? > > What comes quite close to your wish is to use `F', followed by `C-c > C-t' (message-insert-to). > > ,----[ C-h f message-insert-to RET ] > | message-insert-to is an interactive compiled Lisp function in `message'. > | (message-insert-to &optional FORCE) > | > | Insert a To header that points to the author of the article being replied to. > | If the original author requested not to be sent mail, the function signals > | an error. > | With the prefix argument FORCE, insert the header anyway. > `---- Thanks! I would like to add this function to `message-setup-hook', but it signals an error for people who do not want copies. Wouldn't it be better to use this instead? 2003-11-10 Sam Steingold * message.el (message-insert-to): Do not signal an error when the user requested no CC; can be added to `message-setup-hook' now. (defun message-insert-to (&optional force) "Insert a To header that points to the author of the article being replied to. If the original author requested not to be sent mail, the function signals an error. With the prefix argument FORCE, insert the header anyway." (interactive "P") (let* ((co (message-fetch-reply-field "mail-copies-to")) (dont (and co (or (equal (downcase co) "never") (equal (downcase co) "nobody"))))) (when dont (if force (warn "Ignoring the user request not to have copies sent via mail") (warn "Complying with the user request not to have copies sent via mail"))) (when (or force (not dont)) (message-carefully-insert-headers (list (cons 'To (or (message-fetch-reply-field "mail-reply-to") (message-fetch-reply-field "reply-to") (message-fetch-reply-field "from") ""))))))) Thanks. -- Sam Steingold (http://www.podval.org/~sds) running w2k Man has 2 states: hungry/angry and sate/sleepy. Catch him in transition.