bug#23880: Hyperbole causes frame to widen in Gnus

[Stephen Berman]

On Fri, 1 Jul 2016 09:03:03 -0400 Robert Weiner <address@hidden> wrote:

> On Fri, Jul 1, 2016 at 8:48 AM, Stephen Berman <address@hidden> wrote:
>> Henceforth, every time I make the frame width less than 88, on making
>> the Gnus Summary buffer current it widens to 88, and on making the
>> Article buffer current (as long as point is on a link in that buffer)
>> the frame widens to 97.  (If the frame width is already wider than 88 or
>> 97, respectively, then making those buffers current does not shrink the
>> frame's width.)
>
> Could you write a function that implements all of your steps so this
> could be tested?  It is too many steps to do manually.

Start Emacs with -Q and evaluate the following sexp (after adjusting the
path to Hyperbole); you should then see the frame width resizing
(documented in the *Messages* buffer), if you have the font I use; if
not, maybe it will happen with a different font too.

(progn
  (with-temp-file "~/bug2388"
    (insert "From nobody Fri Jul  1 15:51:20 CEST 2016
To: address@hidden
Subject: test for bug#2388
From: Stephen Berman <address@hidden>
Date: Fri Jul  1 15:51:20 CEST 2016
Message-ID: <address@hidden>
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.1.50 (gnu/linux)
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Lines: 1

test
"))
  (set-default-font
   "-unknown-DejaVu Sans Mono-normal-normal-normal-*-12-*-*-*-m-0-iso10646-1")
  (message "Frame width: %d" (frame-width))
  (add-to-list 'load-path "/home/steve/.emacs.d/elpa/hyperbole-5.14")
  (require 'hyperbole)
  (require 'gnus)
  (let ((gnus-select-method '(nnnil "")))
    (message "Frame width: %d" (frame-width))
    (gnus-1)
    (gnus-group-make-doc-group "~/bug2388" 'mbox)
    (gnus-group-select-group)
    (gnus-summary-scroll-up 1)
    (message "Frame width: %d" (frame-width))
    (gnus-summary-select-article-buffer)
    (sit-for 0.1)
    (message "Frame width: %d" (frame-width))
    (widget-backward 1)  
    (sit-for 0.1)
    (message "Frame width: %d" (frame-width))
    (gnus-article-show-summary)
    (sit-for 0.1)
    (message "Frame width: %d" (frame-width))
    (gnus-summary-select-article-buffer)
    (sit-for 0.1)
    (message "Frame width: %d" (frame-width)))
  (switch-to-buffer "*Messages*"))

> I don't know why Hyperbole would be adjusting your frame-width without
> you asking.  There is a file, hgnus.el which overloads Gnus functions
> and has not been modernized for Emacs 25.  Our intent is that the news
> and mail functionality is turned off when you load Hyperbole but we'll
> have to look and see if hgnus is getting loaded anyway.  Check by
> testing if (featurep 'hgnus) returns t or not.  Even then, it
> shouldn't adjust frame-width unless this is something Gnus used to do
> itself.

After evaluating the above sexp, (featurep 'hgnus) returns nil.

Steve Berman