From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/40815 Path: main.gmane.org!not-for-mail From: Didier Verna Newsgroups: gmane.emacs.gnus.general Subject: Re: nndiary: how to add appointments Date: Tue, 11 Dec 2001 13:04:24 +0100 Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: main.gmane.org 1035176309 2908 80.91.224.250 (21 Oct 2002 04:58:29 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 04:58:29 +0000 (UTC) Return-Path: Original-Received: (qmail 8867 invoked from network); 11 Dec 2001 12:06:00 -0000 Original-Received: from malifon.math.uh.edu (mail@129.7.128.13) by mastaler.com with SMTP; 11 Dec 2001 12:06:00 -0000 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 16Dlf1-0001yr-00; Tue, 11 Dec 2001 06:05:23 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Tue, 11 Dec 2001 06:05:09 -0600 (CST) Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id GAA02562 for ; Tue, 11 Dec 2001 06:04:54 -0600 (CST) Original-Received: (qmail 8857 invoked by alias); 11 Dec 2001 12:05:02 -0000 Original-Received: (qmail 8852 invoked from network); 11 Dec 2001 12:05:02 -0000 Original-Received: from hermes.epita.fr (163.5.255.10) by gnus.org with SMTP; 11 Dec 2001 12:05:02 -0000 Original-Received: from goa.lrde.epita.fr (mail@goa.lrde.epita.fr [10.223.13.2]) by hermes.epita.fr id fBBD4vp29065 for EPITA Paris France Tue, 11 Dec 2001 13:04:57 GMT Original-Received: from uzeb.lrde.epita.fr ([10.223.13.53] ident=mail) by goa.lrde.epita.fr with esmtp (Exim 3.32 #1 (Debian)) id 16DlYo-0003US-00 for ; Tue, 11 Dec 2001 12:58:58 +0100 Original-Received: from didier by uzeb.lrde.epita.fr with local (Exim 3.33 #1 (Debian)) id 16Dle5-0008PK-00 for ; Tue, 11 Dec 2001 13:04:25 +0100 Original-To: Ding X-Attribution: drv X-Url: http://www.lrde.epita.fr/~didier X-Web: http://www.lrde.epita.fr/~didier X-Home-Page: http://www.lrde.epita.fr/~didier In-Reply-To: (Nevin Kapur's message of "Sun, 09 Dec 2001 19:52:18 -0500") X-Face: |j}\)O|k##MrRz#VK$Jy=0r=3Qc,,a/Tr6*JQbE73dy17]2YcmW$9Z&H21e}#~#pgc>dn(is5Bv1l!{1re+Q9suKIOUmOqZs2>QMxHlR;;}kaGYA@HR3D C6 X-Face: 6o|eiKqaHN.ANh8HXDzntcWUOCg\]RsOd.ctvm~*y}Y^R&*a+Co,\s#=HWsw3x$b_n2kJ#g (7u?J^@^xP)f,jUF|0Z'J:|G/bMA5O12*b,7`-Q`=pKsCRIpso07.Y>YB2H{7`?u&yh;C_ZtLHfj wrote: > According to nndiary.el > > ;; - However, since NNDiary also has a 'request-post method, you can also > ;; `C-u a' instead of `C-u m' on a diary group and the message won't actu= ally > ;; be sent; just stored in the group. > > This does not work for me. Sorry about that ! There are two mistakes I've just realized in this comment :-) 1/ I didn't mean `C-u a' but `C-u w' 2/ `C-u w' is available in my workspace only... I forgot to check that in. Ok, so here's the idea: - we have `gnus-group-post-news' which prepares a message that can be eithe= r a news or a mail depending on the group you use - we have `gnus-group-mail' which unconditionally prepares a mail =3D> now that several mail backends have a request-post method, we need `gnus-group-news' which would unconditionally prepare a news (I mean, even = for mail groups). I've written such a function and bound it to `w' in my workspace (for the record, it is appended below). If there are no objections, I'll check it in. Also, do someone have a better idea for the key binding or is w satisfactor= y ? (defun gnus-group-news (&optional arg) "Start composing a news. If ARG, use the group under point. If ARG is 1, prompt for a group name. This function prepares a news even when using mail groups. This is useful for posting messages to mail groups without actually sending them over the network. The corresponding backend must have a 'request-post method." (interactive "P") (let ((group gnus-newsgroup-name) (buffer (current-buffer))) (unwind-protect (progn (setq gnus-newsgroup-name (if arg (if (=3D 1 (prefix-numeric-value arg)) (completing-read "Use group: " gnus-active-hashtb nil (gnus-read-active-file-p)) (gnus-group-group-name)) "")) (gnus-setup-message 'message (message-news (gnus-group-real-name gnus-newsgroup-name)))) (save-excursion (set-buffer buffer) (setq gnus-newsgroup-name group))))) --=20 Didier Verna, didier@lrde.epita.fr, http://www.lrde.epita.fr/~didier EPITA / LRDE, 14-16 rue Voltaire Tel.+33 (1) 53 14 59 47 94276 Le Kremlin-Bic=EAtre, France Fax.+33 (1) 53 14 59 22 didier@xemac= s.org