[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r112209: gnus-msg.el: Add nnir-articl
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r112209: gnus-msg.el: Add nnir-article-* autoloads; |
Date: |
Mon, 01 Apr 2013 22:54:32 +0000 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 112209
author: Andrew Cohen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2013-04-01 22:54:32 +0000
message:
gnus-msg.el: Add nnir-article-* autoloads;
nnir.el: Improve mark updating in original groups
modified:
lisp/gnus/ChangeLog
lisp/gnus/gnus-msg.el
lisp/gnus/nnir.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2013-04-01 07:58:04 +0000
+++ b/lisp/gnus/ChangeLog 2013-04-01 22:54:32 +0000
@@ -1,3 +1,11 @@
+2013-04-01 Andrew Cohen <address@hidden>
+
+ * 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 <address@hidden>
* nnir.el (nnir-method-default-engines): And another typo.
=== modified file 'lisp/gnus/gnus-msg.el'
--- a/lisp/gnus/gnus-msg.el 2013-03-27 22:12:36 +0000
+++ b/lisp/gnus/gnus-msg.el 2013-04-01 22:54:32 +0000
@@ -415,6 +415,10 @@
(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"))
=== modified file 'lisp/gnus/nnir.el'
--- a/lisp/gnus/nnir.el 2013-03-31 12:48:07 +0000
+++ b/lisp/gnus/nnir.el 2013-04-01 22:54:32 +0000
@@ -841,6 +841,11 @@
(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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r112209: gnus-msg.el: Add nnir-article-* autoloads;,
Katsumi Yamaoka <=