GNU bug report logs - #36735
gnus-topic-mode clobbers gnus-group-change-level-function

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 36735 in the body.
You can then email your comments to 36735 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: dick <priapushk <at> gmail.com>
To: bug-gnu-emacs <at> gnu.org
Subject: 25.1; gnus-topic-mode clobbers gnus-group-change-level-function
Date: Fri, 19 Jul 2019 21:33:12 -0400

emacs -Q --batch -l gnus --eval "(setq gnus-init-inhibit t)" --eval "(setq gnus-current-select-method t)" --eval "(setq gnus-batch-mode t)" --eval "(custom-set-variables '(gnus-startup-file \"/dev/null\") '(gnus-read-newsrc-file nil) '(gnus-select-method (quote (nnnil))) '(gnus-group-change-level-function (lambda (&rest args) (setq foo t))) '(gnus-always-read-dribble-file t) '(gnus-use-dribble-file nil))" --eval "(gnus nil t nil)" --eval "(setq foo nil)" --eval "(gnus-topic-mode)" --eval "(funcall gnus-group-change-level-function \"dummy\" 3 9)" --eval "(cl-assert foo)"



In GNU Emacs 25.1.1 (x86_64-pc-linux-gnu, GTK+ Version 3.18.9)
 of 2016-12-20 built on lgw01-21
Windowing system distributor 'The X.Org Foundation', version 11.0.11804000
System Description:	Ubuntu 16.04.5 LTS

Configured using:
 'configure --build x86_64-linux-gnu --prefix=/usr --sharedstatedir=/var/lib
 --libexecdir=/usr/lib --localstatedir=/var/lib --infodir=/usr/share/info
 --mandir=/usr/share/man --with-pop=yes
 --enable-locallisppath=/etc/emacs25:/etc/emacs:/usr/local/share/emacs/25.1/site-lisp:/usr/local/share/emacs/site-lisp:/usr/share/emacs/25.1/site-lisp:/usr/share/emacs/site-lisp
 --build x86_64-linux-gnu --prefix=/usr --sharedstatedir=/var/lib
 --libexecdir=/usr/lib --localstatedir=/var/lib --infodir=/usr/share/info
 --mandir=/usr/share/man --with-pop=yes
 --enable-locallisppath=/etc/emacs25:/etc/emacs:/usr/local/share/emacs/25.1/site-lisp:/usr/local/share/emacs/site-lisp:/usr/share/emacs/25.1/site-lisp:/usr/share/emacs/site-lisp
 --with-x=yes --with-x-toolkit=gtk3 --with-toolkit-scroll-bars
 --with-xwidgets=yes 'CFLAGS=-g -O2 -fstack-protector-strong -Wformat
 -Werror=format-security -Wall' 'CPPFLAGS=-Wdate-time -D_FORTIFY_SOURCE=2'
 'LDFLAGS=-Wl,-Bsymbolic-functions -Wl,-z,relro''

Configured features:
XPM JPEG TIFF GIF PNG RSVG IMAGEMAGICK SOUND GPM DBUS GCONF GSETTINGS NOTIFY
ACL LIBSELINUX GNUTLS LIBXML2 FREETYPE M17N_FLT LIBOTF XFT ZLIB
TOOLKIT_SCROLL_BARS GTK3 X11 XWIDGETS

Important settings:
  value of $LANG: en_US.UTF-8
  value of $XMODIFIERS: 
  locale-coding-system: utf-8-unix

Major mode: Emacs-Lisp

Minor modes in effect:
  pyvenv-mode: t
  paredit-mode: t
  recentf-mode: t
  global-company-mode: t
  company-mode: t
  show-paren-mode: t
  global-magit-file-mode: t
  diff-auto-refine-mode: t
  magit-auto-revert-mode: t
  global-auto-revert-mode: t
  global-git-commit-mode: t
  async-bytecomp-package-mode: t
  shell-dirtrack-mode: t
  flx-ido-mode: t
  ido-everywhere: t
  projectile-mode: t
  override-global-mode: t
  global-hl-line-mode: t
  winner-mode: t
  tooltip-mode: t
  global-eldoc-mode: t
  mouse-wheel-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent messages:
