From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/62565 Path: news.gmane.org!not-for-mail From: Reiner Steib Newsgroups: gmane.emacs.gnus.general Subject: Re: dealing with news-gatewayed mail lists Date: Thu, 06 Apr 2006 22:46:15 +0200 Organization: Dept. of Theoretical Physics, University of Ulm Message-ID: References: Reply-To: Reiner Steib NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1144356422 9793 80.91.229.2 (6 Apr 2006 20:47:02 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 6 Apr 2006 20:47:02 +0000 (UTC) Cc: ding@gnus.org Original-X-From: ding-owner+m11092@lists.math.uh.edu Thu Apr 06 22:46:59 2006 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by ciao.gmane.org with esmtp (Exim 4.43) id 1FRbNZ-0003MS-S4 for ding-account@gmane.org; Thu, 06 Apr 2006 22:46:58 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu ident=lists) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1FRbNQ-0001hs-00; Thu, 06 Apr 2006 15:46:48 -0500 Original-Received: from nas02.math.uh.edu ([129.7.128.40]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1FRbN7-0001hn-00 for ding@lists.math.uh.edu; Thu, 06 Apr 2006 15:46:29 -0500 Original-Received: from quimby.gnus.org ([80.91.224.244]) by nas02.math.uh.edu with esmtp (Exim 4.52) id 1FRbN2-0001b9-6Q for ding@lists.math.uh.edu; Thu, 06 Apr 2006 15:46:29 -0500 Original-Received: from mail.uni-ulm.de ([134.60.1.1]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1FRbMx-0003zG-00 for ; Thu, 06 Apr 2006 22:46:19 +0200 Original-Received: from bridgekeeper.physik.uni-ulm.de (bridgekeeper.physik.uni-ulm.de [134.60.10.123]) by mail.uni-ulm.de (8.13.6/8.13.6) with ESMTP id k36KkFx1029020; Thu, 6 Apr 2006 22:46:15 +0200 (MEST) Original-Received: by bridgekeeper.physik.uni-ulm.de (Postfix, from userid 170) id 43C1311668; Thu, 6 Apr 2006 22:46:15 +0200 (CEST) Original-To: Dave Love Mail-Followup-To: Dave Love , ding@gnus.org X-Face: 3Phac&+dw=IZHjhua]bp}LH<*p{qzj8u+ v message-header-synonyms RET ] | message-header-synonyms is a variable defined in `message.el'. | Its value is | ((Original-To) | (To Cc Bcc)) | | Documentation: | List of lists of header synonyms. | E.g., if this list contains a member list with elements `Cc' and `To', | then `message-carefully-insert-headers' will not insert a `To' header | when the message is already `Cc'ed to the recipient. `---- On list where most users are subscribed, I use `F' and insert the original poster using `C-u C-c f w' in `message-mode' when appropriate I have `rs-message-wide-reply', see below, is bound to `C-c f w'. Maybe I should a something similar to `message.el'. `message-generate-unsubscribed-mail-followup-to' might also be useful. --8<---------------cut here---------------start------------->8--- ;;;###autoload (defun rs-message-replace-header (header new-value &optional after) "Remove HEADER and insert the NEW-VALUE. If AFTER, insert after this header." ;; Similar to `nnheader-replace-header' but for message buffers. (save-excursion (save-restriction (message-narrow-to-headers) (message-remove-header header)) (if after (message-position-on-field header after) (message-position-on-field header)) (insert new-value))) ;;;###autoload (defun rs-message-wide-reply (&optional wide) "Insert To, Cc and Mail-Followup-To for a wide reply. The header Mail-Copies-To and Newsgroups are removed on request. If WIDE, call `message-insert-wide-reply' to construct the To and Cc headers from the original article. Else the current messages headers are used." (interactive "P") (when wide (message-insert-wide-reply)) (save-excursion (let ((to (message-fetch-field "To")) (cc (message-fetch-field "Cc")) (ngs (message-fetch-field "Newsgroups")) (mct (message-fetch-field "Mail-Copies-To"))) (rs-message-replace-header "Mail-Followup-To" (concat to (when (and to cc) ", ") cc)) (save-restriction (message-narrow-to-headers) (when (and mct (y-or-n-p (format "Remove \"Mail-Copies-To: %s\"? " mct))) (message-remove-header "Mail-Copies-To")) (when (and ngs (y-or-n-p (format "Remove \"Newsgroups: %s\"? " ngs))) (message-remove-header "Newsgroups")))))) --8<---------------cut here---------------end--------------->8--- Bye, Reiner. -- ,,, (o o) ---ooO-(_)-Ooo--- | PGP key available | http://rsteib.home.pages.de/