/[emacs]/emacs/lisp/gnus/nndraft.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nndraft.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by miles, Mon May 30 17:13:57 2005 UTC revision 1.7 by miles, Wed Jun 1 05:07:06 2005 UTC
# Line 1  Line 1 
1  ;;; nndraft.el --- draft article access for Gnus  ;;; nndraft.el --- draft article access for Gnus
2    
3  ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2003  ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2005
4  ;;        Free Software Foundation, Inc.  ;;        Free Software Foundation, Inc.
5    
6  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
# Line 174  Line 174 
174      (setq buffer-file-name (expand-file-name file)      (setq buffer-file-name (expand-file-name file)
175            buffer-auto-save-file-name (make-auto-save-file-name))            buffer-auto-save-file-name (make-auto-save-file-name))
176      (clear-visited-file-modtime)      (clear-visited-file-modtime)
177      (make-local-variable 'write-contents-hooks)      (let ((hook (if (boundp 'write-contents-functions)
178      (push 'nndraft-generate-headers write-contents-hooks)                      'write-contents-functions
179                      'write-contents-hooks)))
180          (gnus-make-local-hook hook)
181          (add-hook hook 'nndraft-generate-headers nil t))
182      article))      article))
183    
184  (deffoo nndraft-request-group (group &optional server dont-check)  (deffoo nndraft-request-group (group &optional server dont-check)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26