20190719T202359.625> No more newsgroups
Mark set
Mark saved where search started
my-msmtp-get
Mark set
Saving file /home/dick/.gnus...
Wrote /home/dick/.gnus
((lambda nil "From address keyed off msmtp config if gnus-newsgroup-name in effect." (let* (... ... ...) (if ... nil ...))) (lambda nil "From address keyed off msmtp config if gnus-newsgroup-name in effect." (let* (... ... ...) (message "what %s %s" ... apropos-from) (if ... nil ...))))
(No changes need to be saved)
C-x C-g is undefined

Load-path shadows:
/home/dick/ESS/lisp/ess-custom hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-custom
/home/dick/ESS/lisp/essd-els hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/essd-els
/home/dick/ESS/lisp/ess-jags-d hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-jags-d
/home/dick/ESS/lisp/ess-tracebug hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-tracebug
/home/dick/ESS/lisp/ess-help hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-help
/home/dick/ESS/lisp/ess-mode hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-mode
/home/dick/ESS/lisp/ess-r-completion hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-r-completion
/home/dick/ESS/lisp/ess-r-xref hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-r-xref
/home/dick/ESS/lisp/ess-bugs-d hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-bugs-d
/home/dick/ESS/lisp/ess-r-flymake hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-r-flymake
/home/dick/ESS/lisp/ess-rdired hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-rdired
/home/dick/ESS/lisp/ess-sas-a hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-sas-a
/home/dick/ESS/lisp/ess-inf hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-inf
/home/dick/ESS/lisp/ess-rutils hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-rutils
/home/dick/ESS/lisp/ess-utils hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-utils
/home/dick/ESS/lisp/ess-sas-d hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-sas-d
/home/dick/ESS/lisp/ess-sas-l hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-sas-l
/home/dick/ESS/lisp/ess-gretl hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-gretl
/home/dick/ESS/lisp/ess-site hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-site
/home/dick/ESS/lisp/ess-rd hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-rd
/home/dick/ESS/lisp/ess-s-lang hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-s-lang
/home/dick/ESS/lisp/ess-roxy hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-roxy
/home/dick/ESS/lisp/ess hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess
/home/dick/ESS/lisp/ess-trns hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-trns
/home/dick/ESS/lisp/ess-sp6-d hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-sp6-d
/home/dick/ESS/lisp/mouseme hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/mouseme
/home/dick/ESS/lisp/ess-mouse hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-mouse
/home/dick/ESS/lisp/ess-autoloads hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-autoloads
/home/dick/ESS/lisp/ess-r-mode hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-r-mode
/home/dick/ESS/lisp/julia-mode hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/julia-mode
/home/dick/ESS/lisp/ess-julia hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-julia
/home/dick/ESS/lisp/ess-stata-lang hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-stata-lang
/home/dick/ESS/lisp/make-regexp hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/make-regexp
/home/dick/ESS/lisp/ess-r-syntax hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-r-syntax
/home/dick/ESS/lisp/ess-stata-mode hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-stata-mode
/home/dick/ESS/lisp/ess-r-package hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-r-package
/home/dick/ESS/lisp/ess-toolbar hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-toolbar
/home/dick/ESS/lisp/ess-bugs-l hides /home/dick/.emacs.d/elpa/ess-18.10.2snapshot/ess-bugs-l
/home/dick/ESS/lisp/julia-mode hides /home/dick/.emacs.d/elpa/julia-mode-20190407.2119/julia-mode
/home/dick/ESS/lisp/julia-latexsubs hides /home/dick/.emacs.d/elpa/julia-mode-20190407.2119/julia-latexsubs
/usr/share/emacs/25.1/site-lisp/cmake-data/cmake-mode hides /usr/share/emacs/site-lisp/cmake-mode
/usr/share/emacs/25.1/site-lisp/debian-startup hides /usr/share/emacs/site-lisp/debian-startup
/usr/share/emacs/25.1/site-lisp/dictionaries-common/debian-ispell hides /usr/share/emacs/site-lisp/dictionaries-common/debian-ispell
/usr/share/emacs/25.1/site-lisp/global/gtags hides /usr/share/emacs/site-lisp/global/gtags
/usr/share/emacs/site-lisp/dictionaries-common/flyspell hides /usr/share/emacs/25.1/lisp/textmodes/flyspell
/usr/share/emacs/site-lisp/rst hides /usr/share/emacs/25.1/lisp/textmodes/rst
/usr/share/emacs/site-lisp/dictionaries-common/ispell hides /usr/share/emacs/25.1/lisp/textmodes/ispell
/home/dick/.emacs.d/elpa/scala-mode-20170802.432/ob-scala hides /usr/share/emacs/25.1/lisp/org/ob-scala
/home/dick/.emacs.d/elpa/let-alist-1.0.5/let-alist hides /usr/share/emacs/25.1/lisp/emacs-lisp/let-alist

