From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/30419 Path: main.gmane.org!not-for-mail From: Pavel.Janik@inet.cz (Pavel =?iso-8859-2?q?Jan=EDk?= ml.) Newsgroups: gmane.emacs.gnus.general Subject: Re: message-setup-hook called when sending from queue? Date: 26 Apr 2000 17:32:18 +0200 Organization: Qbizm technologies, a.s., Kralovopolska 139, Brno, 60112, Czech Republic Sender: owner-ding@hpc.uh.edu Message-ID: 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: 8bit X-Trace: main.gmane.org 1035166959 8371 80.91.224.250 (21 Oct 2002 02:22:39 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 02:22:39 +0000 (UTC) Cc: ding@gnus.org 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 3386CD051E for ; Wed, 26 Apr 2000 12:00:10 -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 KAB30967; Wed, 26 Apr 2000 11:00:01 -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 10:59:22 -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 KAA23389 for ; Wed, 26 Apr 2000 10:59:10 -0500 (CDT) Original-Received: from localgw.inet.cz (brno-l.router.inet.cz [62.229.34.226]) by mailhost.sclp.com (Postfix) with ESMTP id E282ED051F for ; Wed, 26 Apr 2000 11:59:25 -0400 (EDT) Original-Received: from SnowWhite.inet.cz (dialup2.inet.cz [62.229.34.210]) by localgw.inet.cz (8.9.0/8.9.0) with ESMTP id SAA03209; Wed, 26 Apr 2000 18:07:10 +0200 Original-Received: (from pavel@localhost) by SnowWhite.inet.cz (8.8.7/8.8.7) id RAA01429; Wed, 26 Apr 2000 17:55:58 +0200 X-Authentication-Warning: SnowWhite.inet.cz: pavel set sender to Pavel.Janik@inet.cz using -f Original-To: Shenghuo ZHU X-Operating-System: Linux 2.3.99-pre5 on Intel, Linux 2.2.10 on SPARC X-Spam: No unsolicited e-mail. 500 dollars per message proof-reading for unsolicited e-mail. X-Not-Receiving-Mail-From: mrp.cz, hotmail.com, post.cz, email.cz, usa.net In-Reply-To: Shenghuo ZHU's message of "26 Apr 2000 04:20:05 -0400" User-Agent: Gnus/5.0805 (Gnus v5.8.5) Emacs/20.6 Original-Lines: 50 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:30419 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:30419 From: Shenghuo ZHU Date: 26 Apr 2000 04:20:05 -0400 Hi, > Pavel> BTW - there is misplaced comment in gnus-draft.el: > > Pavel> ;; Insert the separator. > Pavel> ... > > In the latest CVS version, I believe I have fixed the gnus-draft-setup > bug. Please test it. I have CVS from about an hour ago and still nothing... This is the fix I'm using now: --- gnus-draft.el.orig Wed Apr 26 17:24:32 2000 +++ gnus-draft.el Wed Apr 26 17:27:48 2000 @@ -188,21 +188,22 @@ (progn (defun gnus-draft-setup (narticle group &optional restore) - (gnus-setup-message 'forward + (let ((message-setup-hook nil)) + (gnus-setup-message 'forward (let ((article narticle)) (message-mail) (erase-buffer) (if (not (gnus-request-restore-buffer article group)) (error "Couldn't restore the article") - ;; Insert the separator. (if (and restore (equal group "nndraft:queue")) (mime-to-mml)) + ;; Insert the separator. (goto-char (point-min)) (search-forward "\n\n") (forward-char -1) (insert mail-header-separator) (forward-line 1) - (message-set-auto-save-file-name)))))) + (message-set-auto-save-file-name))))))) (defun gnus-draft-article-sendable-p (article) "Say whether ARTICLE is sendable." BTW - Please move the comment ;; Insert the separator lower where it belongs as in this patch. -- Pavel Janík ml. Pavel.Janik@inet.cz