gnus-msg.el: Add nnir-article-* autoloads;

nnir.el: Improve mark updating in original groups

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 9bfcaad94f347ebf30d342e18526a30f374c2aa4..e89fd8740697a350ed4a01483bc543dc3130e419 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,11 @@
+2013-04-01  Andrew Cohen  <cohen@bu.edu>
+
+       * nnir.el (nnir-request-update-mark): Improve mark updating in original
+       group.
+
+       * gnus-msg.el (nnir-article-number, nnir-article-group): Autoload to
+       fix compilation.
+
 2013-03-31  Andrew Cohen  <cohen@bu.edu>
 
        * nnir.el (nnir-method-default-engines): And another typo.

diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index 067465b0e6f553c78a8ea7a36c092c128137bd3a..5d4b3ac3ec1dcd294634cec1e72969f25e08c9c1 100644 (file)
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -415,6 +415,10 @@ Thank you for your help in stamping out bugs.
      (gnus-inews-make-draft-meta-information
       ,(gnus-group-decoded-name gnus-newsgroup-name) ',articles)))
 
+(autoload 'nnir-article-number "nnir" nil nil 'macro)
+(autoload 'nnir-article-group "nnir" nil nil 'marcro)
+
+
 (defvar gnus-article-reply nil)
 (defmacro gnus-setup-message (config &rest forms)
   (let ((winconf (make-symbol "gnus-setup-message-winconf"))

diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el
index e53bdd8f83122d94ffe9cb847c0764b37a8f499d..e7d004a8b2c31b88de4aaa40d29843c26b4e9e8f 100644 (file)
--- a/lisp/gnus/nnir.el
+++ b/lisp/gnus/nnir.el
@@ -841,6 +841,11 @@ skips all prompting."
     (gnus-summary-read-group-1 backend-article-group t t  nil
                                nil (list backend-article-number))))
 
+(deffoo nnir-request-update-mark (group article mark)
+  (let ((artgroup (nnir-article-group article))
+       (artnumber (nnir-article-number article)))
+    (gnus-request-update-mark artgroup artnumber mark)))
+
 
 (deffoo nnir-request-update-info (group info &optional server)
   (let ((articles-by-group