aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEric Abrahamsen2018-11-28 09:31:40 -0800
committerEric Abrahamsen2018-11-28 09:31:40 -0800
commite8d7e3a59a05917b94b6803c123be97ccd693f0d (patch)
tree2dba6045d4e28c8cc189c71b61d39981213cf6ff
parent415ef4a2b02dac17bf1bb962154633e671e561dd (diff)
downloademacs-e8d7e3a59a05917b94b6803c123be97ccd693f0d.tar.gz
emacs-e8d7e3a59a05917b94b6803c123be97ccd693f0d.zip
Further small tweaks to Gnus modes cleanup
* lisp/gnus/gnus-sum.el: Remove explicit definition of `gnus-summary-mode-hook', this is now created automatically. * lisp/gnus/nnir.el (nnir-open-server): Attach `nnir-mode' to the `gnus-summary-prepared-hook', instead of `gnus-summary-mode-hook'. The latter no longer has access to the buffer-local value of `gnus-newsgroup-name', which `nnir-mode' needs.
-rw-r--r--lisp/gnus/gnus-sum.el7
-rw-r--r--lisp/gnus/nnir.el2
2 files changed, 1 insertions, 8 deletions
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 7be52717de9..4baf4bc8263 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -946,13 +946,6 @@ This variable is local to the summary buffers."
946 :type '(choice (const :tag "off" nil) 946 :type '(choice (const :tag "off" nil)
947 integer)) 947 integer))
948 948
949(defcustom gnus-summary-mode-hook nil
950 "A hook for Gnus summary mode.
951This hook is run before any variables are set in the summary buffer."
952 :options '(turn-on-gnus-mailing-list-mode gnus-pick-mode)
953 :group 'gnus-summary-various
954 :type 'hook)
955
956(defcustom gnus-summary-menu-hook nil 949(defcustom gnus-summary-menu-hook nil
957 "Hook run after the creation of the summary mode menu." 950 "Hook run after the creation of the summary mode menu."
958 :group 'gnus-summary-visual 951 :group 'gnus-summary-visual
diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el
index 084b154e8a1..62ac5048641 100644
--- a/lisp/gnus/nnir.el
+++ b/lisp/gnus/nnir.el
@@ -657,7 +657,7 @@ skips all prompting."
657 (let ((backend (car (gnus-server-to-method server)))) 657 (let ((backend (car (gnus-server-to-method server))))
658 (if backend 658 (if backend
659 (nnoo-change-server backend server definitions) 659 (nnoo-change-server backend server definitions)
660 (add-hook 'gnus-summary-mode-hook 'nnir-mode) 660 (add-hook 'gnus-summary-prepared-hook 'nnir-mode)
661 (nnoo-change-server 'nnir server definitions)))) 661 (nnoo-change-server 'nnir server definitions))))
662 662
663(deffoo nnir-request-group (group &optional server dont-check _info) 663(deffoo nnir-request-group (group &optional server dont-check _info)