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> |
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) |