diff options
| author | Andrew Cohen <cohen@bu.edu> | 2013-04-01 22:54:32 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2013-04-01 22:54:32 +0000 |
| commit | 54451ffafafb7f286753fb09871eb84d70bf70ae (patch) | |
| tree | c89c49def7154647024e70b3f8f703189779556f /lisp | |
| parent | 15c579f08c3e298b1ab102a131456a0be7d7603f (diff) | |
| download | emacs-54451ffafafb7f286753fb09871eb84d70bf70ae.tar.gz | |
gnus-msg.el: Add nnir-article-* autoloads;
nnir.el: Improve mark updating in original groups
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/gnus/gnus-msg.el | 4 | ||||
| -rw-r--r-- | lisp/gnus/nnir.el | 5 |
3 files changed, 17 insertions, 0 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 9bfcaad94f3..e89fd874069 100644 --- 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 067465b0e6f..5d4b3ac3ec1 100644 --- 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 e53bdd8f831..e7d004a8b2c 100644 --- 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 |