[debbugs-tracker] bug#30887: closed (27.0.50; fortune-message occupys two lines of height for one line message)

[GNU bug Tracking System]

Your message dated Wed, 21 Mar 2018 14:16:10 -0400
with message-id <address@hidden>
and subject line Re: bug#30887: 27.0.50; fortune-message occupys two lines of 
height for one line message
has caused the debbugs.gnu.org bug report #30887,
regarding 27.0.50; fortune-message occupys two lines of height for one line 
message
to be marked as done.

(If you believe you have received this mail in error, please contact
address@hidden)


-- 
30887: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=30887
GNU Bug Tracking System
Contact address@hidden with problems
> --- Begin Message ---
>
>
>
> Subject: 
>
> 27.0.50; fortune-message occupys two lines of height for one line message
>
>
>
>
> Date: 
>
> Wed, 21 Mar 2018 03:14:44 +0800
>
>
>
>
> For a very simple message such as "You now have Asian Flu.", M-x
> fortune-message shows it in two lines of height
>
> > You now have Asian Flu.
> >
>
> It is annoying because it changes the height of minibuffer/echo area.
> The final newline is really unnecessary at least for message.
>
>
>
> --- End Message ---
> --- Begin Message ---
>
>
>
> Subject: 
>
> Re: bug#30887: 27.0.50; fortune-message occupys two lines of height for one line message
>
>
>
>
> Date: 
>
> Wed, 21 Mar 2018 14:16:10 -0400
>
>
>
>
> User-agent: 
>
> Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/)
>
>
>
>
> Version: 27.1
>
> commit 03a27fa
> Date:   Wed Mar 21 14:10:05 2018 -0400
>
>     * lisp/play/fortune.el (fortune-message):
>     Avoid trailing newline.  (Bug#30887)
>
> diff --git a/lisp/play/fortune.el b/lisp/play/fortune.el
> index 74ace06..740f436 100644
> --- a/lisp/play/fortune.el
> +++ b/lisp/play/fortune.el
> @@ -313,6 +313,8 @@ fortune-message
>    (with-temp-buffer
>      (let ((fortune-buffer-name (current-buffer)))
>        (fortune-in-buffer t file)
> +      ;; Avoid trailing newline.
> +      (if (bolp) (delete-char -1))
>        (message "%s" (buffer-string)))))
>  
>  ;;;###autoload
>
>
> --- End Message ---