Features:
(pp shadow emacsbug sendmail gnus-html url-cache shr-color misearch
multi-isearch nnfolder canlock flyspell ispell footnote qp sort smiley shr dom
browse-url mm-archive mail-extr gnus-async gnus-dup gnus-ml disp-table
gnus-topic utf-7 network-stream nsm starttls nnreddit virtualenvwrapper gud
mm-url json-rpc es-mode url-handlers js sgml-mode cc-mode cc-fonts cc-guess
cc-menus cc-cmds cc-styles cc-align cc-engine cc-vars cc-defs yasnippet elpy
find-file-in-project ivy delsel colir color ivy-overlay ffap windmove
elpy-shell pyvenv esh-var esh-io esh-cmd esh-opt esh-ext esh-proc esh-arg
esh-groups eshell esh-module esh-mode esh-util elpy-profile elpy-django s
elpy-refactor files-x python tramp-sh tramp tramp-compat tramp-loaddefs
trampver ucs-normalize gnus-bcklg gnus-cite nnnil nnir gnus-demon nnmairix
nnml gnus-delay gnus-draft gnus-agent gnus-srvr gnus-score score-mode
nnvirtual nntp gnus-cache gnus-msg gnus-art mm-uu mml2015 mm-view mml-smime
smime dig gnus-sum nndraft nnmh gnus-group gnus-undo use-package
use-package-delight use-package-diminish gnus-start gnus-cloud nnimap nnmail
mail-source utf7 netrc nnoo parse-time gnus-spec gnus-int gnus-range gnus-win
paredit-ext paredit company-oddmuse company-keywords company-etags
company-gtags company-dabbrev-code company-dabbrev company-files company-capf
company-cmake company-xcode company-semantic company-eclim company-template
company-css company-nxml company-bbdb company-c-headers sx recentf tree-widget
key-combo company haskell-interactive-mode haskell-presentation-mode
haskell-process haskell-session haskell-compile haskell-mode haskell-cabal
haskell-utils haskell-font-lock haskell-indentation haskell-string
haskell-sort-imports haskell-lexeme haskell-align-imports haskell-compat
haskell-complete-module haskell-ghc-support flymake etags xref project dabbrev
haskell-customize hydra lv paren magit-submodule magit-obsolete magit-popup
magit-blame magit-stash magit-reflog magit-bisect magit-push magit-pull
magit-fetch magit-clone magit-remote magit-commit magit-sequence magit-notes
magit-worktree magit-tag magit-merge magit-branch magit-reset magit-files
magit-refs magit-status magit magit-repos magit-apply magit-wip magit-log
which-func imenu magit-diff smerge-mode diff-mode magit-core magit-autorevert
autorevert filenotify magit-margin magit-transient magit-process magit-mode
transient git-commit magit-git magit-section magit-utils crm log-edit message
dired rfc822 mml mml-sec mm-decode mm-bodies mm-encode mail-parse rfc2231
rfc2047 rfc2045 ietf-drums mailabbrev gmm-utils mailheader pcvs-util add-log
with-editor async-bytecomp async shell server dash flx-ido flx ido
solarized-theme solarized-definitions projectile ibuf-ext ibuffer thingatpt
grep compile gnus gnus-ems nnheader cus-edit cus-start cus-load wid-edit
use-package-bind-key bind-key org-gcal org-archive org-element org org-macro
org-footnote org-pcomplete pcomplete org-list org-faces org-entities noutline
outline easy-mmode org-version ob-emacs-lisp ob ob-tangle ob-ref ob-lob
ob-table ob-exp org-src ob-keys ob-comint comint ansi-color ob-core ob-eval
org-compat org-macs org-loaddefs format-spec find-func cal-menu calendar
cal-loaddefs request-deferred deferred subr-x request mail-utils json map
alert log4e notifications dbus gntp use-package-ensure twittering-mode epa
derived epg tls gnutls url url-proxy url-privacy url-expand url-methods
url-history url-cookie url-domsuf url-util url-parse auth-source eieio
eieio-core gnus-util mm-util help-fns mail-prsvr password-cache url-vars
mailcap advice xml cl cl-macs cl-seq use-package-core hl-line winner ring
edmacro kmacro rx json-reformat-autoloads json-snatcher-autoloads finder-inf
sml-mode-autoloads tornado-template-mode-autoloads info package epg-config seq
byte-opt gv bytecomp byte-compile cl-extra help-mode easymenu cconv
cl-loaddefs pcase cl-lib time-date mule-util tooltip eldoc electric uniquify
ediff-hook vc-hooks lisp-float-type mwheel x-win term/common-win x-dnd
tool-bar dnd fontset image regexp-opt fringe tabulated-list newcomment
elisp-mode lisp-mode prog-mode register page menu-bar rfn-eshadow timer select
scroll-bar mouse jit-lock font-lock syntax facemenu font-core frame cl-generic
cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean
japanese eucjp-ms cp51932 hebrew greek romanian slovak czech european ethiopic
indian cyrillic chinese charscript case-table epa-hook jka-cmpr-hook help
simple abbrev minibuffer cl-preloaded nadvice loaddefs button faces cus-face
macroexp files text-properties overlay sha1 md5 base64 format env code-pages
mule custom widget hashtable-print-readable backquote dbusbind inotify
dynamic-setting system-font-setting font-render-setting xwidget-internal
move-toolbar gtk x-toolkit x multi-tty make-network-process emacs)

