bug#42491: 28.0.50; Gnus: Extract all Mime parts crashes

bug#42491: 28.0.50; Gnus: Extract all Mime parts crashes

[David Kastrup]

Using the Menu entry Article/MIME/Extract all parts (X m) for a mail
containing images and answering the mime type prompt with RET for
accepting the default, I get the following crash

Debugger entered--Lisp error: (wrong-type-argument stringp #<buffer  *mm*-685344>)
  string-match("image/.*" #<buffer  *mm*-685344>)
  gnus-summary-save-parts-1("image/.*" "/tmp/orchester/" ((#("multipart/mixed" 0 15 (start nil from "gbrouwer@web.de" buffer #<buffer  *mm*> boundary "abmob-f02279a1-54f7-4c44-8a1b-440a13134613")) (#<buffer  *mm*-7731> ("text/html" (charset . "UTF-8")) nil #f(compiled-function () #<bytecode 0xdfeee77424fce4f>) nil nil nil nil) (#<buffer  *mm*-990116> ("image/jpeg") base64 (lambda nil (let (... ...) (remove-images b b) (delete-region b ...))) ("attachment" (filename . "P1050506.JPG")) nil (image :type jpeg :data "\377\330\377\340\0\20JFIF\0\1\1\1\0\264\0\264\0\0\377\341\211\234Exif\0\0II*\0\10\0\0\0\16\0\17\1\2\0..." :scale 1) nil) (#<buffer  *mm*-267011> ("image/jpeg") base64 (lambda nil (let (... ...) (remove-images b b) (delete-region b ...))) ("attachment" (filename . "P1050507.JPG")) nil (image :type jpeg :data "\377\330\377\340\0\20JFIF\0\1\1\1\0\264\0\264\0\0\377\341\211\234Exif\0\0II*\0\10\0\0\0\16\0\17\1\2\0..." :scale 1) nil) (#<buffer  *mm*-807975> ("image/jpeg") base64 (lambda nil (let (... ...) (remove-images b b) (delete-region b ...))) ("attachment" (filename . "P1050510.JPG")) nil (image :type jpeg :data "\377\330\377\340\0\20JFIF\0\1\1\1\0\264\0\264\0\0\377\341\211\234Exif\0\0II*\0\10\0\0\0\16\0\17\1\2\0..." :scale 1) nil) (#<buffer  *mm*-687324> ("image/jpeg") base64 (lambda nil (let (... ...) (remove-images b b) (delete-region b ...))) ("attachment" (filename . "P1050512.JPG")) nil (image :type jpeg :data "\377\330\377\340\0\20JFIF\0\1\1\1\0\264\0\264\0\0\377\341\211\234Exif\0\0II*\0\10\0\0\0\16\0\17\1\2\0..." :scale 1) nil) (#<buffer  *mm*-263433> ("image/jpeg") base64 (lambda nil (let (... ...) (remove-images b b) (delete-region b ...))) ("attachment" (filename . "P1120133.JPG")) nil (image :type jpeg :data "\377\330\377\340\0\20JFIF\0\1\1\1\0\264\0\264\0\0\377\341}\234Exif\0\0II*\0\10\0\0\0\15\0\17\1\2\0..." :scale 1) nil) (#<buffer  *mm*-995676> ("image/jpeg") base64 (lambda nil (let (... ...) (remove-images b b) (delete-region b ...))) ("attachment" (filename . "P1120134.JPG")) nil (image :type jpeg :data "\377\330\377\340\0\20JFIF\0\1\1\1\0\264\0\264\0\0\377\341}\234Exif\0\0II*\0\10\0\0\0\15\0\17\1\2\0..." :scale 1) nil) (#<buffer  *mm*-685344> ("image/jpeg") base64 (lambda nil (let (... ...) (remove-images b b) (delete-region b ...))) ("attachment" (filename . "P1120135.JPG")) nil (image :type jpeg :data "\377\330\377\340\0\20JFIF\0\1\1\1\0\264\0\264\0\0\377\341}\234Exif\0\0II*\0\10\0\0\0\15\0\17\1\2\0..." :scale 1) nil) (#<buffer  *mm*-267314> ("image/jpeg") base64 (lambda nil (let (... ...) (remove-images b b) (delete-region b ...))) ("attachment" (filename . "P1120136.JPG")) nil (image :type jpeg :data "\377\330\377\340\0\20JFIF\0\1\1\1\0\264\0\264\0\0\377\341}\234Exif\0\0II*\0\10\0\0\0\15\0\17\1\2\0..." :scale 1) nil) (#<buffer  *mm*-121217> ("image/jpeg") base64 (lambda nil (let (... ...) (remove-images b b) (delete-region b ...))) ("attachment" (filename . "P1120137.JPG")) nil (image :type jpeg :data "\377\330\377\340\0\20JFIF\0\1\1\1\0\264\0\264\0\0\377\341}\234Exif\0\0II*\0\10\0\0\0\15\0\17\1\2\0..." :scale 1) nil) (#<buffer  *mm*-296837> ("image/jpeg") base64 (lambda nil (let (... ...) (remove-images b b) (delete-region b ...))) ("attachment" (filename . "P1120139.JPG")) nil (image :type jpeg :data "\377\330\377\340\0\20JFIF\0\1\1\1\0\264\0\264\0\0\377\341}\234Exif\0\0II*\0\10\0\0\0\15\0\17\1\2\0..." :scale 1) nil)) (#<buffer  *mm*-685344> ("image/jpeg") base64 (lambda nil (let ((inhibit-read-only t)) (delete-region #<marker (moves after insertion) at 2234 in *Article nnml+private:orchester*> #<marker at 2234 in *Article nnml+private:orchester*>))) ("attachment" (filename . "P1120135.JPG")) nil (image :type jpeg :data "\377\330\377\340\0\20JFIF\0\1\1\1\0\264\0\264\0\0\377\341}\234Exif\0\0II*\0\10\0\0\0\15\0\17\1\2\0..." :scale 1) nil) (#<buffer  *mm*-990116> ("image/jpeg") base64 (lambda nil (let ((inhibit-read-only t)) (delete-region #<marker (moves after insertion) at 2042 in *Article nnml+private:orchester*> #<marker at 2042 in *Article nnml+private:orchester*>))) ("attachment" (filename . "P1050506.JPG")) nil (image :type jpeg :data "\377\330\377\340\0\20JFIF\0\1\1\1\0\264\0\264\0\0\377\341\211\234Exif\0\0II*\0\10\0\0\0\16\0\17\1\2\0..." :scale 1) nil)) nil)
  gnus-summary-save-parts("image/.*" "/tmp/orchester/" nil)
  funcall-interactively(gnus-summary-save-parts "image/.*" "/tmp/orchester/" nil)
  call-interactively(gnus-summary-save-parts nil nil)
  command-execute(gnus-summary-save-parts)


In GNU Emacs 28.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.18, cairo version 1.16.0)
 of 2020-06-29 built on lola
Repository revision: 5a18b3a197cd32a9f639e3954c17058c4feb92ca
Repository branch: master
Windowing system distributor 'The X.Org Foundation', version 11.0.12008000
System Description: Ubuntu 20.04 LTS

Recent messages:
No more unseen articles
No more unread articles
Viewing with eog %s
Displaying eog /tmp/emm.EgGPjD/P1120135.JPG...
Auto-saving...
Displaying eog /tmp/emm.EgGPjD/P1120135.JPG...done
Viewing with eog %s
Displaying eog /tmp/emm.E0WTyk/P1050506.JPG...done
Entering debugger...
Making completion list...

Configured using:
 'configure --without-toolkit-scroll-bars'

Configured features:
XPM JPEG TIFF GIF PNG RSVG CAIRO SOUND GPM DBUS GSETTINGS GLIB NOTIFY
INOTIFY ACL LIBSELINUX GNUTLS LIBXML2 FREETYPE HARFBUZZ M17N_FLT LIBOTF
ZLIB GTK3 X11 XDBE XIM MODULES THREADS LIBSYSTEMD PDUMPER LCMS2 GMP

Important settings:
  value of $LC_MONETARY: de_DE.UTF-8
  value of $LC_NUMERIC: POSIX
  value of $LC_TIME: de_DE.UTF-8
  value of $LANG: en_US.UTF-8
  locale-coding-system: utf-8-unix

Major mode: Debugger

Minor modes in effect:
  shell-dirtrack-mode: t
  TeX-PDF-mode: t
  minibuffer-electric-default-mode: t
  desktop-save-mode: t
  tooltip-mode: t
  global-eldoc-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  buffer-read-only: t
  line-number-mode: t
  transient-mark-mode: t

Load-path shadows:
/home/dak/.emacs.d/elpa/auctex-12.2.0/auctex hides /usr/local/share/emacs/site-lisp/auctex
/home/dak/.emacs.d/elpa/auctex-12.2.0/tex-site hides /usr/local/share/emacs/site-lisp/tex-site

Features:
(shadow emacsbug rect calc-math calc-bin calc-yank dabbrev calc-undo
calccomp texmathp misearch multi-isearch descr-text magit-utils dash pp
cus-edit calc-stuff calc-frac calc-poly calc-arith calc-misc calc-aent
calc-units calc-alg calc-ext calc-menu calc calc-loaddefs calc-macs
help-fns radix-tree cl-print debug backtrace find-func rfc2104 mailalias
smtpmail sendmail nnir flow-fill shr-color color sort smiley gnus-cite
mm-archive mail-extr gnus-async gnus-bcklg qp gnus-kill gnus-ml
disp-table pop3 nndraft gnutls network-stream nsm nndoc nndir nnmh nnml
nnfolder nnnil gnus-agent gnus-srvr gnus-score score-mode nnvirtual
gnus-msg gnus-art mm-uu mml2015 mm-view mml-smime smime dig nntp
gnus-cache gnus-sum gnus-group gnus-undo gnus-start gnus-cloud nnimap
nnmail mail-source utf7 netrc nnoo gnus-spec gnus-int gnus-range message
rmc rfc822 mml mml-sec epa epg epg-config mm-decode mm-bodies mm-encode
mail-parse rfc2231 mailabbrev gmm-utils mailheader gnus-win cl-extra
help-mode meta-mode plain-tex eww url-queue url url-proxy url-privacy
url-expand url-methods url-history mailcap shr url-cookie url-domsuf
url-util svg dom puny mm-url mule-util conf-mode doc-view jka-compr
image-mode exif ps-mode vc-filewise vc-rcs gnuplot-gui cl gnuplot
info-look diary-lib diary-loaddefs cal-menu calendar cal-loaddefs
make-mode python tramp-sh tramp tramp-loaddefs trampver
tramp-integration files-x tramp-compat parse-time iso8601 ls-lisp
format-spec latexenc preview prv-emacs reporter reftex-dcr reftex-auc
reftex reftex-loaddefs reftex-vars tex-bar toolbar-x noutline outline
font-latex tex-mode shell pcomplete tex-buf latex derived edmacro kmacro
latex-flymake rx flymake-proc flymake warnings thingatpt tex-ispell
tex-style tex-info tex dbus xml crm texinfo dired-x dired dired-loaddefs
sh-script smie executable smerge-mode diff scheme lilypond-mode compile
comint ansi-color ring autorevert filenotify vc-git diff-mode easy-mmode
cc-mode cc-fonts cc-guess cc-menus cc-cmds cc-styles cc-align cc-engine
cc-vars cc-defs advice minibuf-eldef gnus nnheader gnus-util rmail
rmail-loaddefs rfc2047 rfc2045 ietf-drums text-property-search time-date
mail-utils mm-util mail-prsvr wid-edit desktop frameset cus-start
cus-load preview-latex server tex-site info package easymenu browse-url
url-handlers url-parse auth-source cl-seq eieio eieio-core cl-macs
eieio-loaddefs password-cache json subr-x map url-vars seq byte-opt gv
bytecomp byte-compile cconv cl-loaddefs cl-lib tooltip eldoc electric
uniquify ediff-hook vc-hooks lisp-float-type mwheel term/x-win x-win
term/common-win x-dnd tool-bar dnd fontset image regexp-opt fringe
tabulated-list replace newcomment text-mode elisp-mode lisp-mode
prog-mode register page tab-bar menu-bar rfn-eshadow isearch timer
select scroll-bar mouse jit-lock font-lock syntax facemenu font-core
term/tty-colors frame minibuffer cl-generic cham georgian utf-8-lang
misc-lang vietnamese tibetan thai tai-viet lao korean japanese eucjp-ms
cp51932 hebrew greek romanian slovak czech european ethiopic indian
cyrillic chinese composite charscript charprop case-table epa-hook
jka-cmpr-hook help simple abbrev obarray cl-preloaded nadvice loaddefs
button faces cus-face macroexp files text-properties overlay sha1 md5
base64 format env code-pages mule custom widget hashtable-print-readable
backquote threads dbusbind inotify lcms2 dynamic-setting
system-font-setting font-render-setting cairo move-toolbar gtk x-toolkit
x multi-tty make-network-process emacs)

Memory information:
((conses 16 1142810 91257)
 (symbols 48 74234 2)
 (strings 32 224390 33654)
 (string-bytes 1 11958106)
 (vectors 16 72027)
 (vector-slots 8 2646585 185090)
 (floats 8 511 546)
 (intervals 56 45061 666)
 (buffers 992 540))

-- 
David Kastrup

bug#42491: 28.0.50; Gnus: Extract all Mime parts crashes

[Lars Ingebrigtsen]

David Kastrup <dak@gnu.org> writes:

> Using the Menu entry Article/MIME/Extract all parts (X m) for a mail
> containing images and answering the mime type prompt with RET for
> accepting the default, I get the following crash
>
> Debugger entered--Lisp error: (wrong-type-argument stringp #<buffer  *mm*-685344>)
>   string-match("image/.*" #<buffer  *mm*-685344>)
>   gnus-summary-save-parts-1("image/.*" "/tmp/orchester/" ((#("multipart/mixed"

I can't reproduce this with my test MIME messages.  Can you forward an
example message that has this problem?

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no

bug#42491: 28.0.50; Gnus: Extract all Mime parts crashes

[Lars Ingebrigtsen]

Lars Ingebrigtsen <larsi@gnus.org> writes:

> Have you managed to reproduce this bug?

More information was requested three months ago, but was not given, so
I'm closing this bug report.  If further progress can be made here,
please respond to the debbugs address and we'll reopen.

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no