[PATCH] Recent change causes lots of files to get a X-Draft-From: header

[PATCH] Recent change causes lots of files to get a X-Draft-From: header

[Michael Shields]

Just now I tried to save an Emacs Lisp file and found that an
X-Draft-From: header had appeared in it.


2003-01-02  Michael Shields  <shields@msrl.com>

	* nndraft.el (nndraft-request-associate-buffer): Make
	write-contents-hooks buffer-local before setting it.

--- lisp/nndraft.el	2003/01/01 18:51:42	6.15
+++ lisp/nndraft.el	2003/01/02 07:53:06
@@ -173,6 +173,7 @@
     (setq buffer-file-name (expand-file-name file)
 	  buffer-auto-save-file-name (make-auto-save-file-name))
     (clear-visited-file-modtime)
+    (make-variable-buffer-local 'write-contents-hooks)
     (push 'nndraft-generate-headers write-contents-hooks)
     article))
 

-- 
Shields.

Re: [PATCH] Recent change causes lots of files to get a X-Draft-From: header

[Lars Magne Ingebrigtsen]

Michael Shields <shields@msrl.com> writes:

> 	* nndraft.el (nndraft-request-associate-buffer): Make
> 	write-contents-hooks buffer-local before setting it.

Thanks for the patch; I've applied it to Oort Gnus v0.08 (i. e., CVS).

(In Emacs, that variable is buffer-local already.  Oh, and I changed
it to use `make-local-variable' instead.

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen

Re: [PATCH] Recent change causes lots of files to get a X-Draft-From: header

[Michael Shields]

In article <m31y3whr6u.fsf@quimbies.gnus.org>,
Lars Magne Ingebrigtsen <larsi@gnus.org> wrote:
> Oh, and I changed
> it to use `make-local-variable' instead.

You're right; that was my error.
-- 
Shields.