Memory information:
((conses 16 797569 77634)
 (symbols 48 62898 3)
 (miscs 40 1859 3099)
 (strings 32 172881 24031)
 (string-bytes 1 5778327)
 (vectors 16 84544)
 (vector-slots 8 1471157 31429)
 (floats 8 3264 963)
 (intervals 56 3521 488)
 (buffers 976 112)
 (heap 1024 84493 17848))

Message #18 received at 36735 <at> debbugs.gnu.org (full text, mbox):

From: Eric Abrahamsen <eric <at> ericabrahamsen.net>
To: 36735 <at> debbugs.gnu.org 
Subject: Re: bug#36735: 25.1; gnus-topic-mode clobbers
 gnus-group-change-level-function
Date: Fri, 26 Jul 2019 14:36:05 -0700

merge 36735 36736 36737
quit

dick <priapushk <at> gmail.com> writes:

> emacs -Q --batch -l gnus --eval "(setq gnus-init-inhibit t)" --eval "(setq gnus-current-select-method t)" --eval "(setq gnus-batch-mode t)" --eval "(custom-set-variables '(gnus-startup-file \"/dev/null\") '(gnus-read-newsrc-file nil) '(gnus-select-method (quote (nnnil))) '(gnus-group-change-level-function (lambda (&rest args) (setq foo t))) '(gnus-always-read-dribble-file t) '(gnus-use-dribble-file nil))" --eval "(gnus nil t nil)" --eval "(setq foo nil)" --eval "(gnus-topic-mode)" --eval "(funcall gnus-group-change-level-function \"dummy\" 3 9)" --eval "(cl-assert foo)"

You'll probably need to provide a little more background here before
anyone can help you. I understand that you want Gnus' topic mode to
behave differently than it does, but the whole thing has its own logic,
and changing one bit of that general logic to serve a particular
use-case that you haven't really explained isn't going to motivate
anyone to apply your patch. Not to mention that the patch stands a good
chance of breaking other people's customizations. I previously suggested
you use the gnus-topic-mode-hook to achieve what you want -- did you try
that?

Message #21 received at 36735 <at> debbugs.gnu.org (full text, mbox):

From: Lars Ingebrigtsen <larsi <at> gnus.org>
To: dick <priapushk <at> gmail.com>
Cc: 36735 <at> debbugs.gnu.org, 36737 <at> debbugs.gnu.org
Subject: Re: bug#36737: patch
Date: Tue, 24 Sep 2019 00:47:28 +0200

dick <priapushk <at> gmail.com> writes:

> Gnus backends may add additional hooks via
> `gnus-group-change-level-functions' but should not modify
> `gnus-group-change-level-function'.

I'm not sure what this is trying to fix?  What's the problem here?

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.