From: Jan Vroonhof <vroonhof@math.ethz.ch>
Subject: Re: Drafts and autosave
Date: 16 Nov 1998 13:13:26 +0100 [thread overview]
Message-ID: <byyapbsumx.fsf@bolzano.math.ethz.ch> (raw)
In-Reply-To: Lars Magne Ingebrigtsen's message of "Fri, 13 Nov 1998 18:14:52 GMT"
Lars Magne Ingebrigtsen <larsi@gnus.org> writes:
> Nelson Jose dos Santos Ferreira <Nelson.Ferreira@inesc.pt> 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))))
\f
next prev parent reply other threads:[~1998-11-16 12:13 UTC|newest]
Thread overview: 21+ messages / expand[flat|nested] mbox.gz Atom feed top
1998-10-30 10:37 Jan Vroonhof
1998-10-30 14:33 ` Colin Rafferty
1998-10-30 15:35 ` Jan Vroonhof
1998-10-30 15:55 ` Jan Vroonhof
1998-10-30 16:00 ` Colin Rafferty
1998-10-30 16:14 ` Dan Christensen
1998-10-31 14:20 ` Lars Magne Ingebrigtsen
1998-10-31 16:01 ` Jan Vroonhof
1998-10-31 16:24 ` Dan Christensen
1998-11-07 13:40 ` Lars Magne Ingebrigtsen
1998-11-07 16:59 ` Nelson Jose dos Santos Ferreira
1998-11-07 23:36 ` Lars Magne Ingebrigtsen
1998-11-08 0:33 ` Joev Dubach
1998-11-10 4:33 ` Lars Magne Ingebrigtsen
1998-11-09 10:32 ` Robert Bihlmeyer
1998-11-09 14:10 ` Jan Vroonhof
1998-11-10 4:35 ` Lars Magne Ingebrigtsen
1998-11-10 8:59 ` Nelson Jose dos Santos Ferreira
1998-11-13 17:52 ` Lars Magne Ingebrigtsen
1998-11-16 12:13 ` Jan Vroonhof [this message]
1998-10-31 15:47 ` Jan Vroonhof
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=byyapbsumx.fsf@bolzano.math.ethz.ch \
--to=vroonhof@math.ethz.ch \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).