* mail/unrmail.el (unrmail): Replace obsolete detect-coding-with-priority.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0587ad3a6189818bf24a2b759ef8e60d4fe49fa0..6baa68cae77b3d00dac6ff207d80669eac79a6b9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-05-24  Glenn Morris  <rgm@gnu.org>
 
+       * mail/unrmail.el (unrmail):
+       Replace obsolete detect-coding-with-priority.
+
        * net/socks.el (socks-split-string): Use this rather than split-string.
        (socks-nslookup-host): Update for above change.
        (dynamic-choice, s5-dynamic-choice-match)

diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el
index 698e9b0e0a0ed673e5018997f97a33898730b207..ac28e23e9244a8a7e565a504a42623bf8ac2c75b 100644 (file)
--- a/lisp/mail/unrmail.el
+++ b/lisp/mail/unrmail.el
@@ -94,11 +94,9 @@ The variable `unrmail-mbox-format' controls which mbox format to use."
              ;; earlier versions did that with the current buffer's encoding.
              ;; So we want to favor detection of emacs-mule (whose normal
              ;; priority is quite low), but still allow detection of other
-             ;; encodings if emacs-mule won't fit.  The call to
-             ;; detect-coding-with-priority below achieves that.
-             (car (detect-coding-with-priority
-                   from to
-                   '((coding-category-emacs-mule . emacs-mule))))))
+             ;; encodings if emacs-mule won't fit.
+             (car (with-coding-priority '(emacs-mule)
+                    (detect-coding-region from to)))))
       (unless (memq coding-system
                    '(undecided undecided-unix))
        (set-buffer-modified-p t)       ; avoid locking when decoding