From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/18734 Path: main.gmane.org!not-for-mail From: Jan Vroonhof Newsgroups: gmane.emacs.gnus.general Subject: Re: Drafts and autosave Date: 16 Nov 1998 13:13:26 +0100 Sender: owner-ding@hpc.uh.edu Message-ID: References: <2xaf1zkjns.fsf@ccae-sv.inesc.pt> NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035157209 7817 80.91.224.250 (20 Oct 2002 23:40:09 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 23:40:09 +0000 (UTC) Return-Path: Original-Received: from karazm.math.uh.edu (karazm.math.uh.edu [129.7.128.1]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id HAA08944 for ; Mon, 16 Nov 1998 07:14:05 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by karazm.math.uh.edu (8.9.1/8.9.1) with ESMTP id GAB13299; Mon, 16 Nov 1998 06:13:55 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 16 Nov 1998 06:13:51 -0600 (CST) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [209.195.19.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id GAA15160 for ; Mon, 16 Nov 1998 06:13:43 -0600 (CST) Original-Received: from frege.math.ethz.ch (root@frege-d-math-north-g-west.math.ethz.ch [129.132.145.3]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id HAA08937 for ; Mon, 16 Nov 1998 07:13:32 -0500 (EST) Original-Received: from bolzano (vroonhof@bolzano [129.132.146.140]) by frege.math.ethz.ch (8.8.8/Main-STAT-mailer) with ESMTP id NAA10114 for ; Mon, 16 Nov 1998 13:13:20 +0100 (MET) Original-Received: (vroonhof@localhost) by bolzano (SMI-8.6/D-MATH-client) id NAA10836; Mon, 16 Nov 1998 13:13:27 +0100 Original-To: ding@gnus.org In-Reply-To: Lars Magne Ingebrigtsen's message of "Fri, 13 Nov 1998 18:14:52 GMT" Original-Lines: 40 User-Agent: Gnus/5.070042 (Pterodactyl Gnus v0.42) XEmacs/21.0 (Pyrenean-pre6) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:18734 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:18734 Lars Magne Ingebrigtsen writes: > Nelson Jose dos Santos Ferreira writes: > > > Hmmm. Shouldn't a look at auto-save-directory do the trick ? > > (i.e. if non-nil then the message buffers' autosaves are > > there). > > Hm... There doesn't seem to be such a variable in Emacs 20.3. I am running with the following patch against 0.42. It does what I proposed before (do an initial save) and it works here. bolzano:scratch/xemacs/gnus/pgnus-0.40> diff -u ../../orig/pgnus-0.40/lisp/nndraft.el lisp/nndraft.el --- ../../orig/pgnus-0.40/lisp/nndraft.el Sun Oct 11 02:32:06 1998 +++ lisp/nndraft.el Fri Oct 30 16:49:02 1998 @@ -157,7 +157,8 @@ (setq file (nndraft-article-filename article))) (setq buffer-file-name (expand-file-name file)) (setq buffer-auto-save-file-name (make-auto-save-file-name)) - (clear-visited-file-modtime) + (set-buffer-modified-p t) + (save-buffer) article)) (deffoo nndraft-request-expire-articles (articles group &optional server force) bolzano:scratch/xemacs/gnus/pgnus-0.40> diff -u lisp/message.el~ lisp/message.el --- lisp/message.el~ Sat Oct 24 07:45:06 1998 +++ lisp/message.el Thu Nov 12 19:24:37 1998 @@ -3269,7 +3269,9 @@ "Disassociate the message buffer from the drafts directory." (when message-draft-article (nndraft-request-expire-articles - (list message-draft-article) "drafts" nil t))) + (list message-draft-article) "drafts" nil t) + (if (and buffer-file-name (file-exists-p buffer-file-name)) + (delete-file buffer-file-name))))