Index: emacs/lisp/gnus/nndraft.el
diff -c emacs/lisp/gnus/nndraft.el:1.6 emacs/lisp/gnus/nndraft.el:1.7
*** emacs/lisp/gnus/nndraft.el:1.6 Mon May 30 17:13:57 2005
--- emacs/lisp/gnus/nndraft.el Wed Jun 1 05:07:06 2005
***************
*** 1,6 ****
;;; nndraft.el --- draft article access for Gnus
! ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2003
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <[EMAIL PROTECTED]>
--- 1,6 ----
;;; nndraft.el --- draft article access for Gnus
! ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2005
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <[EMAIL PROTECTED]>
***************
*** 174,181 ****
(setq buffer-file-name (expand-file-name file)
buffer-auto-save-file-name (make-auto-save-file-name))
(clear-visited-file-modtime)
! (make-local-variable 'write-contents-hooks)
! (push 'nndraft-generate-headers write-contents-hooks)
article))
(deffoo nndraft-request-group (group &optional server dont-check)
--- 174,184 ----
(setq buffer-file-name (expand-file-name file)
buffer-auto-save-file-name (make-auto-save-file-name))
(clear-visited-file-modtime)
! (let ((hook (if (boundp 'write-contents-functions)
! 'write-contents-functions
! 'write-contents-hooks)))
! (gnus-make-local-hook hook)
! (add-hook hook 'nndraft-generate-headers nil t))
article))
(deffoo nndraft-request-group (group &optional server dont-check)
_______________________________________________
Emacs-diffs mailing list
Emacs-diffs@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-diffs
