From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/28877 Path: main.gmane.org!not-for-mail From: Julien GILLES Newsgroups: gmane.emacs.gnus.general Subject: My first lisp function for Gnus Date: 21 Jan 2000 12:23:47 +0100 Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035165646 32092 80.91.224.250 (21 Oct 2002 02:00:46 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 02:00:46 +0000 (UTC) Return-Path: Original-Received: from bart.math.uh.edu (bart.math.uh.edu [129.7.128.48]) by mailhost.sclp.com (Postfix) with ESMTP id 8876DD051E for ; Fri, 21 Jan 2000 06:26:47 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by bart.math.uh.edu (8.9.1/8.9.1) with ESMTP id FAB18202; Fri, 21 Jan 2000 05:26:42 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 21 Jan 2000 05:26:38 -0600 (CST) Original-Received: from mailhost.sclp.com (postfix@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id FAA27394 for ; Fri, 21 Jan 2000 05:26:25 -0600 (CST) Original-Received: from mel.alcatel.fr (mel.alcatel.fr [212.208.74.132]) by mailhost.sclp.com (Postfix) with ESMTP id 3F69ED051E for ; Fri, 21 Jan 2000 06:26:11 -0500 (EST) Original-Received: from aifhs2.alcatel.fr (mailhub.alcatel.fr [155.132.180.80]) by mel.alcatel.fr (ALCANET/SMTP) with ESMTP id MAA00420 for ; Fri, 21 Jan 2000 12:18:49 +0100 Original-Received: from dnscit.cit.alcatel.fr (dnscit.cit.alcatel.fr [139.54.100.2]) by aifhs2.alcatel.fr (ALCANET/SMTP2) with ESMTP id MAA23961 for ; Fri, 21 Jan 2000 12:23:42 +0100 (MET) Original-Received: from dnsvz.vz.cit.alcatel.fr (dnsvz.vz.cit.alcatel.fr [139.54.85.1]) by dnscit.cit.alcatel.fr (8.9.3+Sun/8.9.1) with ESMTP id MAA06257 for ; Fri, 21 Jan 2000 12:27:26 +0100 (MET) Original-Received: from bcv01y01.vz.cit.alcatel.fr (bcv01y01.vz.cit.alcatel.fr [139.54.101.1]) by dnsvz.vz.cit.alcatel.fr (8.9.3+Sun/8.9.1) with ESMTP id MAA09629 for ; Fri, 21 Jan 2000 12:26:22 +0100 (MET) Original-Received: from bcv01xc7.vz.cit.alcatel.fr (bcv01xc7.vz.cit.alcatel.fr [139.54.101.199]) by bcv01y01.vz.cit.alcatel.fr with ESMTP (8.8.6 (PHNE_17135)/8.7.1) id MAA14654 for ; Fri, 21 Jan 2000 12:24:47 +0100 (MET) Original-Received: by bcv01xc7.vz.cit.alcatel.fr (8.8.8+Sun/SMI-SVR4) id MAA18522; Fri, 21 Jan 2000 12:23:48 +0100 (MET) Original-To: ding@gnus.org Original-Lines: 27 User-Agent: Gnus/5.0803 (Gnus v5.8.3) XEmacs/21.1 (Bryce Canyon) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:28877 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:28877 Well, it's not a revolution for Gnus World, but for me :-) In the Customize view of a group, there is an admin-adress field that is not used, it is there only for convenience. I think that this adress should be automatically used for sending messages to the mailing list server associated to the group. (defun gnus-mail-admin-address () "Compose mail for admin adress of a mailing list." (interactive) (let ((adress (gnus-group-find-parameter gnus-newsgroup-name 'admin-address))) (cond (adress (gnus-setup-message 'message (message-mail adress))) (t (display-message 'error "no admin adress"))))) (gnus-define-keys gnus-summary-mode-map "\C-ca" gnus-mail-admin-address) - AFAK, "Control-c a" is not used. Another better keys ? - Feel free to modify/correct/change this code, if something is not done the right way. regards -- Julien Gilles.