bug#47758: 28.0.50; unexpected scrolling after message-kill-to-signature

bug#47758: 28.0.50; unexpected scrolling after message-kill-to-signature

[Jose A. Ortega Ruiz]

Since some days ago in recent builds of the master branch,
message-kill-to-signature (C-c C-z) has become a bit incovenient
because, after it deletes the required region (correctly), it recenters
the buffer so that point goes to the top (so that one only sees the
signature, and no the rest of the message above, as if one had invoked
recenter-top-bottom twice). 

It used to be the case that the buffer were not scrolled at all, which i
found much more convenient (typically, my cursor is in the middle of the
message, i C-c C-z, what's below disappears and i keep seeing the same
that was above it).  

Was this an intended change? If so, any way of recovering the previous
behaviour?  (I see a similar (new) behaviour when i delete a region
inside a polymode/poly-org block, but those packages are complicated and
messy enough to keep them aside, at least for now :)

Thanks!


In GNU Emacs 28.0.50 (build 11, x86_64-pc-linux-gnu, X toolkit, cairo version 1.16.0, Xaw scroll bars)
 of 2021-04-12 built on osgiliath
Repository revision: 3cb0229d75b1380d7a144e24ad24172497fb931c
Repository branch: master
Windowing system distributor 'The X.Org Foundation', version 11.0.12010000
System Description: Debian GNU/Linux 11 (bullseye)

Configured using:
 'configure --prefix=/usr/local/stow/emacs --with-imagemagick
 --with-x-toolkit=lucid'

Configured features:
CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GSETTINGS HARFBUZZ IMAGEMAGICK
JPEG JSON LCMS2 LIBOTF LIBSELINUX LIBXML2 M17N_FLT MODULES NOTIFY
INOTIFY PDUMPER PNG RSVG SECCOMP SOUND THREADS TIFF TOOLKIT_SCROLL_BARS
X11 XDBE XIM XPM LUCID ZLIB

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

Major mode: Group

Minor modes in effect:
  global-git-commit-mode: t
  magit-auto-revert-mode: t
  gnus-topic-mode: t
  circe-lagmon-mode: t
  mpdel-mode: t
  telega-patrons-mode: t
  telega-mode-line-mode: t
  sly-symbol-completion-mode: t
  show-paren-mode: t
  global-diff-hl-mode: t
  eshell-syntax-highlighting-global-mode: t
  gnus-undo-mode: t
  shell-dirtrack-mode: t
  winner-mode: t
  global-auto-revert-mode: t
  marginalia-mode: t
  vertico-mode: t
  global-company-mode: t
  persistent-scratch-autosave-mode: t
  global-so-long-mode: t
  ednc-mode: t
  repeat-mode: t
  savehist-mode: t
  recentf-mode: t
  save-place-mode: t
  override-global-mode: t
  tooltip-mode: t
  global-eldoc-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  buffer-read-only: t
  column-number-mode: t
  line-number-mode: t

Load-path shadows:
/home/jao/lib/elisp/org-static-blog/org-static-blog hides /home/jao/.emacs.d/elpa.28/org-static-blog-20210329.848/org-static-blog
/home/jao/.emacs.d/elpa.28/circe-20210323.1704/tracking hides /home/jao/.emacs.d/elpa.28/tracking-20201101.1045/tracking
/home/jao/.emacs.d/elpa.28/circe-20210323.1704/shorten hides /home/jao/.emacs.d/elpa.28/tracking-20201101.1045/shorten
/home/jao/etc/emacs/site/custom hides /usr/local/stow/emacs/share/emacs/28.0.50/lisp/custom

