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

tek'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=6a4151e41139c00f2e10d7569c4ff078a98b7a81'>refs</a><a class='active' href='/guix/log/gnu/packages/nettle.scm'>log</a><a href='/guix/tree/gnu/packages/nettle.scm?id=6a4151e41139c00f2e10d7569c4ff078a98b7a81'>tree</a><a href='/guix/commit/gnu/packages/nettle.scm?id=6a4151e41139c00f2e10d7569c4ff078a98b7a81'>commit</a><a href='/guix/diff/gnu/packages/nettle.scm?id=6a4151e41139c00f2e10d7569c4ff078a98b7a81'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/nettle.scm'>
<input type='hidden' name='id' value='6a4151e41139c00f2e10d7569c4ff078a98b7a81'/><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=6a4151e41139c00f2e10d7569c4ff078a98b7a81'>root</a>/<a href='/guix/log/gnu?id=6a4151e41139c00f2e10d7569c4ff078a98b7a81'>gnu</a>/<a href='/guix/log/gnu/packages?id=6a4151e41139c00f2e10d7569c4ff078a98b7a81'>packages</a>/<a href='/guix/log/gnu/packages/nettle.scm?id=6a4151e41139c00f2e10d7569c4ff078a98b7a81'>nettle.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/nettle.scm?id=6a4151e41139c00f2e10d7569c4ff078a98b7a81&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-01-30 12:39:40 +0200'>2023-01-30</span></td><td><a href='/guix/commit/gnu/packages/nettle.scm?id=4cf1acc7f3033b50b0bf19e02c9f522d522d338c'>Merge remote-tracking branch 'origin/master' into core-updates</a><span class='msg-avail'>...<span class='msg-tooltip'> Conflicts:
	doc/guix.texi
	gnu/local.mk
	gnu/packages/admin.scm
	gnu/packages/base.scm
	gnu/packages/chromium.scm
	gnu/packages/compression.scm
	gnu/packages/databases.scm
	gnu/packages/diffoscope.scm
	gnu/packages/freedesktop.scm
	gnu/packages/gnome.scm
	gnu/packages/gnupg.scm
	gnu/packages/guile.scm
	gnu/packages/inkscape.scm
	gnu/packages/llvm.scm
	gnu/packages/openldap.scm
	gnu/packages/pciutils.scm
	gnu/packages/ruby.scm
	gnu/packages/samba.scm
	gnu/packages/sqlite.scm
	gnu/packages/statistics.scm
	gnu/packages/syndication.scm
	gnu/packages/tex.scm
	gnu/packages/tls.scm
	gnu/packages/version-control.scm
	gnu/packages/xml.scm
	guix/build-system/copy.scm
	guix/scripts/home.scm
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2023-01-19 17:54:49 +0100'>2023-01-19</span></td><td><a href='/guix/commit/gnu/packages/nettle.scm?id=b9d676e0ee7b52ef4bb202507ccc94b5cab590b2'>gnu: nettle: Fix mingw cross-compilation.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/nettle.scm (nettle-2) [move-static-libraries]: .dll.a files are
not static libraries.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Vivien Kraus</td></tr>
<tr><td><span title='2022-08-27 17:29:01 +0200'>2022-08-27</span></td><td><a href='/guix/commit/gnu/packages/nettle.scm?id=0d488f3fcd1620acfe4a353db491379647efeb65'>gnu: nettle: Update to 3.8.1.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/nettle.scm (nettle): Update to 3.8.1.
</span></span></td><td>Marius Bakke</td></tr>