[gnus git] branch master updated: m0-5-290-g21564c0 =1= gnus-msg.el: Add nnir-article-* autoloads. nnir.el: Improve mark updating in original groups.

       via  21564c0b817243faad7355431669a7495bafc7de (commit)
      from  d1469277125cd1d47a1605634b6356bad0fa6616 (commit)


- Log -----------------------------------------------------------------
commit 21564c0b817243faad7355431669a7495bafc7de
Author: Andrew Cohen <[email protected]>
Date:   Mon Apr 1 10:30:50 2013 -0400

    gnus-msg.el: Add nnir-article-* autoloads.
    nnir.el: Improve mark updating in original groups.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5ef2dad..8ebf7a7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2013-04-01  Andrew Cohen  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* nnir.el (nnir-method-default-engines): And another typo.
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 067465b..5d4b3ac 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/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/nnir.el b/lisp/nnir.el
index 10472de..cbe64ba 100644
--- a/lisp/nnir.el
+++ b/lisp/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

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog   |    8 ++++++++
 lisp/gnus-msg.el |    4 ++++
 lisp/nnir.el     |    5 +++++
 3 files changed, 17 insertions(+), 0 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project