From 512668dfd92b20d0d08b91d62b422d8262573281 Mon Sep 17 00:00:00 2001
From: Dirk Lemstra <dirk@lemstra.org>
Date: Wed, 24 Mar 2021 20:37:15 +0100
Subject: [PATCH] Throw exception when no exception was raised but status was
 false (#3432).

---
 coders/dcm.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/coders/dcm.c b/coders/dcm.c
index 7a68ed6e8..ed17c9567 100644
--- a/coders/dcm.c
+++ b/coders/dcm.c
@@ -3989,6 +3989,8 @@ static Image *ReadDCMImage(const ImageInfo *image_info,ExceptionInfo *exception)
         if (redmap != (int *) NULL)
           redmap=(int *) RelinquishMagickMemory(redmap);
         image=DestroyImageList(image);
+        if ((status == MagickFalse) && (exception->severity < ErrorException))
+          ThrowReaderException(CorruptImageError,"CorruptImage");
         return(GetFirstImageInList(images));
       }
     if (info.depth != (1UL*MAGICKCORE_QUANTUM_DEPTH))
-- 
2.31.0

>Wojtek's customized Guix</td><td class='sub right'></td></tr></table>
<table class='tabs'><tr><td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=0dd03c4c0da0a3876e4eb893113b3ce5b5a188fe'>refs</a><a class='active' href='/guix/log/gnu/packages/rdesktop.scm'>log</a><a href='/guix/tree/gnu/packages/rdesktop.scm?id=0dd03c4c0da0a3876e4eb893113b3ce5b5a188fe'>tree</a><a href='/guix/commit/gnu/packages/rdesktop.scm?id=0dd03c4c0da0a3876e4eb893113b3ce5b5a188fe'>commit</a><a href='/guix/diff/gnu/packages/rdesktop.scm?id=0dd03c4c0da0a3876e4eb893113b3ce5b5a188fe'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/rdesktop.scm'>
<input type='hidden' name='id' value='0dd03c4c0da0a3876e4eb893113b3ce5b5a188fe'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=0dd03c4c0da0a3876e4eb893113b3ce5b5a188fe'>root</a>/<a href='/guix/log/gnu?id=0dd03c4c0da0a3876e4eb893113b3ce5b5a188fe'>gnu</a>/<a href='/guix/log/gnu/packages?id=0dd03c4c0da0a3876e4eb893113b3ce5b5a188fe'>packages</a>/<a href='/guix/log/gnu/packages/rdesktop.scm?id=0dd03c4c0da0a3876e4eb893113b3ce5b5a188fe'>rdesktop.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/rdesktop.scm?id=0dd03c4c0da0a3876e4eb893113b3ce5b5a188fe&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-12-12 15:12:58 +0100'>2022-12-12</span></td><td><a href='/guix/commit/gnu/packages/rdesktop.scm?id=79564bf9977ebba0b31d8dc291eb039142f51f68'>gnu: ffmpeg: Promote version 5 to the default.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/video.scm (ffmpeg): Alias to FFMPEG-5.
(mlt-6)[inpust]: Replace "ffmpeg" with FFMPEG-4.
(transcode, libquicktime, ffmpegthumbnailer, mplayer, obs,
simplescreenrecorder, handbrake, ffms2, libopenshot, wlstream)[inputs]: Change
from FFMPEG to FFMPEG-4.
* gnu/packages/arcan.scm (arcan)[inputs]: Likewise.
* gnu/packages/astronomy.scm (stackistry, libskry)[inputs]: Likewise.
* gnu/packages/audio.scm (aubio, bs1770gain)[inputs]: Likewise.
* gnu/packages/education.scm (openboard)[inputs]: Likewise.
* gnu/packages/emulators.scm (dolphin-emu, retroarch, pcsxr, ppsspp)[inputs]:
Likewise.
* gnu/packages/game-development.scm (warsow-qfusion)[inputs]: Likewise.
* gnu/packages/games.scm (oshu, hedgewars)[inputs]: Likewise.
* gnu/packages/gnunet.scm (libextractor)[inputs]: Likewise.
* gnu/packages/graphics.scm (openscenegraph)[inputs]: Likewise.
* gnu/packages/image-processing.scm (opencv, paraview-5.9)[inputs]: Likewise.
* gnu/packages/julia-jll.scm (julia-ffmpeg-jll)[inputs]: Likewise.
* gnu/packages/kde-multimedia.scm (kid3)[inputs]: Likewise.
* gnu/packages/kodi.scm (kodi)[inputs]: Likewise.
* gnu/packages/linphone.scm (mediastreamer2)[inputs]: Likewise.
* gnu/packages/linux.scm (pipewire)[inputs]: Likewise.
(pipewire-0.3)[inputs]: Replace "ffmpeg" with FFMPEG.
* gnu/packages/mp3.scm (chromaprint)[inputs]: Change from FFMPEG to FFMPEG-4.
* gnu/packages/music.scm (musikcube)[inputs]: Likewise.
* gnu/packages/rdesktop.scm (freerdp)[inputs]: Likewise.
* gnu/packages/qt.scm (qtwebengine-5)[inputs]: Likewise.
</span></span></td><td>Marius Bakke</td></tr>