X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Fnndraft.el;h=57397fbce5cb3e835b71ed7e7927d21d7f020596;hb=789aafcd5f47dc22596fc6cc808638ad527c3a8f;hp=5f2175148714f1d01fe94b1a431659e6dc349942;hpb=3d6243dbdead481b3be9282c5c2a436d441b56f2;p=elisp%2Fgnus.git- diff --git a/lisp/nndraft.el b/lisp/nndraft.el index 5f21751..57397fb 100644 --- a/lisp/nndraft.el +++ b/lisp/nndraft.el @@ -1,5 +1,6 @@ ;;; nndraft.el --- draft article access for Gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 + +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen @@ -108,7 +109,12 @@ (newest (if (file-newer-than-file-p file auto) file auto)) (nntp-server-buffer (or buffer nntp-server-buffer))) (when (and (file-exists-p newest) - (let ((nnmail-file-coding-system nnheader-text-coding-system)) + (let ((nnmail-file-coding-system + (if (file-newer-than-file-p file auto) + (if (equal group "drafts") + message-draft-coding-system + nnheader-text-coding-system) + nnheader-auto-save-coding-system))) (nnmail-find-file newest))) (save-excursion (set-buffer nntp-server-buffer) @@ -126,7 +132,9 @@ (when (nndraft-request-article article group server (current-buffer)) (message-remove-header "xref") (message-remove-header "lines") - (message-remove-header "date") + ;; Articles in nndraft:queue are considered as sent messages. The + ;; Date field should be the time when they are sent. + ;;(message-remove-header "date") t)) (deffoo nndraft-request-update-info (group info &optional server) @@ -174,8 +182,7 @@ (dolist (n dir) (unless (file-exists-p (setq file (expand-file-name (int-to-string n) pathname))) - (rename-file (let ((buffer-file-name file)) - (make-auto-save-file-name)) file))))) + (rename-file (nndraft-auto-save-file-name file) file))))) (nnoo-parent-function 'nndraft 'nnmh-request-group (list group server dont-check)))