From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/30422 Path: main.gmane.org!not-for-mail From: Shenghuo ZHU Newsgroups: gmane.emacs.gnus.general Subject: Re: message-setup-hook called when sending from queue? Date: 26 Apr 2000 12:37:26 -0400 Organization: U of Rochester Sender: owner-ding@hpc.uh.edu Message-ID: <2n3do8ked5.fsf@tiger.jia.vnet> References: <2n4s8pl1e2.fsf@tiger.jia.vnet> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-2 Content-Transfer-Encoding: quoted-printable X-Trace: main.gmane.org 1035166962 8383 80.91.224.250 (21 Oct 2002 02:22:42 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 02:22:42 +0000 (UTC) Return-Path: Original-Received: from lisa.math.uh.edu (lisa.math.uh.edu [129.7.128.49]) by mailhost.sclp.com (Postfix) with ESMTP id DBBB8D051E for ; Wed, 26 Apr 2000 12:36:04 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by lisa.math.uh.edu (8.9.1/8.9.1) with ESMTP id LAB29833; Wed, 26 Apr 2000 11:36:00 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 26 Apr 2000 11:35:28 -0500 (CDT) 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 LAA23904 for ; Wed, 26 Apr 2000 11:35:12 -0500 (CDT) Original-Received: from shenghuo.dhs.org (d181829df.rochester.rr.com [24.24.41.223]) by mailhost.sclp.com (Postfix) with ESMTP id A5C22D051E for ; Wed, 26 Apr 2000 12:35:30 -0400 (EDT) Original-Received: (from zsh@localhost) by shenghuo.dhs.org (8.10.0/8.10.0) id e3QGbQJ27511; Wed, 26 Apr 2000 12:37:26 -0400 Original-To: ding@gnus.org X-Attribution: ZSH X-Face: 'IF:e51ib'Qbl^(}l^&4-J`'P!@[4~O|&k#:@Gld#b/]oMq&`&FVY._3+b`mzp~Jeve~/#/ ERD!OTe<86UhyN=l`mrPY)M7_}`Ktt\K+58Z!hu7>qU,i.N7TotU[FYE(f1;}`g2xj!u*l`^&=Q!g{ *q|ddto|nkt"$r,K$[)"|6,elPH= GJ6Q In-Reply-To: Pavel.Janik@inet.cz's message of "26 Apr 2000 17:32:18 +0200" Original-Lines: 48 User-Agent: Gnus/5.0805 (Gnus v5.8.5) Emacs/20.6 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:30422 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:30422 >>>>> "Pavel" =3D=3D Pavel Jan=EDk ml writes: Pavel> I have CVS from about an hour ago and still nothing... This is Pavel> the fix I'm using now: Pavel> --- gnus-draft.el.orig Wed Apr 26 17:24:32 2000 Pavel> +++ gnus-draft.el Wed Apr 26 17:27:48 2000 Pavel> @@ -188,21 +188,22 @@ =20 Pavel> (progn Pavel> (defun gnus-draft-setup (narticle group &optional restore) Pavel> - (gnus-setup-message 'forward Pavel> + (let ((message-setup-hook nil)) Pavel> + (gnus-setup-message 'forward This is not good. message-setup-hook is should be set to nil only if it is in nndraft:queue group and going to be sent. Now I fixed it in draft-send. Pavel> (let ((article narticle)) Pavel> (message-mail) Pavel> (erase-buffer) Pavel> (if (not (gnus-request-restore-buffer article group)) Pavel> (error "Couldn't restore the article") Pavel> - ;; Insert the separator. Pavel> (if (and restore (equal group "nndraft:queue")) Pavel> (mime-to-mml)) This will make sure that a queued message will not be restored to mml when it is going to be sent. Pavel> + ;; Insert the separator. The comment is moved. Thank you. Pavel> (goto-char (point-min)) Pavel> (search-forward "\n\n") Pavel> (forward-char -1) Pavel> (insert mail-header-separator) Pavel> (forward-line 1) Pavel> - (message-set-auto-save-file-name)))))) Pavel> + (message-set-auto-save-file-name))))))) =20 --=20 Shenghuo