Features:
(shadow tabify man make-mode rng-cmpct rng-nxml rng-valid nxml-mode
nxml-outln nxml-rap mhtml-mode css-mode org-static-blog sgml-mode
facemenu gnus-fun pie org-cliplink org-cliplink-transport
org-cliplink-string sh-script executable magit-extras vc-mtn vc-hg
vc-bzr vc-src vc-sccs vc-svn vc-cvs vc-rcs bug-reference magit-bookmark
magit-submodule magit-obsolete 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 magit-diff
smerge-mode diff git-commit log-edit add-log magit-core magit-autorevert
magit-margin magit-transient magit-process with-editor magit-mode
magit-git magit-section magit-utils yaml-mode descr-text flow-fill
bbdb-pgp goto-chg geiser-mode geiser-xref geiser-compile geiser-debug
mailalias bbdb-message vterm vterm-module term/xterm xterm shortdoc
dired-aux gnus-dired bash-completion em-unix em-script em-prompt em-ls
em-hist em-pred em-glob em-cmpl em-basic em-banner hlint-refactor
flycheck haskell-doc inf-haskell haskell-decl-scan haskell
haskell-completions haskell-load haskell-commands highlight-uses-mode
haskell-modules haskell-sandbox haskell-navigate-imports haskell-repl
haskell-svg haskell-collapse hideshow haskell-debug
haskell-interactive-mode haskell-presentation-mode haskell-compile
haskell-hoogle haskell-process haskell-session haskell-mode
haskell-cabal haskell-utils haskell-font-lock haskell-indentation
haskell-string haskell-sort-imports haskell-lexeme haskell-align-imports
haskell-complete-module haskell-ghc-support flymake-proc flymake dabbrev
haskell-customize misearch multi-isearch switch-window
switch-window-mvborder switch-window-asciiart quail paredit
display-fill-column-indicator smartscan copyright qp gnus-cite
mm-archive mail-extr gnus-async gnus-bcklg gnus-dup gnus-ml gnus-topic
utf-7 bbdb-gnus gnus-recent gnus-delay gnus-draft gnus-agent gnus-srvr
gnus-score score-mode nnvirtual gnus-cache gnus-msg nndraft nnmh
gnus-demon nntp cal-move cal-iso org-auto-tangle async cdlatex texmathp
bibtex face-remap url-cache mule-util emojify tar-mode ht lui-track
circe-display-images circe-color-nicks circe-lagmon circe lui-irc-colors
irc lcs lui-format circe-compat slack slack-company slack-unread
slack-websocket slack-thread-event slack-room-event slack-star-event
slack-reaction-event slack-reply-event slack-typing slack-slash-commands
slack-message-event slack-event slack-dialog-edit-element-buffer
slack-dialog-buffer slack-dialog slack-stars-buffer
slack-search-result-buffer slack-thread-message-compose-buffer
slack-file-list-buffer slack-file-info-buffer slack-all-threads-buffer
slack-message-buffer slack-user-profile-buffer slack-pinned-items-buffer
slack-pinned-item slack-thread-message-buffer slack-room-info-buffer
slack-room-buffer slack-message-share-buffer slack-message-edit-buffer
slack-room-message-compose-buffer slack-message-compose-buffer
slack-message-attachment-preview-buffer slack-action slack-star
slack-reminder slack-search slack-message-reaction slack-message-editor
slack-message-sender slack-message-notification slack-buffer
slack-message-formatter slack-thread slack-im slack-channel slack-group
slack-conversations slack-create-message slack-attachment
slack-selectable slack-bot-message slack-user-message slack-file
slack-message slack-message-faces slack-unescape slack-block
slack-mrkdwn slack-usergroup slack-reaction slack-modeline slack-room
slack-counts slack-user slack-bot slack-dnd-status slack-emoji
slack-image slack-request slack-log request lui flyspell ispell
slack-team slack-team-ws slack-util websocket jao-ednc exwm-systemtray
xcb-systemtray xcb-xembed exwm-edit exwm exwm-input xcb-keysyms
exwm-manage exwm-floating xcb-cursor xcb-render exwm-layout
exwm-workspace exwm-core xcb-ewmh xcb-icccm xcb xcb-xkb xcb-xproto
xcb-types xcb-debug bigml bml-logs bml bml-misc bml-whizzml bml-clojure
bml-clj-tests bml-python bml-skels bml-utils whizzml-skeletons skeleton
whizzml-mode sieve sieve-mode sieve-manage sasl sasl-anonymous
sasl-login sasl-plain jao-emms-random-album mpdel mpdel-browser
libmpdel-directory mpdel-playlist mpdel-tablist mpdel-song mpdel-core
libmpdel time-stamp navigel tablist tablist-filter semantic/wisent/comp
semantic/wisent semantic/wisent/wisent semantic/util-modes semantic/util
semantic semantic/tag semantic/lex semantic/fw mode-local cedet
consult-spotify espotify jao-mpris jao-emms-lyrics jao-lyrics
network-stream jao-emms-info-track jao-emms emms-librefm-stream
emms-librefm-scrobbler emms-playlist-limit emms-volume
emms-volume-mixerctl emms-volume-pulse emms-volume-amixer emms-i18n
emms-history emms-score emms-stream-info emms-metaplaylist-mode
emms-bookmarks emms-cue emms-mode-line-icon emms-browser sort
emms-playlist-sort emms-last-played emms-player-xine emms-player-mpd
emms-playing-time emms-lyrics emms-url emms-streams emms-show-all
emms-tag-editor emms-mark emms-mode-line emms-cache emms-info-exiftool
emms-info-tinytag emms-info-metaflac emms-info-opusinfo
emms-info-ogginfo emms-info-mp3info emms-info emms-later-do
emms-playlist-mode emms-player-vlc emms-player-mpv emms-player-mplayer
emms-player-simple emms-source-playlist emms-source-file locate
emms-setup emms emms-compat telega-obsolete telega telega-tdlib-events
telega-webpage visual-fill-column telega-root telega-info telega-chat
telega-modes telega-company telega-user telega-notifications telega-voip
telega-msg telega-tme telega-sticker telega-i18n telega-vvnote bindat
telega-ffplay telega-media telega-sort telega-filter telega-ins
telega-folders telega-inline telega-tdlib telega-util
rainbow-identifiers telega-server telega-core cursor-sensor
telega-customize emacsbug jao-proton-utils enwc enwc-backend bluetooth
proof-general virtualenvwrapper gud ediprolog sly-quicklisp sly-fancy
sly-tramp sly-indentation sly-cl-indent sly-stickers pulse hi-lock
sly-trace-dialog sly-fontifying-fu sly-package-fu sly-scratch
sly-fancy-trace sly-fancy-inspector sly-mrepl sly-autodoc sly-parse sly
sly-completion sly-buttons sly-messages sly-common apropos arc-mode
archive-mode hyperspec geiser-gambit geiser-chez geiser-guile geiser-mit
geiser-repl geiser-image geiser-company geiser-doc geiser-menu
geiser-autodoc info-look geiser-edit geiser-completion geiser-eval
geiser-connection tq geiser-syntax scheme geiser-impl help-fns
radix-tree geiser-log geiser-popup view geiser-custom geiser-base geiser
sesman clojure-mode exunit f idris-mode idris-commands idris-hole-list
idris-ipkg-mode idris-tree-info idris-warnings-tree idris-info
idris-repl idris-highlight-input idris-prover inferior-idris
idris-warnings idris-log idris-events idris-simple-indent idris-syntax
idris-common-utils idris-settings idris-keys idris-core idris-compat
prop-menu package-lint finder lisp-mnt edit-list debbugs soap-client
url-http url-auth url-gw warnings rng-xsd xsd-regexp json-mode
json-reformat json-snatcher js cc-mode cc-fonts cc-guess cc-menus
cc-cmds cc-styles cc-align cc-engine cc-vars cc-defs paren
jao-vterm-repl jao-compilation gitconfig-mode conf-mode git-link
git-timemachine transient diff-hl log-view pcvs-util vc-dir ewoc vc
eshell-autojump em-dirs esh-var eshell-up git-ps1-mode em-term term
disp-table ehelp eshell-syntax-highlighting em-alias saveplace-pdf-view
ol-eww jao-eww-session eww-lnum eww xdg url-queue mm-url nsm dns elpher
bbdb-mua bbdb-anniv bbdb-com bbdb bbdb-site timezone jao-frm smtpmail
sendmail randomsig gnutls markdown-toc markdown-mode htmlize
jao-org-links jao-maildir jao-doc-view let-alist doc-view image-mode
exif ol-info ol-bbdb ol-eshell esh-mode eshell esh-cmd esh-ext esh-opt
esh-proc esh-io esh-arg esh-module esh-groups esh-util ol-gnus nnselect
gnus-search eieio-opt speedbar ezimage dframe gnus-icalendar org-capture
gnus-art mm-uu mml2015 gnus-sum shr kinsoku svg dom gnus-group gnus-undo
gnus-start gnus-dbus gnus-cloud nnimap nnmail mail-source utf7 netrc
nnoo gnus-spec gnus-int gnus-range gnus-win org-agenda org-refile gnus
nnheader jao-org-notes ob-shell ob-scheme ob-python python tramp-sh
tramp tramp-loaddefs trampver tramp-integration files-x tramp-compat
shell parse-time iso8601 ls-lisp ob-org ob-ocaml ob-makefile ob-haskell
ob-gnuplot ob-clojure ob-calc calc-store calc-trail calc-ext calc
calc-loaddefs calc-macs ob-prolog prolog smie align org-tempo tempo
ox-odt rng-loc rng-uri rng-parse rng-match rng-dt rng-util rng-pttrn
nxml-parse nxml-ns nxml-enc xmltok nxml-util ox-latex ox-icalendar
ox-html table ox-ascii ox-publish ox org-element avl-tree org-fragtog
jao-afio winner iscroll autorevert filenotify autoinsert embark-consult
embark ffap consult-recoll consult-notmuch notmuch notmuch-tree
notmuch-jump notmuch-hello notmuch-show notmuch-print notmuch-crypto
notmuch-mua notmuch-message notmuch-draft notmuch-maildir-fcc
notmuch-address notmuch-company notmuch-parser notmuch-wash coolj
notmuch-query goto-addr thingatpt icalendar notmuch-tag crm notmuch-lib
notmuch-compat hl-line message rmc puny rfc822 mml mailabbrev gmm-utils
mailheader mm-view mml-smime mml-sec gnus-util rmail rmail-loaddefs
mail-utils smime dig mm-decode mm-bodies mm-encode mail-parse rfc2231
rfc2047 rfc2045 mm-util ietf-drums mail-prsvr consult-vertico consult
imenu bookmark marginalia vertico orderless company-oddmuse
company-keywords company-etags etags fileloop generator xref project
company-gtags company-dabbrev-code company-dabbrev company-files
company-clang company-capf company-cmake company-semantic
company-template company-bbdb company-math math-symbol-lists company
find-dired dired-x dired dired-loaddefs wgrep-ag wgrep grep compile
text-property-search jka-compr persistent-scratch so-long cal-china
lunar solar cal-dst cal-bahai cal-islam cal-hebrew holidays hol-loaddefs
vc-git diff-mode vc-dispatcher appt diary-lib diary-loaddefs ednc
jao-minibuffer tracking shorten jao-notify alert log4e notifications
gntp diminish time jao-recoll inform jao-light-theme jao-themes pinentry
pcase password-generator epa-file epa battery major-mode-hydra
pretty-hydra s dash repeat jao-sleep dbus xml server savehist recentf
tree-widget saveplace gnu-elpa-keyring-update epg epg-config poly-org
org ob ob-tangle ob-ref ob-lob ob-table ob-exp org-macro org-footnote
org-src ob-comint org-pcomplete pcomplete comint ansi-color org-list
org-faces org-entities time-date noutline outline org-version
ob-emacs-lisp org-table ol org-keys org-loaddefs find-func cal-menu
calendar cal-loaddefs polymode derived poly-lock polymode-base
polymode-weave polymode-export polymode-compat polymode-methods
polymode-core polymode-classes eieio-custom eieio-base color paradox
paradox-menu paradox-commit-list hydra ring lv cus-edit pp cus-start
cus-load wid-edit paradox-execute paradox-github paradox-core spinner cl
cl-extra help-mode use-package use-package-ensure use-package-delight
use-package-diminish use-package-bind-key bind-key easy-mmode
use-package-core literate-elisp ob-core org-compat advice ob-eval
org-macs format-spec finder-inf tex-site rx proof-site proof-autoloads
edmacro kmacro info package browse-url url url-proxy url-privacy
url-expand url-methods url-history url-cookie url-domsuf url-util
mailcap url-handlers url-parse auth-source cl-seq eieio eieio-core
cl-macs eieio-loaddefs password-cache json subr-x map url-vars seq
byte-opt gv bytecomp byte-compile cconv cl-loaddefs cl-lib iso-transl
tooltip eldoc electric uniquify ediff-hook vc-hooks lisp-float-type
mwheel term/x-win x-win term/common-win x-dnd tool-bar dnd fontset image
regexp-opt fringe tabulated-list replace newcomment text-mode elisp-mode
lisp-mode prog-mode register page tab-bar menu-bar rfn-eshadow isearch
easymenu timer select scroll-bar mouse jit-lock font-lock syntax
font-core term/tty-colors frame minibuffer 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 composite charscript charprop
case-table epa-hook jka-cmpr-hook help simple abbrev obarray
cl-preloaded nadvice button loaddefs faces cus-face macroexp files
window text-properties overlay sha1 md5 base64 format env code-pages
mule custom widget hashtable-print-readable backquote threads dbusbind
inotify lcms2 dynamic-setting system-font-setting font-render-setting
cairo x-toolkit x multi-tty make-network-process emacs)

