[Emacs-diffs] Changes to emacs/lisp/gnus/nndraft.el

[Miles Bader]

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 <address@hidden>
--- 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 <address@hidden>
***************
*** 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)