diff options
| -rw-r--r-- | lisp/gnus/nnir.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el index 823bc2b423e..f1e31a0cd10 100644 --- a/lisp/gnus/nnir.el +++ b/lisp/gnus/nnir.el | |||
| @@ -662,7 +662,7 @@ A non-nil `specs' arg must be an alist with `nnir-query-spec' and | |||
| 662 | (let ((backend (car (gnus-server-to-method server)))) | 662 | (let ((backend (car (gnus-server-to-method server)))) |
| 663 | (if backend | 663 | (if backend |
| 664 | (nnoo-change-server backend server definitions) | 664 | (nnoo-change-server backend server definitions) |
| 665 | (add-hook 'gnus-summary-prepared-hook 'nnir-mode) | 665 | (add-hook 'gnus-summary-generate-hook 'nnir-mode) |
| 666 | (nnoo-change-server 'nnir server definitions)))) | 666 | (nnoo-change-server 'nnir server definitions)))) |
| 667 | 667 | ||
| 668 | (deffoo nnir-request-group (group &optional server dont-check _info) | 668 | (deffoo nnir-request-group (group &optional server dont-check _info) |
| @@ -1849,8 +1849,11 @@ is also searched." | |||
| 1849 | 1849 | ||
| 1850 | (defun nnir-mode () | 1850 | (defun nnir-mode () |
| 1851 | (when (eq (car (gnus-find-method-for-group gnus-newsgroup-name)) 'nnir) | 1851 | (when (eq (car (gnus-find-method-for-group gnus-newsgroup-name)) 'nnir) |
| 1852 | (setq gnus-summary-line-format | 1852 | (when (and nnir-summary-line-format |
| 1853 | (or nnir-summary-line-format gnus-summary-line-format)) | 1853 | (not (string= nnir-summary-line-format |
| 1854 | gnus-summary-line-format))) | ||
| 1855 | (setq gnus-summary-line-format nnir-summary-line-format) | ||
| 1856 | (gnus-update-format-specifications nil 'summary)) | ||
| 1854 | (when (bound-and-true-p gnus-registry-enabled) | 1857 | (when (bound-and-true-p gnus-registry-enabled) |
| 1855 | (remove-hook 'gnus-summary-article-delete-hook 'gnus-registry-action t) | 1858 | (remove-hook 'gnus-summary-article-delete-hook 'gnus-registry-action t) |
| 1856 | (remove-hook 'gnus-summary-article-move-hook 'gnus-registry-action t) | 1859 | (remove-hook 'gnus-summary-article-move-hook 'gnus-registry-action t) |