[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/nndraft.el,v
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/nndraft.el,v |
Date: |
Sun, 28 Oct 2007 09:19:05 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Miles Bader <miles> 07/10/28 09:18:40
Index: lisp/gnus/nndraft.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/nndraft.el,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -b -r1.12 -r1.13
--- lisp/gnus/nndraft.el 26 Jul 2007 05:27:02 -0000 1.12
+++ lisp/gnus/nndraft.el 28 Oct 2007 09:18:29 -0000 1.13
@@ -42,6 +42,11 @@
"Where nndraft will store its files."
nnmh-directory)
+(defvar nndraft-required-headers '(Date)
+ "*Headers to be generated when saving a draft message.
+The headers in this variable and the ones in `message-required-headers'
+are generated if and only if they are also in `message-draft-headers'.")
+
(defvoo nndraft-current-group "" nil nnmh-current-group)
@@ -156,7 +161,7 @@
(save-excursion
(message-generate-headers
(message-headers-to-generate
- message-required-headers message-draft-headers nil))))
+ nndraft-required-headers message-draft-headers nil))))
(deffoo nndraft-request-associate-buffer (group)
"Associate the current buffer with some article in the draft group."
@@ -199,8 +204,8 @@
'nnmh-request-group
(list group server dont-check)))
-(deffoo nndraft-request-move-article (article group server
- accept-form &optional last)
+(deffoo nndraft-request-move-article (article group server accept-form
+ &optional last move-is-internal)
(nndraft-possibly-change-group group)
(let ((buf (get-buffer-create " *nndraft move*"))
result)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/nndraft.el,v,
Miles Bader <=