bug#24824: 26.0.50; error in process filter: Symbol’s function definition is void: mm-decode-coding-region

[Jean Louis <bugs@gnu.support>]

Debugger entered--Lisp error: (void-function mm-decode-coding-region)
  (mm-decode-coding-region (point-min) (point-max) coding-system)
  (progn (mm-decode-coding-region (point-min) (point-max) coding-system) (set-buffer-file-coding-system coding-system))
  (if (and (featurep (quote mule)) (if (boundp (quote default-enable-multibyte-characters)) default-enable-multibyte-characters t) coding-system) (progn (mm-decode-coding-region (point-min) (point-max) coding-system) (set-buffer-file-coding-system coding-system)))
  (save-excursion (if encoding (mm-decode-content-transfer-encoding encoding type)) (if (and (featurep (quote mule)) (if (boundp (quote default-enable-multibyte-characters)) default-enable-multibyte-characters t) coding-system) (progn (mm-decode-coding-region (point-min) (point-max) coding-system) (set-buffer-file-coding-system coding-system))))
  (let* ((encoding (nth 2 handle)) (charset (or w3-explicit-coding-system (mail-content-type-get (nth 1 handle) (quote charset)) "iso-8859-1")) (type (mm-handle-media-type handle)) (coding-system (mm-charset-to-coding-system charset))) (if (or (not coding-system) (eq coding-system (quote ascii))) (setq coding-system (quote undecided))) (save-excursion (if encoding (mm-decode-content-transfer-encoding encoding type)) (if (and (featurep (quote mule)) (if (boundp (quote default-enable-multibyte-characters)) default-enable-multibyte-characters t) coding-system) (progn (mm-decode-coding-region (point-min) (point-max) coding-system) (set-buffer-file-coding-system coding-system)))) coding-system)
  w3-decode-charset((#<buffer  *mm*-849047> ("text/html" (charset . "utf-8")) nil nil nil nil nil nil))
  (cond ((or (equal (mm-handle-media-type handle) "text/html") (equal (mm-handle-media-type handle) "application/xhtml+xml")) (set-buffer (generate-new-buffer " *w3-html*")) (mm-insert-part handle) (w3-decode-charset handle) (setq url-current-object (url-generic-parse-url url)) (w3-prepare-buffer) (setq url-current-mime-headers headers) (w3-notify-when-ready (current-buffer)) (mm-destroy-parts handle)) ((equal (car-safe (nth 1 handle)) "application/x-elisp-parsed-html") (w3-prepare-tree (read (set-marker (make-marker) 1 (nth 0 handle))))) ((mm-inlinable-p handle) (set-buffer (generate-new-buffer url)) (require (quote mm-view)) (mm-display-part handle) (set-buffer-modified-p nil) (w3-mode) (if (equal "image" (mm-handle-media-supertype handle)) (setq cursor-type nil)) (setq url-current-mime-headers headers) (w3-notify-when-ready (current-buffer))) (t (mm-display-part handle)))
  (let ((handle (mm-dissect-buffer t)) (w3-explicit-coding-system (or w3-explicit-coding-system (w3-recall-explicit-coding-system url)))) (message "Downloading of `%s' complete." url) (url-mark-buffer-as-dead (current-buffer)) (if headers nil (setq headers (list (cons (quote content-type) (mm-handle-media-type handle))))) (cond ((or (equal (mm-handle-media-type handle) "text/html") (equal (mm-handle-media-type handle) "application/xhtml+xml")) (set-buffer (generate-new-buffer " *w3-html*")) (mm-insert-part handle) (w3-decode-charset handle) (setq url-current-object (url-generic-parse-url url)) (w3-prepare-buffer) (setq url-current-mime-headers headers) (w3-notify-when-ready (current-buffer)) (mm-destroy-parts handle)) ((equal (car-safe (nth 1 handle)) "application/x-elisp-parsed-html") (w3-prepare-tree (read (set-marker (make-marker) 1 (nth 0 handle))))) ((mm-inlinable-p handle) (set-buffer (generate-new-buffer url)) (require (quote mm-view)) (mm-display-part handle) (set-buffer-modified-p nil) (w3-mode) (if (equal "image" (mm-handle-media-supertype handle)) (setq cursor-type nil)) (setq url-current-mime-headers headers) (w3-notify-when-ready (current-buffer))) (t (mm-display-part handle))))
  (let (headers) (condition-case nil (progn (save-restriction (mail-narrow-to-head) (goto-char (point-min)) (if (save-excursion (search-forward ":" (line-end-position) t)) nil (forward-line)) (setq headers (mail-header-extract)) (let (refreshed) (let ((--dolist-tail-- headers) header) (while --dolist-tail-- (setq header ...) (let* ... ...) (setq --dolist-tail-- ...)))))) (error nil)) (let ((handle (mm-dissect-buffer t)) (w3-explicit-coding-system (or w3-explicit-coding-system (w3-recall-explicit-coding-system url)))) (message "Downloading of `%s' complete." url) (url-mark-buffer-as-dead (current-buffer)) (if headers nil (setq headers (list (cons (quote content-type) (mm-handle-media-type handle))))) (cond ((or (equal (mm-handle-media-type handle) "text/html") (equal (mm-handle-media-type handle) "application/xhtml+xml")) (set-buffer (generate-new-buffer " *w3-html*")) (mm-insert-part handle) (w3-decode-charset handle) (setq url-current-object (url-generic-parse-url url)) (w3-prepare-buffer) (setq url-current-mime-headers headers) (w3-notify-when-ready (current-buffer)) (mm-destroy-parts handle)) ((equal (car-safe (nth 1 handle)) "application/x-elisp-parsed-html") (w3-prepare-tree (read (set-marker (make-marker) 1 (nth 0 handle))))) ((mm-inlinable-p handle) (set-buffer (generate-new-buffer url)) (require (quote mm-view)) (mm-display-part handle) (set-buffer-modified-p nil) (w3-mode) (if (equal "image" (mm-handle-media-supertype handle)) (setq cursor-type nil)) (setq url-current-mime-headers headers) (w3-notify-when-ready (current-buffer))) (t (mm-display-part handle)))))
  w3-fetch-callback("http://elpa.gnu.org/packages/w3.html")
  (let (redirect-url) (cond ((listp (car args)) (let ((status (car args))) (if (eq (car status) :error) (progn (setq status (cdr ...)))) (if (eq (car status) :redirect) (progn (setq redirect-url (car ...)))) (setq args (cdr args)))) ((eq (car args) :redirect) (setq redirect-url (car (cdr args))) (while (eq (car args) :redirect) (setq args (cdr (cdr args)))))) (w3-fetch-callback (or redirect-url (car args))))
  w3-fetch-redirect-callback(nil "http://elpa.gnu.org/packages/w3.html")
  apply(w3-fetch-redirect-callback (nil "http://elpa.gnu.org/packages/w3.html"))
  url-http-activate-callback()
  url-http-content-length-after-change-function(324 1234 910)
  url-http-wait-for-headers-change-function(1 1247 1246)
  url-http-generic-filter(#<process elpa.gnu.org> "HTTP/1.1 200 OK\r\nDate: Sun, 30 Oct 2016 08:57:55 GMT\r\nServer: Apache/2.4.10 (Debian)\r\nLast-Modified: Sat, 29 Oct 2016 21:03:22 GMT\r\nETag: \"659-540074e10ca8c-gzip\"\r\nAccept-Ranges: bytes\r\nVary: Accept-Encoding\r\nContent-Encoding: gzip\r\nContent-Length: 909\r\nKeep-Alive: timeout=5, max=100\r\nConnection: Keep-Alive\r\nContent-Type: text/html\r\n\r\n\x1f\213\b\0\0\0\0\0\0\x03\215T\301r\333F\f\275\363+P\236\332\x19\223\264\244$ul\221\251-9Ng\344\3043U\246\323\343\222\204\310M\226\\f\x17\224\254~}\201\225lG\315%'\211\330\x05\x1e\360\336[\314\x7fY~Z\254\377y\270\205\x0f\353\373\x15<|\276Y\375\271\2008\311\262\277g\213,[\256\227\207\203Y:\205\367\272W&\313n?\306E4o\2513\362\203\252.\"\2009i2X\334}\374\f\267\253\207kH`7\233g\207\240\x1cwH\nZ\242!\301o\243\336\346\361\302\366\204=%\353\375\2001T\207\257<&|\244Lj_A\325*\347\221\362\2216\311\205@f\a\260yi\353\275@O@\x19\335\364y\\q*\272\370\377\350\355\204o\r\305\x12}\345\364@\332\366\227\360~4f\x0f\325\350\311v\372_U\x1a<\x03\243\\\203\x1c\x1d\373\332Vc'\305j\330a	\245\263;\217\x0e6\326\301m\247*?\317\206Pr\245\b=]\302\234gr\270\311\343\335,y\225\236\247\257\336\246\244\270\221\223\317y\246\2123\230\236Of\311\365\330$\3237g0I\x7f?\277\277y\252\366\301v\b\203j\360\273\202B\325e\226\241\x19T\332\364cj]\223\r\252\372\312\267|\266\233\245BQ\\\374\314-\201\x7fB\272	\x03\201\303\301zM\326\355\x7fDl4\245^mU\337\253\366\271f\305\321\f\205\201#\x16\x7f\276ks\326\n\x1d{B\260\342bq\247I\300\200\331\372\251\252\x1cd\226\263wC~Z\372J\345\276\265\216\214m\256\332\234\313\370\240<_8\301\273\v\351/\343\265\323B\324\205\372Eo\366\300\264\230\x0f\216=\x18\364cS\203\366\240N\324\3359Ml>`\335\265\x13\x1f\350\376\2406\254\264\x1fR\200k\x0f~\254\3323\320\x04\255\362\321\330\353o#\202'\207}C-\327\353k\250\235\332\225L\275\347\204u{r\352\204q\243\304Ud\271\210g\x04\302\306)i1\332ij\x0fxW@\234\370\\($R\253Hp\271\353PCo\245Co\354.\240z\266\x0e\351\x0e}T\x1a+9{;:\300Z\223\356^[\360\350=CpGK\344<;\210\267e\x04(\221\a\256\255\353\x14\a\304\336\212\237\3408\x18\x04\273\211\366\310\x0f\357\214k\x03>\x0eX\x11\224c\343\241\346\221\271\375\222\233q\226\322\350\301\240:z\311\x1d\257l\265\202\373\344\361\x18K\202\252	\237\244Q\264ny\202@\375\x16\335\236+\214M\313\236\367\x1c\2410\266(\302\236D\370\265\334\207\200u\272\221\205\x03j$v\303o\360\205\x1f-w\x105Han\276%U\230\316\332\356\372@\207\252*\x19\231_\265\264\332Y&p@\313c\x1dE\x19\234\375\"\x03\311c\203?\242\277\216\216\f\224(\330(\355\230\334\232W\2256\"\226\362_\301hO\342\x01\266\213\306\315\367\346b\252\0U\325F\225\355\x06\333\v\265\241\207\220\"\207l\x12/\x17\203A2&\331\241gy\270\305S?@\247\366\254H\264\261\274\201\304}2\376\306\x1a\x16YT|ZJ\236id\247\213\231\305\353\237L-\\\212\300\376\340s\222u\x06\x15\x1a~Gu\315\251y<\213\241\264\256F\227\307\x13Y\241\344\370Z]\374\260\267.N\367\326\305\323\336\342\x15^\207\214\227\365\365\37296I\337\274\225-F\262\224\263\200.\x7f\x0e\353\371?\330\354F\355Y\x06\0\0")