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

[Jean Louis]

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
\nDate: Sun, 30 Oct 2016 08:57:55 GMT
\nServer: Apache/2.4.10 (Debian)
\nLast-Modified: Sat, 29 Oct 2016 21:03:22 GMT
\nETag: \"659-540074e10ca8c-gzip\"
\nAccept-Ranges: bytes
\nVary: Accept-Encoding
\nContent-Encoding: gzip
\nContent-Length: 909
\nKeep-Alive: timeout=5, max=100
\nConnection: Keep-Alive
\nContent-Type: text/html
\n
\n\213\215T\301r\333F\f\275\363+P\236\332\223\264\244$ul\221\251-9Ng\344\3043U\246\323\343\222\204\310M\226\\f\224\254~}\201\225lG\315%'\211\330\360\336[\314Y~Z\254\377y\270\205\353\373<|\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\240wH\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\260yi\353\275@O@\335\364y\\q*\272\370\377\350\355\204o
\305}\345\364@\332\366\227\360~4f\325\350\311v\372_U<\243\\\203\373\332Vc'\305j\330a
      
\245\263;\2176\326\301m\247*?\317\206Pr\245=]\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?\277\277y\252\366\301v\203j\360\273\202B\325e\226\241T\332\364cj]\223
\252\372\312\267|\266\233\245BQ\\\374\314-\201B\272    
\201\303\301zM\326\355Dl4\245^mU\337\253\366\271f\305\321\f\205\201#\276ks\326\n{B\260\342bq\247I\300\200\331\372\251\252d\226\263wC~Z\372J\345\276\265\216\214m\256\332\234\313\370\240<_8\301\273

\351/\343\265\323B\324\205\372Eo\366\300\264\230\216=\364cS\203\366\240N\324\3359Ml>`\335\265\350\376\2406\254\264R\200k~\254\3323\320\255\362\321\330\353o#\202'\207}C-\327\353k\250\235\332\225L\275\347\204u{r\352\204q\243\304Ud\271\210g\302\306)i1\332ijxW@\234\370\\($R\253Hp\271\353PCo\245Co\354.\240z\266\351}T+9{;:\300Z\223\356\360\350=CpGK\344<;\210\267e(\221\256\255\353\304\336\212\237\3408\273\211\366\310\357\214k>X\224c\343\241\346\221\271\375\222\233q\226\322\350\301\240:z\311\257l\265\202\373\344\361K\202\252
   
\237\244Q\264ny\202@\375\335\236+\214M\313\236\367\2410\266(\302\236D\370\265\334\207\200u\272\221\205j$v\303o\360\205-w5Han\276%U\230\316\332\356\372@\207\252*\231_\265\264\332Y&p@\313cE\234\375\"\311c\203?\242\277\216\216\f\224(\330(\355\230\334\232W\2256\"\226\362_\301hO\342
\266\213\306\315\367\346b\252U\325F\225\355\333

\265\241\207\220\"\207l/\203A2&\331\241gy\270\305S?@\247\366\254H\264\261\274\201\304}2\376\306YT|ZJ\236id\247\213\231\305\353\237L-\\\212\300\376\340s\222u~Gu\315\251y<\213\241\264\256F\227\307Y\241\344\370Z]\374\260\267.N\367\326\305\323\336\342^\207\214\227\365\365\37296I\337\274\225-F\262\224\263\200.\353\371?\330\354F\355Y")