(let ((testfile "~/bug23880"))
  (with-temp-file testfile
    (insert "From nobody Fri Jul  1 15:51:20 CEST 2016
To: stephen.berman@gmx.net
Subject: test for bug#2388
From: Stephen Berman <stephen.berman@gmx.net>
Date: Fri Jul  1 15:51:20 CEST 2016
Message-ID: <87twg9y16a.fsf@gmx.net>
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")
   ;; "-ibm-Courier-normal-normal-normal-*-12-*-*-*-m-0-iso10646-1")
   ;; "-bitstream-Bera Sans Mono-normal-normal-normal-*-12-*-*-*-m-0-iso10646-1")
   ;; "-B&H-B&H LucidaTypewriter-normal-normal-normal-Sans-12-*-*-*-m-70-iso10646-1")
   ;; "-unknown-Droid Sans Mono-normal-normal-normal-*-12-*-*-*-m-0-iso10646-1")
   ;; "-unknown-Liberation Mono-normal-normal-normal-*-12-*-*-*-m-0-iso10646-1")
   ;; "-urw-Nimbus Mono L-normal-normal-normal-*-12-*-*-*-m-0-iso10646-1")
   ;; ---------------------------------------------------------------------------
   ;; "-unknown-Latin Modern Mono-normal-normal-normal-*-13-*-*-*-*-0-iso10646-1")
   ;; "-DEC-DEC Terminal-normal-normal-normal-*-12-*-*-*-c-80-iso10646-1")
   ;; "-Sony-Sony Fixed-normal-normal-normal-*-12-*-*-*-c-80-iso10646-1")
   ;; "-Misc-Misc Fixed-normal-normal-normal-*-12-*-*-*-c-90-iso10646-1")
  (add-to-list 'load-path "/home/steve/.emacs.d/elpa/hyperbole-5.14")
  (require 'hyperbole)
  ;; (require 'hui-select)
  ;; (require 'hycontrol)
  ;; (require 'wconfig)
  (message "Emacs started; frame width: %d" (frame-width))
  (require 'gnus)
  (let ((gnus-select-method '(nnnil "")))
    (message "Gnus started; frame width: %d" (frame-width))
    (gnus-1)
    (gnus-group-make-doc-group testfile 'mbox)
    (gnus-group-select-group)
    (gnus-summary-scroll-up 1)
    (message "Entered Summary buffer; frame width: %d" (frame-width))
    (gnus-summary-select-article-buffer)
    (sit-for 0)
    (message "Entered Article buffer; frame width: %d" (frame-width))
    (widget-backward 1)  
    (sit-for 0)
    (message "Point moved to a button; frame width: %d" (frame-width))
    (gnus-article-show-summary)
    (sit-for 0)
    (message "Back to Summary buffer; frame width: %d" (frame-width))
    (gnus-summary-select-article-buffer)
    (sit-for 0)
    (message "Back to button in Article buffer; frame width: %d" (frame-width)))
  ;; Suppress further messages and clean up in order to repeat the test by
  ;; simply restarting Emacs with -Q and evaluating this sexp.
  (let (message-log-max)
    (gnus-summary-exit-no-update t)
    (goto-char (point-min))
    (gnus-group-kill-group)
    (let ((gnus-expert-user t))
      (gnus-group-quit))
    (delete-file testfile)
    (when (file-exists-p (gnus-dribble-file-name))
      (delete-file (gnus-dribble-file-name))))
  (switch-to-buffer "*Messages*"))