Memory information:
((conses 16 7696001 873702)
 (symbols 48 121424 209)
 (strings 32 1221141 116757)
 (string-bytes 1 57057870)
 (vectors 16 253664)
 (vector-slots 8 7600949 676177)
 (floats 8 12811 8255)
 (intervals 56 1040525 23769)
 (buffers 992 169))

-- 
At bottom, every man knows perfectly well that he is a unique being, only
once on this earth; and by no extraordinary chance will such a marvelously
picturesque piece of diversity in unity as he is, ever be put together a
second time. -Friedrich Nietzsche, philosopher (1844-1900)

bug#47758: 28.0.50; unexpected scrolling after message-kill-to-signature

[Lars Ingebrigtsen]

"Jose A. Ortega Ruiz" <mail@jao.io> writes:

> Since some days ago in recent builds of the master branch,
> message-kill-to-signature (C-c C-z) has become a bit incovenient
> because, after it deletes the required region (correctly), it recenters
> the buffer so that point goes to the top (so that one only sees the
> signature, and no the rest of the message above, as if one had invoked
> recenter-top-bottom twice). 

I'm unable to reproduce this in Emacs 28 -- If I hit `C-c C-z' in a
Message buffer, it just kills the text after point, and does no
recentring.

Is it possibly that you have customisations of the command that issues a
recentring?  Can you reproduce this bug with "emacs -Q"?

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

bug#47758: 28.0.50; unexpected scrolling after message-kill-to-signature

[Lars Ingebrigtsen]

Jose Antonio Ortega Ruiz <mail@jao.io> writes:

>> Is it possibly that you have customisations of the command that issues a
>> recentring?  Can you reproduce this bug with "emacs -Q"?
>
> Maybe, but i just tried again with a freshly compiled emacs and the
> problem is gone :) So i think we can just close this one.  Thanks!

Thanks for checking.  I'm closing this bug report, then.